diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2003-08-27 23:57:53 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2003-08-27 23:57:53 +0000 |
| commit | 74452b9d42befc2e0b5ca2451857758c81e60762 (patch) | |
| tree | 81144d026cf3fdce1b8f2cda7e3cdf09ad770683 /scm | |
| parent | 3b122b1ee17867bb76e9def476495383220ace59 (diff) | |
(set-stop-grace-properties)
(set-start-grace-properties, add-grace-property): new functions
for modular grace tweak control.
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/auto-beam.scm | 4 | ||||
| -rw-r--r-- | scm/music-functions.scm | 8 | ||||
| -rw-r--r-- | scm/output-lib.scm | 3 |
3 files changed, 7 insertions, 8 deletions
diff --git a/scm/auto-beam.scm b/scm/auto-beam.scm index 277b7de603..d40e52860c 100644 --- a/scm/auto-beam.scm +++ b/scm/auto-beam.scm @@ -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)) diff --git a/scm/music-functions.scm b/scm/music-functions.scm index b7c6730469..73a398cffe 100644 --- a/scm/music-functions.scm +++ b/scm/music-functions.scm @@ -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) )))) diff --git a/scm/output-lib.scm b/scm/output-lib.scm index 9cb6ed627f..13fbfe9bd1 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -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)) |