(list 'beamSlopeDamping number? 'damping)
(list 'autoKneeGap number? 'auto-knee-gap)
(list 'autoInterstaffKneeGap number? 'auto-interstaff-knee-gap)
- (list 'beamQuantisation symbol? 'slope-quantisation)
(list 'beamDirAlgorithm symbol? 'beam-dir-algorithm)
+ (list 'beamHeight number? 'height-hs)
+ (list 'beamVerticalPosition number? 'y-position-hs)
)
)
)
(list 'stemVerticalDirection dir? 'direction)
(list 'verticalDirection dir? 'direction)
(list 'stemLength number? 'length)
- (list 'stemStyle string? 'style)
+ (list 'flagStyle string? 'flag-style)
+ (list 'stemCentered boolean? 'stem-centered)
(list 'noStemExtend boolean? 'no-stem-extend)
+ (list 'stemShorten number? 'shorten)
))
)
(list 'barSize number? 'bar-size))
)
)
+
+(define generic-staff-symbol-properties
+ (cons "Staff_symbol" (list
+ (list 'numberOfStaffLines number? 'line-count)
+ (list 'staffSpace number? 'staff-space)
+ )
+ )
+ )
+
(define generic-breathing-sign-properties
(cons "Breathing_sign"
(list
(list 'forceHorizontalShift number? 'force-hshift)
)))
+(define generic-collision-properties
+ (cons "Collision"
+ (list
+ (list 'collisionMergeDotted boolean? 'merge-differently-dotted)
+ )
+ )
+ )
+
(define generic-slur-properties
(cons "Slur"
(list
generic-bar-properties
generic-timesig-properties
generic-clef-properties
+ generic-collision-properties
+ generic-staff-symbol-properties
generic-All-properties
)
)
generic-bar-properties
))
-
(define generic-thread-properties
(list generic-All-properties
generic-dot-properties
-
)
)