2 (define generic-beam-properties
5 (list 'beamSlopeDamping number? 'damping)
6 (list 'autoKneeGap number? 'auto-knee-gap)
7 (list 'autoInterstaffKneeGap number? 'auto-interstaff-knee-gap)
8 (list 'beamDirAlgorithm symbol? 'beam-dir-algorithm)
9 (list 'beamSlope number? 'height)
10 (list 'beamVerticalPosition number? 'y-position)
16 (define generic-stem-properties
19 (list 'stemVerticalDirection dir? 'direction)
20 (list 'verticalDirection dir? 'direction)
21 (list 'stemLength number? 'length)
22 (list 'flagStyle string? 'flag-style)
23 (list 'stemCentered boolean? 'stem-centered)
24 (list 'noStemExtend boolean? 'no-stem-extend)
25 (list 'stemShorten number? 'shorten)
29 (define generic-dot-properties
31 (list 'dotDirection dir? 'direction)
32 (list 'verticalDirection dir? 'direction)
36 (define generic-script-properties
38 (list 'articulationScriptVerticalDirection dir? 'direction)
39 (list 'articulationScriptPadding number? 'padding)
46 (define generic-text-properties
47 (cons "Text_item" (list
48 (list 'textStyle string? 'style)
49 (list 'textScriptPadding number? 'padding)
50 (list 'textVerticalAlignment dir? 'self-alignment-Y)
51 (list 'textHorizontalAlignment dir? 'self-alignment-X)
55 (define generic-crescendo-properties
56 (cons "Crescendo" (list
57 (list 'dynamicDirection dir? 'direction)
58 (list 'verticalDirection dir? 'direction)
59 (list 'dynamicPadding number? 'padding)
62 (define generic-bar-properties
63 (cons "Staff_bar" (list
64 (list 'barSize number? 'bar-size))
68 (define staff-symbol-properties
69 (cons "Staff_symbol" (list
70 (list 'numberOfStaffLines number? 'line-count)
71 (list 'staffSpace number? 'staff-space)
76 (define generic-breathing-sign-properties
77 (cons "Breathing_sign"
79 (list 'breathingSignVerticalDirection dir? 'direction)
80 (list 'verticalDirection dir? 'direction)
83 (define generic-clef-properties
86 (list 'clefStyle string? 'style))
90 (define generic-All-properties
91 (cons "all" (list (list 'fontSize number? 'fontsize))))
93 (define generic-rest-properties
94 (cons "Rest" (list (list 'restStyle string? 'reststyle))))
96 (define generic-tie-properties
98 (list 'tieVerticalDirection dir? 'direction)
99 (list 'verticalDirection dir? 'direction)
103 (define generic-note-column-properties
106 (list 'horizontalNoteShift number? 'horizontal-shift)
107 (list 'forceHorizontalShift number? 'force-hshift)
110 (define generic-collision-properties
113 (list 'collisionMergeDotted boolean? 'merge-differently-dotted)
118 (define generic-slur-properties
121 (list 'slurVerticalDirection dir? 'direction)
122 (list 'verticalDirection dir? 'direction)
123 (list 'slurDash number? 'dashed))))
125 (define generic-timesig-properties
126 (cons "Time_signature"
128 (list 'timeSignatureStyle string? 'style))))
130 (define generic-voice-properties
132 generic-stem-properties
133 generic-breathing-sign-properties
134 generic-tie-properties
135 generic-rest-properties
136 generic-slur-properties
137 generic-beam-properties
138 generic-text-properties
139 generic-note-column-properties
140 generic-crescendo-properties
141 generic-All-properties
144 (define generic-grace-properties generic-voice-properties)
145 (define generic-staff-properties
147 generic-text-properties
148 generic-bar-properties
149 generic-timesig-properties
150 generic-clef-properties
151 generic-collision-properties
152 generic-All-properties
155 (define generic-grand-staff-properties
157 generic-text-properties
158 generic-bar-properties
161 (define generic-thread-properties
162 (list generic-All-properties
163 generic-dot-properties