From: fred <fred>
Date: Tue, 26 Mar 2002 22:43:11 +0000 (+0000)
Subject: lilypond-1.3.4
X-Git-Tag: release/1.5.59~2002
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=79aa4a3d9714fe746f56e41571a878f9ebb79290;p=lilypond.git

lilypond-1.3.4
---

diff --git a/ly/property.ly b/ly/property.ly
index ddc99ba507..b056e35111 100644
--- 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 463fad46e5..88b6b6a3e1 100644
--- 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