6 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7 ;; DEPRECATED -- DO NOT UPDATE ! -- DO NOT USE !
8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
14 ; (list PROPERTYDESCRIPTIONS))
20 ; (list 'translatorPropertySymbol type-predicate backend-property-symbol)
22 ; Descriptions earlier in the list take precedence over later descriptions.
26 (define generic-beam-properties
29 (list 'beamSlopeDamping number? 'damping)
30 (list 'autoKneeGap number? 'auto-knee-gap)
31 (list 'autoInterstaffKneeGap number? 'auto-interstaff-knee-gap)
32 (list 'beamDirAlgorithm symbol? 'beam-dir-algorithm)
33 (list 'beamHeight number? 'height)
34 (list 'beamVerticalPosition number? 'staff-position)
40 (define generic-stem-properties
43 (list 'stemVerticalDirection dir? 'direction)
44 (list 'verticalDirection dir? 'direction)
45 (list 'stemLength number? 'length)
46 (list 'flagStyle string? 'flag-style)
47 (list 'style symbol? 'style)
48 (list 'noStemExtend boolean? 'no-stem-extend)
49 (list 'stemShorten number? 'shorten)
53 (define generic-dot-properties
56 (list 'dotDirection dir? 'direction)
57 (list 'verticalDirection dir? 'direction)
61 (define generic-script-properties
62 (cons 'script-interface
64 (list 'articulationScriptVerticalDirection dir? 'direction)
65 (list 'articulationScriptPadding number? 'padding)
72 (define generic-text-properties
73 (cons 'text-item-interface
75 (list 'textStyle string? 'style)
76 (list 'lyricAlignment dir? 'self-alignment-X)
77 (list 'textScriptPadding number? 'padding)
78 (list 'textVerticalAlignment dir? 'self-alignment-Y)
79 (list 'textHorizontalAlignment dir? 'self-alignment-X)
80 (list 'textScriptWordSpace number? 'word-space)
84 (define generic-sustain-pedal-properties
85 (cons 'sustain-pedal-interface
87 (list 'sustainPedalPadding number? 'padding))))
89 (define generic-chord-name-properties
90 (cons 'chord-name-interface
92 (list 'textScriptWordSpace number? 'word-space)
93 (list 'chordNameWordSpace number? 'word-space)
94 (list 'chordNameStyle string? 'style))))
96 (define generic-crescendo-properties
97 (cons 'crescendo-interface
99 (list 'dynamicDirection dir? 'direction)
100 (list 'verticalDirection dir? 'direction)
101 (list 'dynamicPadding number? 'padding)
102 (list 'dynamicMinimumSpace number? 'minimum-space)
105 (define generic-dynamic-line-spanner-properties
106 (cons 'dynamic-interface
108 (list 'dynamicDirection dir? 'direction)
109 (list 'verticalDirection dir? 'direction)
110 (list 'dynamicPadding number? 'padding)
111 (list 'dynamicMinimumSpace number? 'minimum-space)
114 (define generic-volta-spanner-properties
115 (cons 'volta-spanner-interface (list
116 (list 'voltaVerticalDirection dir? 'direction)
117 (list 'voltaPadding number? 'padding)
118 (list 'voltaMinimumSpace number? 'minimum-space)
121 (define generic-bar-properties
122 (cons 'staff-bar-interface
124 (list 'barSize number? 'bar-size))
128 (define generic-bar-number-properties
129 (cons 'bar-number-interface
131 (list 'barNumberScriptPadding number? 'padding)
132 (list 'barNumberDirection dir? 'direction)
139 ; don't do this yet. Depends on whennn the staff is really announced
140 (define generic-staff-symbol-properties
141 (cons 'staff-symbol-interface
147 (define generic-breathing-sign-properties
148 (cons 'breathing-sign-interface
150 (list 'breathingSignVerticalDirection dir? 'direction)
151 (list 'verticalDirection dir? 'direction)
154 (define generic-clef-properties
155 (cons 'clef-interface
157 (list 'clefStyle string? 'style))
161 (define generic-All-properties
163 (list (list 'fontSize number? 'font-relative-size))))
166 (define generic-notehead-properties
167 (cons 'note-head-interface
168 (list (list 'noteHeadStyle symbol? 'style))))
170 (define generic-notename-properties
171 (cons 'note-name-interface
172 (list (list 'noteNameStyle symbol? 'style))))
175 (define generic-porrectus-properties
176 (cons 'porrectus-interface
178 (list 'porrectusStyle symbol? 'style)
179 (list 'porrectusSolid boolean? 'solid)
180 (list 'porrectusAddStem boolean? 'add-stem)
181 (list 'porrectusStemDirection dir? 'stem-direction)
185 (define generic-rest-properties
186 (cons 'rest-interface
187 (list (list 'restStyle string? 'reststyle))))
189 (define generic-rest-collision-properties
190 (cons 'rest-collision-interface
191 (list (list 'maximumRestCount number? 'maximum-rest-count))))
193 (define generic-tie-properties
196 (list 'tieVerticalDirection dir? 'direction)
197 (list 'verticalDirection dir? 'direction)
198 (list 'tieDash number? 'dashed)
201 (define generic-tie-column-properties
202 (cons 'tie-column-interface (list
203 (list 'tieVerticalDirection dir? 'direction)
204 (list 'verticalDirection dir? 'direction)
207 (define generic-note-column-properties
208 (cons 'note-column-interface
210 (list 'horizontalNoteShift number? 'horizontal-shift)
211 (list 'forceHorizontalShift number? 'force-hshift)
214 (define generic-collision-properties
215 (cons 'collision-interface
217 (list 'collisionMergeDotted boolean? 'merge-differently-dotted)
222 (define generic-slur-properties
223 (cons 'slur-interface
225 (list 'slurVerticalDirection dir? 'direction)
226 (list 'verticalDirection dir? 'direction)
227 (list 'slurDash number? 'dashed))))
229 (define generic-timesig-properties
230 (cons 'time-signature-interface
232 (list 'timeSignatureStyle string? 'style))))
234 (define (symbol-or-boolean? s)
235 (or (boolean? s) (symbol? s)))
237 (define generic-tuplet-spanner-properties
238 (cons 'tuplet-spanner-interface
240 (list 'tupletDirection dir? 'direction)
241 (list 'tupletNumberVisibility symbol-or-boolean? 'tuplet-number-visibility)
242 (list 'tupletBracketVisibility symbol-or-boolean? 'tuplet-bracket-visibility)
251 ;; don't forget to add these to the Generic_property_list property in
254 (define generic-voice-properties
256 generic-stem-properties
257 generic-breathing-sign-properties
258 generic-crescendo-properties
259 generic-dynamic-line-spanner-properties
260 generic-tie-properties
261 generic-tie-column-properties
262 generic-tuplet-spanner-properties
263 generic-notehead-properties
264 generic-porrectus-properties
265 generic-rest-properties
266 generic-slur-properties
267 generic-beam-properties
268 generic-text-properties
269 generic-sustain-pedal-properties
270 generic-note-column-properties
271 generic-script-properties
272 generic-All-properties
275 (define generic-grace-properties generic-voice-properties)
276 (define generic-staff-properties
278 generic-text-properties
279 generic-bar-properties
280 generic-timesig-properties
281 generic-clef-properties
282 generic-collision-properties
283 generic-sustain-pedal-properties
284 generic-rest-collision-properties
285 generic-volta-spanner-properties
286 ; generic-staff-symbol-properties
287 generic-All-properties
290 (define generic-grand-staff-properties
292 generic-text-properties
293 generic-bar-properties
296 (define generic-thread-properties
297 (list generic-All-properties
298 generic-notehead-properties
299 generic-dot-properties
304 (define generic-lyrics-properties
305 (list generic-text-properties
309 (define generic-chord-staff-properties
310 (list generic-chord-name-properties