lilypond-1.5.10

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index f5aba1fcc9d58d52d00507e642513f0f74bdf485..cf774ad23173a2c61a5c8f076344926e20325584 100644 (file)
--- 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