5 groupOpen = #(make-span-event 'NoteGroupingEvent START)
6 groupClose = #(make-span-event 'NoteGroupingEvent STOP)
9 cr = #(make-span-event 'CrescendoEvent START)
10 rc = #(make-span-event 'CrescendoEvent STOP)
11 decr = #(make-span-event 'DecrescendoEvent START)
12 rced = #(make-span-event 'DecrescendoEvent STOP)
14 startTextSpan = #(make-span-event 'TextSpanEvent START)
15 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
18 #(ly:export (make-event-chord (list cr)))
19 \property Voice.crescendoText = #'((font-shape . italic) "cresc.")
20 \property Voice.crescendoSpanner = #'dashed-line
23 % ah, this is handy: maybe drop resetting of properties in
26 #(ly:export (make-event-chord (list rc)))
27 \property Voice.crescendoText \unset
28 \property Voice.crescendoSpanner \unset
32 #(ly:export (make-event-chord (list decr)))
34 \property Voice.decrescendoText = #"dim."
35 \property Voice.decrescendoSpanner = #'dashed-line
39 #(ly:export (make-event-chord (list rced)))
40 \property Voice.decrescendoText \unset
41 \property Voice.decrescendoSpanner \unset
46 cresc = \spanevent \start "crescendo"
47 endcresc = \spanevent \stop "crescendo"
51 % better name sustainstart/stop?
52 sustainUp = #(make-span-event 'SustainEvent STOP)
53 sustainDown = #(make-span-event 'SustainEvent START)
55 unaCorda = #(make-span-event 'UnaCordaEvent START)
56 treCorde = #(make-span-event 'UnaCordaEvent STOP)
58 sostenutoDown = #(make-span-event 'SostenutoEvent START)
59 sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
61 %crescpoco = \property Voice.crescendoText = "cresc. poco a poco"
62 %decresc = \property Voice.crescendoText = "decr."
63 %dim = \property Voice.crescendoText = "dim."