''

[lilypond.git] / scm / generic-property.scm

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index 740f0a641afb9ec0d01b57d8edecdfe577489091..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 !
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
 ;
@@ -39,6 +44,7 @@
         (list 'verticalDirection dir? 'direction)       
         (list 'stemLength number? 'length)
         (list 'flagStyle string? 'flag-style)
+        (list 'style symbol? 'style)
         (list 'noStemExtend boolean? 'no-stem-extend)
         (list 'stemShorten number? 'shorten)
         ))
@@ -166,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))))
@@ -245,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