-% better name sustainstart/stop?
-sustainUp = #(make-span-event 'SustainEvent STOP)
-sustainDown = #(make-span-event 'SustainEvent START)
+dimTextDecr = {
+ \set decrescendoText = \markup { \italic "decr." }
+ \set decrescendoSpanner = #'text
+ \override DynamicTextSpanner #'style = #'dashed-line
+}
+
+dimTextDim = {
+ \set decrescendoText = \markup { \italic "dim." }
+ \set decrescendoSpanner = #'text
+ \override DynamicTextSpanner #'style = #'dashed-line
+}
+
+crescHairpin = {
+ \unset crescendoText
+ \unset crescendoSpanner
+}
+
+dimHairpin = {
+ \unset decrescendoText
+ \unset decrescendoSpanner
+}
+
+
+sustainOff = #(make-span-event 'SustainEvent STOP)
+sustainOn = #(make-span-event 'SustainEvent START)