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)
13 startTextSpan = #(make-span-event 'TextSpanEvent START)
14 stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
17 startTrillSpan = #(make-span-event 'TrillSpanEvent START)
18 stopTrillSpan = #(make-span-event 'TrillSpanEvent STOP)
23 #(ly:export (make-event-chord (list cr)))
24 \set crescendoText = \markup { \italic "cresc." }
25 \set crescendoSpanner = #'text
30 #(ly:export (make-event-chord (list decr)))
32 \set decrescendoText = \markup { \italic "dim." }
33 \set decrescendoSpanner = #'text
37 #(ly:export (make-event-chord (list enddecr)))
38 \unset decrescendoText
39 \unset decrescendoSpanner
42 % ah, this is handy: maybe drop resetting of properties in
45 #(ly:export (make-event-chord (list endcr)))
47 \unset crescendoSpanner
53 \set crescendoText = \markup { \italic "cresc." }
54 \set crescendoSpanner = #'text
55 \override DynamicTextSpanner #'style = #'dashed-line
59 \set decrescendoText = \markup { \italic "decresc." }
60 \set decrescendoSpanner = #'text
61 \override DynamicTextSpanner #'style = #'dashed-line
65 \set decrescendoText = \markup { \italic "decr." }
66 \set decrescendoSpanner = #'text
67 \override DynamicTextSpanner #'style = #'dashed-line
71 \set decrescendoText = \markup { \italic "dim." }
72 \set decrescendoSpanner = #'text
73 \override DynamicTextSpanner #'style = #'dashed-line
78 \unset crescendoSpanner
82 \unset decrescendoText
83 \unset decrescendoSpanner
87 \unset decrescendoText
88 \unset decrescendoSpanner
93 % better name sustainstart/stop?
94 sustainUp = #(make-span-event 'SustainEvent STOP)
95 sustainDown = #(make-span-event 'SustainEvent START)
97 unaCorda = #(make-span-event 'UnaCordaEvent START)
98 treCorde = #(make-span-event 'UnaCordaEvent STOP)
100 sostenutoDown = #(make-span-event 'SostenutoEvent START)
101 sostenutoUp = #(make-span-event 'SostenutoEvent STOP)
103 %crescpoco = \set crescendoText = "cresc. poco a poco"
104 %decresc = \set crescendoText = "decr."
105 %dim = \set crescendoText = "dim."
107 newSpacingSection = #(make-event-chord (list (make-music 'SpacingSectionEvent)))