4 % declare the standard dynamic identifiers.
7 #(define
(make-dynamic-script str
)
8 (let
* ((m
(make-music-by-name
'AbsoluteDynamicEvent
)))
9 (ly
:set-mus-property
! m
'text str
)
12 ppppp
= #(make-dynamic-script
"pppp")
13 pppp
= #(make-dynamic-script
"pppp")
14 ppp
= #(make-dynamic-script
"ppp")
15 pp
= #(make-dynamic-script
"pp")
16 p
= #(make-dynamic-script
"p")
17 mp
= #(make-dynamic-script
"mp")
18 mf
= #(make-dynamic-script
"mf")
19 f = #(make-dynamic-script
"f")
20 ff
= #(make-dynamic-script
"ff")
21 fff
= #(make-dynamic-script
"fff")
22 ffff
= #(make-dynamic-script
"ffff")
23 fp
= #(make-dynamic-script
"fp")
24 sf
= #(make-dynamic-script
"sf")
25 sfp
= #(make-dynamic-script
"sfp")
26 sff
= #(make-dynamic-script
"sff")
27 sfz
= #(make-dynamic-script
"sfz")
28 fz
= #(make-dynamic-script
"fz")
29 sp
= #(make-dynamic-script
"sp")
30 spp
= #(make-dynamic-script
"spp")
31 rfz
= #(make-dynamic-script
"rfz")