From 2ad893a2effbf9db83b369c14b3740284d71eeba Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Mon, 8 Nov 1999 14:54:52 +0000
Subject: [PATCH] lilypond-1.3.4

---
 ly/property.ly           |  1 +
 scm/generic-property.scm | 13 +++++++++++++
 2 files changed, 14 insertions(+)

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
-- 
2.11.4.GIT