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 'beamQuantisation symbol? 'slope-quantisation)
9 (list 'beamDirAlgorithm symbol? 'beam-dir-algorithm)
15 (define generic-stem-properties
18 (list 'stemVerticalDirection dir? 'direction)
19 (list 'verticalDirection dir? 'direction)
20 (list 'stemLength number? 'length)
21 (list 'stemStyle string? 'style)
22 (list 'noStemExtend boolean? 'no-stem-extend)
26 (define generic-dot-properties
28 (list 'dotDirection dir? 'direction)
29 (list 'verticalDirection dir? 'direction)
33 (define generic-text-properties
34 (cons "Text_item" (list
35 (list 'textStyle string? 'style)
36 (list 'textScriptPadding number? 'padding)
40 (define generic-bar-properties
41 (cons "Staff_bar" (list
42 (list 'barSize number? 'bar-size))
45 (define generic-breathing-sign-properties
46 (cons "Breathing_sign"
48 (list 'breathingSignVerticalDirection dir? 'direction)
49 (list 'verticalDirection dir? 'direction)
52 (define generic-clef-properties
55 (list 'clefStyle string? 'style))
59 (define generic-All-properties
60 (cons "all" (list (list 'fontSize number? 'fontsize))))
62 (define generic-rest-properties
63 (cons "Rest" (list (list 'restStyle string? 'reststyle))))
65 (define generic-tie-properties
67 (list 'tieVerticalDirection dir? 'direction)
68 (list 'verticalDirection dir? 'direction)
72 (define generic-note-column-properties
75 (list 'horizontalNoteShift number? 'horizontal-shift)
76 (list 'forceHorizontalShift number? 'force-hshift)
79 (define generic-slur-properties
82 (list 'slurVerticalDirection dir? 'direction)
83 (list 'verticalDirection dir? 'direction)
84 (list 'slurDash number? 'dashed))))
86 (define generic-timesig-properties
87 (cons "Time_signature"
89 (list 'timeSignatureStyle string? 'sigstyle))))
91 (define generic-voice-properties
93 generic-stem-properties
94 generic-breathing-sign-properties
95 generic-tie-properties
96 generic-rest-properties
97 generic-slur-properties
98 generic-beam-properties
99 generic-text-properties
100 generic-note-column-properties
101 generic-All-properties
104 (define generic-grace-properties generic-voice-properties)
105 (define generic-staff-properties
107 generic-bar-properties
108 generic-timesig-properties
109 generic-clef-properties
110 generic-All-properties
114 (define generic-thread-properties
115 (list generic-All-properties
116 generic-dot-properties