From 64a8914aa5a206e009cc517de739b8439d40b609 Mon Sep 17 00:00:00 2001
From: fred <fred>
Date: Mon, 10 Sep 2001 10:30:19 +0000
Subject: [PATCH] lilypond-1.5.10

---
 scm/generic-property.scm | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

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