3 startGroup = #(make-span-event 'NoteGroupingEvent START)
4 stopGroup = #(make-span-event 'NoteGroupingEvent STOP)
7 cr = #(make-span-event 'CrescendoEvent START)
8 decr = #(make-span-event 'DecrescendoEvent START)
9 enddecr = #(make-span-event 'DecrescendoEvent STOP)
10 endcr = #(make-span-event 'CrescendoEvent STOP)
12 %% TODO: remove for 2.0
16 startTextSpan = #(make-span-event 'TextSpanEvent START)
17 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
20 #(ly:export (make-event-chord (list cr)))
21 \set crescendoText = \markup { \italic "cresc." }
22 \set crescendoSpanner = #'dashed-line
25 % ah, this is handy: maybe drop resetting of properties in
28 #(ly:export (make-event-chord (list rc)))
30 \unset crescendoSpanner
34 #(ly:export (make-event-chord (list decr)))
36 \set decrescendoText = \markup { \italic "dim." }
37 \set decrescendoSpanner = #'dashed-line
41 #(ly:export (make-event-chord (list rced)))
42 \unset decrescendoText
43 \unset decrescendoSpanner
48 cresc = \spanevent \start "crescendo"
49 endcresc = \spanevent \stop "crescendo"
53 % better name sustainstart/stop?
54 sustainUp = #(make-span-event 'SustainEvent STOP)
55 sustainDown = #(make-span-event 'SustainEvent START)
57 unaCorda = #(make-span-event 'UnaCordaEvent START)
58 treCorde = #(make-span-event 'UnaCordaEvent STOP)
60 sostenutoDown = #(make-span-event 'SostenutoEvent START)
61 sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
63 %crescpoco = \set crescendoText = "cresc. poco a poco"
64 %decresc = \set crescendoText = "decr."
65 %dim = \set crescendoText = "dim."