From: fred <fred>
Date: Wed, 27 Mar 2002 01:21:24 +0000 (+0000)
Subject: lilypond-1.5.10
X-Git-Tag: release/1.5.59~551
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9e65e91ae8263d2773ddb284b7131f6ac7727f9c;p=lilypond.git

lilypond-1.5.10
---

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index f5aba1fcc9..cf774ad231 100644
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -1,6 +1,11 @@
 
-; BROKEN as of 1.3.55, FIXME
-;
+
+
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; DEPRECATED -- DO NOT UPDATE ! -- DO NOT USE !
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
 ;
@@ -167,6 +172,16 @@
 	(list (list 'noteNameStyle symbol? 'style))))
 
 
+(define generic-porrectus-properties
+  (cons 'porrectus-interface
+	(list
+	 (list 'porrectusStyle symbol? 'style)
+	 (list 'porrectusSolid boolean? 'solid)
+	 (list 'porrectusAddStem boolean? 'add-stem)
+	 (list 'porrectusStemDirection dir? 'stem-direction)
+	 )))
+
+
 (define generic-rest-properties
   (cons 'rest-interface
 	(list (list 'restStyle string? 'reststyle))))
@@ -246,6 +261,7 @@
    generic-tie-column-properties   
    generic-tuplet-spanner-properties
    generic-notehead-properties
+   generic-porrectus-properties
    generic-rest-properties
    generic-slur-properties
    generic-beam-properties