release: 1.3.23

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

diff --git a/scm/generic-property.scm b/scm/generic-property.scm
index ff15c7c2a172b7ad6f3b7311e0aa0cc8f1a6cd18..6b7d312993dd31b4944f592fcb5fb448f50f58bb 100644 (file)
--- a/scm/generic-property.scm
+++ b/scm/generic-property.scm
@@ -6,8 +6,8 @@
         (list 'autoKneeGap number? 'auto-knee-gap)
         (list 'autoInterstaffKneeGap number? 'auto-interstaff-knee-gap)
         (list 'beamDirAlgorithm symbol? 'beam-dir-algorithm)
-        (list 'beamHeight number? 'Height)
-        (list 'beamVerticalPosition number? 'verticalPosition)
+        (list 'beamHeight number? 'height-hs)
+        (list 'beamVerticalPosition number? 'y-position-hs)
         )
        )
   )
@@ -127,17 +127,30 @@
        (list
         (list 'timeSignatureStyle string? 'style))))
 
+(define (symbol-or-boolean? s)
+  (or (boolean? s) (symbol? s)))
+
+(define generic-tuplet-spanner-properties
+  (cons "Tuplet_spanner"
+       (list
+        (list 'tupletNumberVisibility symbol-or-boolean? 'tuplet-number-visibility)
+        (list 'tupletBracketVisibility symbol-or-boolean? 'tuplet-bracket-visibility)
+       ))
+)
+ 
 (define generic-voice-properties
   (list
    generic-stem-properties
    generic-breathing-sign-properties
    generic-tie-properties
+   generic-tuplet-spanner-properties
    generic-rest-properties
    generic-slur-properties
    generic-beam-properties
    generic-text-properties
    generic-note-column-properties
    generic-crescendo-properties
+   generic-script-properties
    generic-All-properties
    ))