release: 1.3.8

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

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index de341d58cecf191f8b5544cae8973d3903cd2f70..48b92431a6216d22b04fdb396dcfe1721d3cc794 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -29,14 +29,33 @@
                (list 'verticalDirection dir? 'direction)
                )
        ))
-  
+
+(define generic-script-properties
+  (cons "Script" (list
+                 (list 'articulationScriptVerticalDirection dir? 'direction)
+                 (list 'articulationScriptPadding number? 'padding)
+
+                 ))
+  )
+
+
+
 (define generic-text-properties
   (cons "Text_item" (list
                     (list 'textStyle string? 'style)
                     (list 'textScriptPadding number? 'padding)
+                    (list 'textVerticalAlignment dir? 'self-alignment-Y)
+                    (list 'textHorizontalAlignment dir? 'self-alignment-X)
                     )
        ))
 
+(define generic-crescendo-properties
+  (cons "Crescendo" (list
+                    (list 'dynamicDirection dir? 'direction)
+                    (list 'verticalDirection dir? 'direction)
+                    (list 'dynamicPadding number? 'padding) 
+                    )))
+  
 (define generic-bar-properties
   (cons "Staff_bar" (list
                     (list 'barSize number? 'bar-size))
@@ -98,18 +117,26 @@
    generic-beam-properties
    generic-text-properties
    generic-note-column-properties
+   generic-crescendo-properties
    generic-All-properties
    ))
 
 (define generic-grace-properties generic-voice-properties)
 (define generic-staff-properties
   (list
+   generic-text-properties   
    generic-bar-properties
    generic-timesig-properties
    generic-clef-properties
    generic-All-properties      
    )
   )
+(define generic-grand-staff-properties
+  (list
+   generic-text-properties   
+   generic-bar-properties
+   ))
+
 
 (define generic-thread-properties
   (list generic-All-properties