JMATES / Music-AtonalUtil-0.15 / eg / _atonal-util 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161

              
#compdef atonal-util
#
# ZSH completion for atonal-util. Install to a $fpath directory.
# XXX --scaledegrees=anything is messing up subsequent completion
_atonal-util() {
  _arguments \
    '--flats[print notes as flats]' \
    '(- *)--help[display help]' \
    '--ly[emit notes not pitch numbers]' \
    '(- *)--listmodes[show available modes]' \
    '--scaledegrees=[degrees in the scale]' \
    '*::atonal-util command:_atonalutil_mode'
}
_atonalutil_mode() {
  _atonalutil_modes=(
    'basic:prime_form and interval_class_content info' \
    'circular_permute:all permutations of pitch set'
    'complement:complement of set'
    'equivs:Tn and TnI equivalents' \
    'interval_class_content:ICC'
    'invariance_matrix:invarience under TnI' \
    'invariants:list of invariants of a given pitch set' \
    'invert:inversion' \
    'multiply:multiplication' \
    'normal_form:normal_form' \
    'pitch2intervalclass:pitch to interval class' \
    'prime_form:prime_form' \
    'recipe:list of methods to operate on a set with' \
    'retrograde:reverse' \
    'rotate:specific permutation' \
    'set_complex:2D pitch set to inversion chart' \
    'subsets:subsets of a given pitch set' \
    'tcis:transposition inversion common-tone structure' \
    'tcs:transposition common-tone structure' \
    'transpose:Tn' \
    'transpose_invert:TnI' \
    'variances:intersection, difference, and union of two sets' \
    'zrelation:whether two sets share same ICC'
  )
  if (( CURRENT == 1 )); then
    _describe -t commands 'atonalutil command' _atonalutil_modes
  else
    local curcontext="$curcontext"
    cmd="${_atonalutil_modes[(r)$words[1]:*]%%:*}"
    if (( $#cmd )); then
      curcontext="${curcontext%:*:*}:atonalutil-${cmd}:"
      _call_function ret _atonalutil_$cmd || _message 'no more arguments'
    else
      _message "unknown atonalutil command: $words[1]"
    fi
    return ret
  fi
}
# XXX too much copy-n-paste hereafter
_atonalutil_basic() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_circular_permute() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_complement() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_equivs() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_interval_class_content() { }
_atonalutil_invariance_matrix() { }
_atonalutil_invariants() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_invert() { 
  _arguments -s \
    '--axis=[inversion axis]:value:( )' \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_multiply() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_normal_form() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_pitch2intervalclass() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_prime_form() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_recipe() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]' \
    '--file=[recipe file]:filename:_files'
}
_atonalutil_retrograde() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_rotate() { 
  _arguments -s \
    '--rotate=[rotate by]:value:( )' \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_set_complex() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_set_complex() {
  _arguments -s \
    '--length=[length]:value:( )' \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_tcis() { }
_atonalutil_tcs() { }
_atonalutil_transpose() {
  _arguments -s \
    '--transpose=[transposition value]:value:( )' \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_transpose_invert() {
  _arguments -s \
    '--axis=[inversion axis]:value:( )' \
    '--transpose=[transposition value]:value:( )' \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_variances() {
  _arguments -s \
    '--flats[print notes as flats]' \
    '--ly[emit notes not pitch numbers]'
}
_atonalutil_zrelation() { }