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
)
21 episemInitium
= #(make-span-event
'EpisemaEvent START
)
22 episemFinis
= #(make-span-event
'EpisemaEvent STOP
)
27 #(ly
:export
(make-event-chord
(list cr
)))
28 \once \set crescendoText
= \markup { \italic "cresc." }
29 \once \set crescendoSpanner
= #'text
34 #(ly
:export
(make-event-chord
(list decr
)))
35 \once \set decrescendoText
= \markup { \italic "dim." }
36 \once \set decrescendoSpanner
= #'text
40 #(ly
:export
(make-event-chord
(list enddecr
)))
41 % \unset decrescendoText
42 % \unset decrescendoSpanner
46 #(ly
:export
(make-event-chord
(list endcr
)))
47 % \unset crescendoText
48 % \unset crescendoSpanner
54 \set crescendoText
= \markup { \italic "cresc." }
55 \set crescendoSpanner
= #'text
56 \override DynamicTextSpanner
#'style
= #'dashed-line
60 \set decrescendoText
= \markup { \italic "decresc." }
61 \set decrescendoSpanner
= #'text
62 \override DynamicTextSpanner
#'style
= #'dashed-line
66 \set decrescendoText
= \markup { \italic "decr." }
67 \set decrescendoSpanner
= #'text
68 \override DynamicTextSpanner
#'style
= #'dashed-line
72 \set decrescendoText
= \markup { \italic "dim." }
73 \set decrescendoSpanner
= #'text
74 \override DynamicTextSpanner
#'style
= #'dashed-line
79 \unset crescendoSpanner
83 \unset decrescendoText
84 \unset decrescendoSpanner
88 sustainOff
= #(make-span-event
'SustainEvent STOP
)
89 sustainOn
= #(make-span-event
'SustainEvent START
)
91 unaCorda
= #(make-span-event
'UnaCordaEvent START
)
92 treCorde
= #(make-span-event
'UnaCordaEvent STOP
)
94 sostenutoOn
= #(make-span-event
'SostenutoEvent START
)
95 sostenutoOff
= #(make-span-event
'SostenutoEvent STOP
)
97 %crescpoco = \set crescendoText = "cresc. poco a poco"
98 %decresc = \set crescendoText = "decr."
99 %dim = \set crescendoText = "dim."
101 newSpacingSection
= #(make-event-chord
(list
(make-music
'SpacingSectionEvent
)))