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)
70 (define generic-crescendo-properties
71 (cons "Crescendo" (list
72 (list 'verticalDirection dir? 'direction)
73 (list 'dynamicDirection dir? 'direction)
74 (list 'dynamicPadding number? 'padding)
75 (list 'dynamicMinimumSpace number? 'minimum-space)
78 (define generic-dynamic-line-spanner-properties
79 (cons "Dynamic_line_spanner" (list
80 (list 'verticalDirection dir? 'direction)
81 (list 'dynamicDirection dir? 'direction)
82 (list 'dynamicPadding number? 'padding)
83 (list 'dynamicMinimumSpace number? 'minimum-space)
86 (define generic-volta-spanner-properties
87 (cons "Volta_spanner" (list
88 (list 'voltaVerticalDirection dir? 'direction)
89 (list 'voltaPadding number? 'padding)
90 (list 'voltaMinimumSpace number? 'minimum-space)
93 (define generic-bar-properties
94 (cons "Staff_bar" (list
95 (list 'barSize number? 'bar-size))
99 ; don't do this yet. Depends on whennn the staff is really announced
100 (define generic-staff-symbol-properties
101 (cons "Staff_symbol" (list
106 (define generic-breathing-sign-properties
107 (cons "Breathing_sign"
109 (list 'breathingSignVerticalDirection dir? 'direction)
110 (list 'verticalDirection dir? 'direction)
113 (define generic-clef-properties
116 (list 'clefStyle string? 'style))
120 (define generic-All-properties
121 (cons "all" (list (list 'fontSize number? 'fontsize))))
123 (define generic-rest-properties
124 (cons "Rest" (list (list 'restStyle string? 'reststyle))))
126 (define generic-rest-collision-properties
127 (cons "Rest_collision" (list (list 'maximumRestCount number? 'maximum-rest-count))))
129 (define generic-tie-properties
131 (list 'tieVerticalDirection dir? 'direction)
132 (list 'verticalDirection dir? 'direction)
133 (list 'tieDash number? 'dashed)
136 (define generic-tie-column-properties
137 (cons "Tie_column" (list
138 (list 'tieVerticalDirection dir? 'direction)
139 (list 'verticalDirection dir? 'direction)
142 (define generic-note-column-properties
145 (list 'horizontalNoteShift number? 'horizontal-shift)
146 (list 'forceHorizontalShift number? 'force-hshift)
149 (define generic-collision-properties
152 (list 'collisionMergeDotted boolean? 'merge-differently-dotted)
157 (define generic-slur-properties
160 (list 'slurVerticalDirection dir? 'direction)
161 (list 'verticalDirection dir? 'direction)
162 (list 'slurDash number? 'dashed))))
164 (define generic-timesig-properties
165 (cons "Time_signature"
167 (list 'timeSignatureStyle string? 'style))))
169 (define (symbol-or-boolean? s)
170 (or (boolean? s) (symbol? s)))
172 (define generic-tuplet-spanner-properties
173 (cons "Tuplet_spanner"
175 (list 'tupletNumberVisibility symbol-or-boolean? 'tuplet-number-visibility)
176 (list 'tupletBracketVisibility symbol-or-boolean? 'tuplet-bracket-visibility)
185 ;; don't forget to add these to the Generic_property_list property in
188 (define generic-voice-properties
190 generic-stem-properties
191 generic-breathing-sign-properties
192 generic-crescendo-properties
193 generic-dynamic-line-spanner-properties
194 generic-tie-properties
195 generic-tie-column-properties
196 generic-tuplet-spanner-properties
197 generic-rest-properties
198 generic-slur-properties
199 generic-beam-properties
200 generic-text-properties
201 generic-note-column-properties
202 generic-script-properties
203 generic-All-properties
206 (define generic-grace-properties generic-voice-properties)
207 (define generic-staff-properties
209 generic-text-properties
210 generic-bar-properties
211 generic-timesig-properties
212 generic-clef-properties
213 generic-collision-properties
214 generic-rest-collision-properties
215 generic-volta-spanner-properties
216 ; generic-staff-symbol-properties
217 generic-All-properties
220 (define generic-grand-staff-properties
222 generic-text-properties
223 generic-bar-properties
226 (define generic-thread-properties
227 (list generic-All-properties
228 generic-dot-properties
233 (define generic-lyrics-properties
234 (list generic-text-properties