lilypond-1.3.4

diff --git a/ly/property.ly b/ly/property.ly
index ddc99ba5078de2f4a7791bf45686df8fa330fd62..b056e3511126c42c57794a4d37758fb06387a708 100644 (file)
--- a/ly/property.ly
+++ b/ly/property.ly
@@ -13,6 +13,7 @@ SEE THE REFERENCE MANUAL FOR EXPLANATIONS.
 %hmm, (these) abbrevs suck, imo
 % i guess they're meant as some form of doco
 % that's what i use them for...
+
 stemup =        \property Voice.verticalDirection = \up 
 stemboth=      \property Voice.verticalDirection = \center
 stemdown =     \property Voice.verticalDirection = \down

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index 463fad46e522e01d391437cb3c65aae19a65d413..88b6b6a3e19cae5729d7b18e240f0d436fd17e01 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -15,6 +15,8 @@
 (define generic-stem-properties
   (cons "Stem"
        (list
+        (list 'stemVerticalDirection dir? 'direction)
+        (list 'verticalDirection dir? 'direction)       
         (list 'stemLength number? 'length)
         (list 'stemStyle string? 'style)
         (list 'noStemExtend boolean? 'no-stem-extend)
@@ -36,6 +38,8 @@
 (define generic-breathing-sign-properties
   (cons "Breathing_sign"
        (list
+        (list 'breathingSignVerticalDirection dir? 'direction)
+        (list 'verticalDirection dir? 'direction)
         (list 'breathingSignBreakPriority number? 'break-priority
          ))))
 
@@ -53,6 +57,13 @@
 (define generic-rest-properties
   (cons "Rest" (list (list 'restStyle string? 'reststyle))))
 
+(define generic-tie-properties
+  (cons "Tie" (list
+              (list 'tieVerticalDirection dir? 'direction)
+              (list 'verticalDirection dir? 'direction)
+  )))
+
+
 (define generic-note-column-properties
   (cons "Note_column"
        (list
@@ -63,6 +74,8 @@
 (define generic-slur-properties
   (cons "Slur"
        (list
+        (list 'slurVerticalDirection dir? 'direction)
+        (list 'verticalDirection dir? 'direction)       
         (list 'slurDash number? 'dashed))))
 
 (define generic-timesig-properties