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 'stemLength number? 'length)
19 (list 'stemStyle string? 'style)
20 (list 'noStemExtend boolean? 'no-stem-extend)
24 (define generic-text-properties
25 (cons "Text_item" (list
26 (list 'textStyle string? 'style)
27 (list 'textScriptPadding number? 'padding)
31 (define generic-bar-properties
32 (cons "Staff_bar" (list
33 (list 'barSize number? 'bar-size))
36 (define generic-breathing-sign-properties
37 (cons "Breathing_sign"
39 (list 'breathingSignBreakPriority number? 'break-priority
42 (define generic-clef-properties
45 (list 'clefBreakPriority number? 'break-priority)
46 (list 'clefStyle string? 'style))
50 (define generic-All-properties
51 (cons "all" (list (list 'fontSize number? 'fontsize))))
53 (define generic-rest-properties
54 (cons "Rest" (list (list 'restStyle string? 'reststyle))))
56 (define generic-note-column-properties
59 (list 'horizontalNoteShift number? 'horizontal-shift)
60 (list 'forceHorizontalShift number? 'force-hshift)
63 (define generic-slur-properties
66 (list 'slurDash number? 'dashed))))
68 (define generic-timesig-properties
69 (cons "Time_signature"
71 (list 'timeSignatureStyle string? 'sigstyle))))
73 (define generic-voice-properties
75 generic-stem-properties
76 generic-rest-properties
77 generic-slur-properties
78 generic-beam-properties
79 generic-text-properties
80 generic-note-column-properties
81 generic-All-properties
84 (define generic-grace-properties generic-voice-properties)
85 (define generic-staff-properties
87 generic-bar-properties
88 generic-timesig-properties
89 generic-clef-properties
90 generic-All-properties
94 (define generic-thread-properties
95 (list generic-All-properties))