-\version "1.9.7"
+\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")
sp = #(make-dynamic-script "sp")
spp = #(make-dynamic-script "spp")
rfz = #(make-dynamic-script "rfz")
-