-cresc = \notes {
- \commandspanrequest \start "crescendo"
- \property Voice.crescendoText = #'((font-shape . italic) "cresc.")
- \property Voice.crescendoSpanner = #'dashed-line
+
+cr = #(make-span-event 'CrescendoEvent START)
+decr = #(make-span-event 'DecrescendoEvent START)
+enddecr = #(make-span-event 'DecrescendoEvent STOP)
+endcr = #(make-span-event 'CrescendoEvent STOP)
+
+
+startTextSpan = #(make-span-event 'TextSpanEvent START)
+stopTextSpan = #(make-span-event 'TextSpanEvent STOP)
+
+
+startTrillSpan = #(make-span-event 'TrillSpanEvent START)
+stopTrillSpan = #(make-span-event 'TrillSpanEvent STOP)
+
+
+% STOP: junkme!
+cresc = {
+ #(ly:export (make-event-chord (list cr)))
+ \once \set crescendoText = \markup { \italic "cresc." }
+ \once \set crescendoSpanner = #'text
+}
+
+
+dim = {
+ #(ly:export (make-event-chord (list decr)))
+ \once \set decrescendoText = \markup { \italic "dim." }
+ \once \set decrescendoSpanner = #'text