(list 'textScriptPadding number? 'padding)
(list 'textVerticalAlignment dir? 'self-alignment-Y)
(list 'textHorizontalAlignment dir? 'self-alignment-X)
+ (list 'textScriptWordSpace number? 'word-space)
)
))
(list 'textScriptPadding number? 'padding)
(list 'sustainPedalPadding number? 'padding))))
+(define generic-chord-name-properties
+ (cons "Chord_name" (list
+ (list 'textScriptWordSpace number? 'word-space)
+ (list 'chordNameWordSpace number? 'word-space))))
+
(define generic-crescendo-properties
(cons "Crescendo" (list
(list 'verticalDirection dir? 'direction)
generic-timesig-properties
generic-clef-properties
generic-collision-properties
+ generic-sustain-pedal-properties
generic-rest-collision-properties
generic-volta-spanner-properties
; generic-staff-symbol-properties
(list generic-text-properties
)
)
+
+(define generic-chord-staff-properties
+ (list generic-chord-name-properties
+ )
+)