From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 12 Aug 2002 09:49:45 +0000 (+0000)
Subject: (Grace notes): explain grace
X-Git-Tag: release/1.5.72~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=88a9c480ef77b6b0856b0c634ad2d52dc64b0362;p=lilypond.git

(Grace notes): explain grace
after  main note.
---

diff --git a/ChangeLog b/ChangeLog
index 5059764932..688d51e9c7 100644
--- 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 9c66868d85..1e80a15f8e 100644
--- 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 3f772c75f2..8384a70d02 100644
--- 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 8bac2d9f7a..7755b5c4ac 100644
--- 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 86283a2262..a5fedf43ff 100644
--- 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 9d9d08e96d..ceef2f27e1 100644
--- 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!'))