(set-stop-grace-properties)
authorhanwen <hanwen>
Wed, 27 Aug 2003 23:57:53 +0000 (23:57 +0000)
committerhanwen <hanwen>
Wed, 27 Aug 2003 23:57:53 +0000 (23:57 +0000)
(set-start-grace-properties, add-grace-property): new functions
for modular grace tweak control.

scm/auto-beam.scm
scm/music-functions.scm
scm/output-lib.scm

index 277b7de6031fe5aa964c4715b7ad4aeaadcacdf9..d40e52860cc5d66943eefa03b960927553fdbac9 100644 (file)
@@ -88,7 +88,7 @@
   "Like the C++ code that executes \override, but without type
 checking. "
 
-  (ly:set-context-property context context-prop
+  (ly:set-context-property! context context-prop
                           (cons (cons setting value)
                                 (ly:get-context-property context context-prop)
                                 )
@@ -110,7 +110,7 @@ a fresh copy of the  list-head is made."
 
   
   
-    (ly:set-context-property
+    (ly:set-context-property!
      context context-prop
      (revert-assoc (ly:get-context-property context context-prop)
                   setting))
index b7c6730469b51cd283e0413c6129deaf76c48052..73a398cffef6557205292782d99557d393974a0c 100644 (file)
@@ -332,7 +332,7 @@ and set OTTAVATION to `8va', or whatever appropriate."
                ((where (ly:context-property-where-defined context 'centralCPosition))
                 (oc0 (ly:get-context-property context 'originalCentralCPosition)))
 
-             (ly:set-context-property context 'centralCPosition oc0)
+             (ly:set-context-property! context 'centralCPosition oc0)
              (ly:unset-context-property where 'originalCentralCPosition)
              (ly:unset-context-property where 'ottavation))
 
@@ -347,9 +347,9 @@ and set OTTAVATION to `8va', or whatever appropriate."
                                              (-1 . "8va bassa")
                                              (-2 . "15ma bassa"))))))
 
-             (ly:set-context-property context 'centralCPosition new-c0)
-             (ly:set-context-property context 'originalCentralCPosition c0)
-             (ly:set-context-property context 'ottavation string)
+             (ly:set-context-property! context 'centralCPosition new-c0)
+             (ly:set-context-property! context 'originalCentralCPosition c0)
+             (ly:set-context-property! context 'ottavation string)
              
              ))))
 
index 9cb6ed627fd3293d608d337b723ad581a33bb7a0..13fbfe9bd109708cb8b30088db530c3e3caa31ca 100644 (file)
@@ -230,8 +230,7 @@ centered, X==1 is at the right, X == -1 is at the left."
 
 (define-public ((set-bar-number-visibility n) tr)
   (let* ((bn (ly:get-context-property tr 'currentBarNumber)))
-   (ly:set-context-property tr 'barNumberVisibility (modulo-bar-number-visible n (modulo bn n))))
-)
+   (ly:set-context-property! tr 'barNumberVisibility (modulo-bar-number-visible n (modulo bn n)))))
 
 (define-public (default-bar-number-visibility barnum) (> barnum 1))