3 startCluster = #(make-span-event 'ClusterEvent START)
4 stopCluster = #(make-span-event 'ClusterEvent STOP)
7 startGroup = #(make-span-event 'NoteGroupingEvent START)
8 stopGroup = #(make-span-event 'NoteGroupingEvent STOP)
11 cr = #(make-span-event 'CrescendoEvent START)
12 decr = #(make-span-event 'DecrescendoEvent START)
13 enddecr = #(make-span-event 'DecrescendoEvent STOP)
14 endcr = #(make-span-event 'CrescendoEvent STOP)
16 %% TODO: remove for 2.0
20 startTextSpan = #(make-span-event 'TextSpanEvent START)
21 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
24 #(ly:export (make-event-chord (list cr)))
25 \property Voice.crescendoText = \markup { \italic "cresc." }
26 \property Voice.crescendoSpanner = #'dashed-line
29 % ah, this is handy: maybe drop resetting of properties in
32 #(ly:export (make-event-chord (list rc)))
33 \property Voice.crescendoText \unset
34 \property Voice.crescendoSpanner \unset
38 #(ly:export (make-event-chord (list decr)))
40 \property Voice.decrescendoText = \markup { \italic "dim." }
41 \property Voice.decrescendoSpanner = #'dashed-line
45 #(ly:export (make-event-chord (list rced)))
46 \property Voice.decrescendoText \unset
47 \property Voice.decrescendoSpanner \unset
52 cresc = \spanevent \start "crescendo"
53 endcresc = \spanevent \stop "crescendo"
57 % better name sustainstart/stop?
58 sustainUp = #(make-span-event 'SustainEvent STOP)
59 sustainDown = #(make-span-event 'SustainEvent START)
61 unaCorda = #(make-span-event 'UnaCordaEvent START)
62 treCorde = #(make-span-event 'UnaCordaEvent STOP)
64 sostenutoDown = #(make-span-event 'SostenutoEvent START)
65 sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
67 %crescpoco = \property Voice.crescendoText = "cresc. poco a poco"
68 %decresc = \property Voice.crescendoText = "decr."
69 %dim = \property Voice.crescendoText = "dim."