* scm/define-grobs.scm (all-grob-descriptions): reorganize in

[lilypond.git] / ly / dynamic-scripts-init.ly

diff --git a/ly/dynamic-scripts-init.ly b/ly/dynamic-scripts-init.ly
index b6393ac000df934721bce212b944c92fb7443923..439e6d184b56ac4d910dc5b87574c77479d823c4 100644 (file)
--- a/ly/dynamic-scripts-init.ly
+++ b/ly/dynamic-scripts-init.ly
@@ -1,22 +1,22 @@
-\version "2.1.26"
+\version "2.6.0"
 
 %
 % declare the standard dynamic identifiers.
 %
 
 #(define (make-dynamic-script str)
-  (let* ((m (make-music-by-name  'AbsoluteDynamicEvent)))
-  (ly:music-set-property! m 'text str)
-  m
-  ))
-ppppp = #(make-dynamic-script "pppp")
+   (make-music 'AbsoluteDynamicEvent
+              'text str))
+ppppp = #(make-dynamic-script "ppppp")
 pppp = #(make-dynamic-script "pppp")
 ppp = #(make-dynamic-script "ppp")
 pp = #(make-dynamic-script "pp")
 p = #(make-dynamic-script "p")
 mp = #(make-dynamic-script "mp")
 mf = #(make-dynamic-script "mf")
-f = #(make-dynamic-script "f")
+
+%% f is pitch.
+"f" = #(make-dynamic-script "f")
 ff = #(make-dynamic-script "ff")
 fff = #(make-dynamic-script "fff")
 ffff = #(make-dynamic-script "ffff")