(Grace notes): explain grace

after  main note.

diff --git a/ChangeLog b/ChangeLog
index 5059764932495b0541af16708c8db56cdba24b6b..688d51e9c70964bb534bea9a2505a3dc6efb4f3f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2002-08-12  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
+       * Documentation/user/refman.itely (Grace notes): explain grace
+       after  main note.
+
+       * input/test/ : small convert-ly mishaps.
+
        * Documentation/user/preface.itely: small bits 
 
        * Documentation/user/introduction.itely: add sectioning

diff --git a/Documentation/user/refman.itely b/Documentation/user/refman.itely
index 9c66868d85573da199fabb29f077b2817d8669a0..1e80a15f8e81fed6be8085f4a7fbc0e3b36d196a 100644 (file)
--- a/Documentation/user/refman.itely
+++ b/Documentation/user/refman.itely
@@ -1950,6 +1950,17 @@ standard definitions are in @file{ly/grace-init.ly}.
 }
 @end lilypond
 
+If you want to end a note with a grace note, then the standard trick
+is to put the grace notes before a phantom ``space note'', e.g.
+@lilypond[fragment,verbatim, relative=2]
+\context Voice {
+    < { d1^\trill ( }
+     { s2 \grace { [c16 d] } } >
+   )c4
+}
+@end lilypond
+
+
 @refbugs
 
 Grace note synchronization can also lead to surprises. Staff notation,

diff --git a/input/test/add-staccato.ly b/input/test/add-staccato.ly
index 3f772c75f2a57d3bc7f2dc6363d3619a2c9aadf6..8384a70d02fb4dcf507f7421664fc6dfc53889d6 100644 (file)
--- a/input/test/add-staccato.ly
+++ b/input/test/add-staccato.ly
@@ -9,13 +9,13 @@ one would not use scm constructs.  See separate-staccato.ly first."
 
 #(define (make-script x)
    (let ((m (ly-make-music "Articulation_req")))
-     (ly-set-mus-property!! m 'articulation-type x)
-     (ly-set-mus-property!! m 'script x)
+     (ly-set-mus-property! m 'articulation-type x)
+     (ly-set-mus-property! m 'script x)
      m))
     
 #(define (add-script m x)
    (if (equal? (ly-music-name m) "Request_chord")
-       (ly-set-mus-property!! m 'elements
+       (ly-set-mus-property! m 'elements
                            (cons (make-script x)
                                  (ly-get-mus-property m 'elements)))
 

diff --git a/input/test/broken-spanner-adjustment.ly b/input/test/broken-spanner-adjustment.ly
index 8bac2d9f7af015b3a49eaa2d3d40768f03e9b668..7755b5c4ac8eafc62cae484c6de0adec6c9bd000 100644 (file)
--- a/input/test/broken-spanner-adjustment.ly
+++ b/input/test/broken-spanner-adjustment.ly
@@ -17,7 +17,7 @@ this requires complicated scheme code.
     ;; if you're using this for other grob-types.
     
     (if (and  (>= (length b) 2) (eq? (car (last-pair b)) grob))
-       (ly-set-grob-property!! grob 'extra-offset '(4 . -2))
+       (ly-set-grob-property! grob 'extra-offset '(4 . -2))
        )
   ))
 

diff --git a/input/test/voicify-chords.ly b/input/test/voicify-chords.ly
index 86283a2262b7a2aed10e0a92903d6562aee9be9b..a5fedf43ff618cd62d93bfae1a61772cd800dc5b 100644 (file)
--- a/input/test/voicify-chords.ly
+++ b/input/test/voicify-chords.ly
@@ -24,7 +24,7 @@
    (let* ((es (ly-get-mus-property ch 'elements)))
 
 
-     (ly-set-mus-property!! ch 'elements
+     (ly-set-mus-property! ch 'elements
        (voicify-list (split-list es music-separator?) 0))
      ch
    ))
@@ -47,9 +47,9 @@
       (voicify-chord m)
       (begin
        (if (pair? es)
-           (ly-set-mus-property!! m 'elements (map voicify-music es)))
+           (ly-set-mus-property! m 'elements (map voicify-music es)))
        (if (music? e)
-           (ly-set-mus-property!! m 'element  (voicify-music e)))
+           (ly-set-mus-property! m 'element  (voicify-music e)))
            
        m)
       

diff --git a/scripts/convert-ly.py b/scripts/convert-ly.py
index 9d9d08e96df86b861d7454df6382eb7cb7139288..ceef2f27e1a63d72ca433d98997d1c7e3b502fc6 100644 (file)
--- a/scripts/convert-ly.py
+++ b/scripts/convert-ly.py
@@ -936,8 +936,8 @@ if 1:
 
 if 1:
        def conv (str):
-               str = re.sub ('ly-set-grob-property', 'ly-set-grob-property!', str)
-               str = re.sub ('ly-set-mus-property', 'ly-set-mus-property!', str)               
+               str = re.sub ('ly-set-grob-property([^!])', 'ly-set-grob-property!\1', str)
+               str = re.sub ('ly-set-mus-property([^!])', 'ly-set-mus-property!\1', str)               
                return str
        
        conversions.append (((1,5,68), conv, 'ly-set-X-property -> ly-set-X-property!'))