+(define generic-sustain-pedal-properties
+ (cons 'sustain-pedal-interface
+ (list
+ (list 'sustainPedalPadding number? 'padding))))
+
+(define generic-chord-name-properties
+ (cons 'chord-name-interface
+ (list
+ (list 'textScriptWordSpace number? 'word-space)
+ (list 'chordNameWordSpace number? 'word-space)
+ (list 'chordNameStyle string? 'style))))
+