5 ; (list PROPERTYDESCRIPTIONS))
11 ; (list 'translatorPropertySymbol type-predicate backend-property-symbol)
13 ; Descriptions earlier in the list take precedence over later descriptions.
17 (define generic-beam-properties
20 (list 'beamSlopeDamping number? 'damping)
21 (list 'autoKneeGap number? 'auto-knee-gap)
22 (list 'autoInterstaffKneeGap number? 'auto-interstaff-knee-gap)
23 (list 'beamDirAlgorithm symbol? 'beam-dir-algorithm)
24 (list 'beamHeight number? 'height-hs)
25 (list 'beamVerticalPosition number? 'y-position-hs)
31 (define generic-stem-properties
34 (list 'stemVerticalDirection dir? 'direction)
35 (list 'verticalDirection dir? 'direction)
36 (list 'stemLength number? 'length)
37 (list 'flagStyle string? 'flag-style)
38 (list 'stemCentered boolean? 'stem-centered)
39 (list 'noStemExtend boolean? 'no-stem-extend)
40 (list 'stemShorten number? 'shorten)
44 (define generic-dot-properties
46 (list 'dotDirection dir? 'direction)
47 (list 'verticalDirection dir? 'direction)
51 (define generic-script-properties
53 (list 'articulationScriptVerticalDirection dir? 'direction)
54 (list 'articulationScriptPadding number? 'padding)
61 (define generic-text-properties
62 (cons "Text_item" (list
63 (list 'textStyle string? 'style)
64 (list 'textScriptPadding number? 'padding)
65 (list 'textVerticalAlignment dir? 'self-alignment-Y)
66 (list 'textHorizontalAlignment dir? 'self-alignment-X)
67 (list 'textScriptWordSpace number? 'word-space)
71 (define generic-sustain-pedal-properties
72 (cons "Sustain_pedal" (list
73 (list 'textScriptPadding number? 'padding)
74 (list 'sustainPedalPadding number? 'padding))))
76 (define generic-chord-name-properties
77 (cons "Chord_name" (list
78 (list 'textScriptWordSpace number? 'word-space)
79 (list 'chordNameWordSpace number? 'word-space))))
81 (define generic-crescendo-properties
82 (cons "Crescendo" (list
83 (list 'verticalDirection dir? 'direction)
84 (list 'dynamicDirection dir? 'direction)
85 (list 'dynamicPadding number? 'padding)
86 (list 'dynamicMinimumSpace number? 'minimum-space)
89 (define generic-dynamic-line-spanner-properties
90 (cons "Dynamic_line_spanner" (list
91 (list 'verticalDirection dir? 'direction)
92 (list 'dynamicDirection dir? 'direction)
93 (list 'dynamicPadding number? 'padding)
94 (list 'dynamicMinimumSpace number? 'minimum-space)
97 (define generic-volta-spanner-properties
98 (cons "Volta_spanner" (list
99 (list 'voltaVerticalDirection dir? 'direction)
100 (list 'voltaPadding number? 'padding)
101 (list 'voltaMinimumSpace number? 'minimum-space)
104 (define generic-bar-properties
105 (cons "Staff_bar" (list
106 (list 'barSize number? 'bar-size))
110 ; don't do this yet. Depends on whennn the staff is really announced
111 (define generic-staff-symbol-properties
112 (cons "Staff_symbol" (list
117 (define generic-breathing-sign-properties
118 (cons "Breathing_sign"
120 (list 'breathingSignVerticalDirection dir? 'direction)
121 (list 'verticalDirection dir? 'direction)
124 (define generic-clef-properties
127 (list 'clefStyle string? 'style))
131 (define generic-All-properties
132 (cons "all" (list (list 'fontSize number? 'fontsize))))
134 (define generic-rest-properties
135 (cons "Rest" (list (list 'restStyle string? 'reststyle))))
137 (define generic-rest-collision-properties
138 (cons "Rest_collision" (list (list 'maximumRestCount number? 'maximum-rest-count))))
140 (define generic-tie-properties
142 (list 'tieVerticalDirection dir? 'direction)
143 (list 'verticalDirection dir? 'direction)
144 (list 'tieDash number? 'dashed)
147 (define generic-tie-column-properties
148 (cons "Tie_column" (list
149 (list 'tieVerticalDirection dir? 'direction)
150 (list 'verticalDirection dir? 'direction)
153 (define generic-note-column-properties
156 (list 'horizontalNoteShift number? 'horizontal-shift)
157 (list 'forceHorizontalShift number? 'force-hshift)
160 (define generic-collision-properties
163 (list 'collisionMergeDotted boolean? 'merge-differently-dotted)
168 (define generic-slur-properties
171 (list 'slurVerticalDirection dir? 'direction)
172 (list 'verticalDirection dir? 'direction)
173 (list 'slurDash number? 'dashed))))
175 (define generic-timesig-properties
176 (cons "Time_signature"
178 (list 'timeSignatureStyle string? 'style))))
180 (define (symbol-or-boolean? s)
181 (or (boolean? s) (symbol? s)))
183 (define generic-tuplet-spanner-properties
184 (cons "Tuplet_spanner"
186 (list 'tupletNumberVisibility symbol-or-boolean? 'tuplet-number-visibility)
187 (list 'tupletBracketVisibility symbol-or-boolean? 'tuplet-bracket-visibility)
196 ;; don't forget to add these to the Generic_property_list property in
199 (define generic-voice-properties
201 generic-stem-properties
202 generic-breathing-sign-properties
203 generic-crescendo-properties
204 generic-dynamic-line-spanner-properties
205 generic-tie-properties
206 generic-tie-column-properties
207 generic-tuplet-spanner-properties
208 generic-rest-properties
209 generic-slur-properties
210 generic-beam-properties
211 generic-text-properties
212 generic-sustain-pedal-properties
213 generic-note-column-properties
214 generic-script-properties
215 generic-All-properties
218 (define generic-grace-properties generic-voice-properties)
219 (define generic-staff-properties
221 generic-text-properties
222 generic-bar-properties
223 generic-timesig-properties
224 generic-clef-properties
225 generic-collision-properties
226 generic-sustain-pedal-properties
227 generic-rest-collision-properties
228 generic-volta-spanner-properties
229 ; generic-staff-symbol-properties
230 generic-All-properties
233 (define generic-grand-staff-properties
235 generic-text-properties
236 generic-bar-properties
239 (define generic-thread-properties
240 (list generic-All-properties
241 generic-dot-properties
246 (define generic-lyrics-properties
247 (list generic-text-properties
251 (define generic-chord-staff-properties
252 (list generic-chord-name-properties