patch::: 1.3.48.mb1

[lilypond.git] / scm / generic-property.scm

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index dc20e838cc1553a4d9bc300f7713ec48815c827d..57ef8859ba40faaa66deba9e753b733bc648b2e4 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -1,4 +1,19 @@
 
+;
+; 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
@@ -49,21 +64,33 @@
                     (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)
+                     (list 'chordNameStyle string? 'style))))
+
 (define generic-crescendo-properties
   (cons "Crescendo" (list
-                    (list 'verticalDirection dir? 'direction)
                     (list 'dynamicDirection dir? 'direction)
+                    (list 'verticalDirection 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 'verticalDirection dir? 'direction)
                     (list 'dynamicPadding number? 'padding) 
                     (list 'dynamicMinimumSpace number? 'minimum-space) 
                     )))
@@ -105,6 +132,11 @@
 (define generic-All-properties
   (cons "all"  (list (list 'fontSize number? 'fontsize))))
 
+
+(define generic-notehead-properties
+  (cons "Note_head" (list (list 'noteHeadStyle symbol? 'style))))
+
+
 (define generic-rest-properties
   (cons "Rest" (list (list 'restStyle string? 'reststyle))))
 
@@ -115,14 +147,15 @@
   (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
@@ -161,6 +194,14 @@
        ))
 )
 
+
+
+
+
+;;;;;;;;;;
+;; don't forget to add these to the Generic_property_list property in
+;; engraver.ly
+
 (define generic-voice-properties
   (list
    generic-stem-properties
@@ -170,10 +211,12 @@
    generic-tie-properties
    generic-tie-column-properties   
    generic-tuplet-spanner-properties
+   generic-notehead-properties
    generic-rest-properties
    generic-slur-properties
    generic-beam-properties
    generic-text-properties
+   generic-sustain-pedal-properties
    generic-note-column-properties
    generic-script-properties
    generic-All-properties
@@ -187,6 +230,7 @@
    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
@@ -201,6 +245,7 @@
 
 (define generic-thread-properties
   (list generic-All-properties
+        generic-notehead-properties
        generic-dot-properties
        )
 
@@ -209,5 +254,9 @@
 (define generic-lyrics-properties
   (list generic-text-properties
   )
-  
+)
+
+(define generic-chord-staff-properties
+  (list generic-chord-name-properties
+  )
 )