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