]> git.donarmstrong.com Git - lilypond.git/blob - ly/dynamic-scripts-init.ly
004ef5823b59e7f5d4e0b28dcd9019deb0f372d8
[lilypond.git] / ly / dynamic-scripts-init.ly
1 \version "1.9.8"
2
3 %
4 % declare the standard dynamic identifiers.
5 %
6
7 #(define (make-dynamic-script str)
8   (let* ((m (make-music-by-name  'AbsoluteDynamicEvent)))
9   (ly:set-mus-property! m 'text str)
10   m
11   ))
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")
32