X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=ly%2Fdynamic-scripts-init.ly;h=f66696f8f1906eca28b1436ab0def590d623b5c6;hb=5d84bfad4626892bcffd05adcced53c8a2329047;hp=21657e9c9d77f503c82771283a4751e539fcc7f3;hpb=e9bd265943d37689b1a6892217cb6f67bbe69f73;p=lilypond.git

diff --git a/ly/dynamic-scripts-init.ly b/ly/dynamic-scripts-init.ly
index 21657e9c9d..f66696f8f1 100644
--- a/ly/dynamic-scripts-init.ly
+++ b/ly/dynamic-scripts-init.ly
@@ -1,25 +1,28 @@
-\version "1.9.1"
+\version "2.16.0"
 
 %
 % declare the standard dynamic identifiers.
 %
 
 #(define (make-dynamic-script str)
-  (let* ((m (make-music-by-name  'AbsoluteDynamicEvent)))
-  (ly:set-mus-property! m 'text str)
-  m
-  ))
-ppppp = #(make-dynamic-script "pppp")
+   (make-music 'AbsoluteDynamicEvent
+              'text str))
+
+%% don't exceed ppppp or fffff; see midi.scm.
+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")
+fffff = #(make-dynamic-script "fffff")
 fp = #(make-dynamic-script "fp")
 sf = #(make-dynamic-script "sf")
 sfp = #(make-dynamic-script "sfp")
@@ -29,4 +32,3 @@ fz = #(make-dynamic-script "fz")
 sp = #(make-dynamic-script "sp")
 spp = #(make-dynamic-script "spp")
 rfz = #(make-dynamic-script "rfz")
-