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 sustainOff
= #(make-span-event
'SustainEvent STOP
)
88 sustainOn
= #(make-span-event
'SustainEvent START
)
90 unaCorda
= #(make-span-event
'UnaCordaEvent START
)
91 treCorde
= #(make-span-event
'UnaCordaEvent STOP
)
93 sostenutoOn
= #(make-span-event
'SostenutoEvent START
)
94 sostenutoOff
= #(make-span-event
'SostenutoEvent STOP
)
96 %crescpoco = \set crescendoText = "cresc. poco a poco"
97 %decresc = \set crescendoText = "decr."
98 %dim = \set crescendoText = "dim."
100 newSpacingSection
= #(make-event-chord
(list
(make-music
'SpacingSectionEvent
)))