+;
+; Format:
+; (cons "Type name"
+; (list PROPERTYDESCRIPTIONS))
+;
+; where
+; PROPERTYDESCRIPTION
+; is
+;
+; (list 'translatorPropertySymbol type-predicate backend-property-symbol)
+;
+; Descriptions earlier in the list take precedence over later descriptions.
+;
+
+
(define generic-beam-properties
(cons "Beam"
(list
(list 'textScriptPadding number? 'padding)
(list 'textVerticalAlignment dir? 'self-alignment-Y)
(list 'textHorizontalAlignment dir? 'self-alignment-X)
+ (list 'textScriptWordSpace number? 'word-space)
)
))
+(define generic-sustain-pedal-properties
+ (cons "Sustain_pedal" (list
+ (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)
(list 'dynamicDirection dir? 'direction)
+ (list 'dynamicPadding number? 'padding)
+ (list 'dynamicMinimumSpace number? 'minimum-space)
+ )))
+
+(define generic-dynamic-line-spanner-properties
+ (cons "Dynamic_line_spanner" (list
(list 'verticalDirection dir? 'direction)
+ (list 'dynamicDirection dir? 'direction)
(list 'dynamicPadding number? 'padding)
+ (list 'dynamicMinimumSpace number? 'minimum-space)
+ )))
+
+(define generic-volta-spanner-properties
+ (cons "Volta_spanner" (list
+ (list 'voltaVerticalDirection dir? 'direction)
+ (list 'voltaPadding number? 'padding)
+ (list 'voltaMinimumSpace number? 'minimum-space)
)))
(define generic-bar-properties
(define generic-rest-properties
(cons "Rest" (list (list 'restStyle string? 'reststyle))))
+(define generic-rest-collision-properties
+ (cons "Rest_collision" (list (list 'maximumRestCount number? 'maximum-rest-count))))
+
(define generic-tie-properties
(cons "Tie" (list
(list 'tieVerticalDirection dir? 'direction)
(list 'verticalDirection dir? 'direction)
+(list 'tieDash number? 'dashed)
)))
+
(define generic-tie-column-properties
(cons "Tie_column" (list
(list 'tieVerticalDirection dir? 'direction)
(list 'verticalDirection dir? 'direction)
)))
-
(define generic-note-column-properties
(cons "Note_column"
(list
(list 'tupletBracketVisibility symbol-or-boolean? 'tuplet-bracket-visibility)
))
)
-
+
+
+
+
+
+;;;;;;;;;;
+;; don't forget to add these to the Generic_property_list property in
+;; engraver.ly
+
(define generic-voice-properties
(list
generic-stem-properties
generic-breathing-sign-properties
+ generic-crescendo-properties
+ generic-dynamic-line-spanner-properties
generic-tie-properties
generic-tie-column-properties
generic-tuplet-spanner-properties
generic-slur-properties
generic-beam-properties
generic-text-properties
+ generic-sustain-pedal-properties
generic-note-column-properties
- generic-crescendo-properties
generic-script-properties
generic-All-properties
))
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
generic-All-properties
)
)
+(define generic-lyrics-properties
+ (list generic-text-properties
+ )
+)
+
+(define generic-chord-staff-properties
+ (list generic-chord-name-properties
+ )
+)