+setTextDecr = {
+ \set decrescendoText = \markup { \italic "decr." }
+ \set decrescendoSpanner = #'text
+ \override DynamicTextSpanner #'style = #'dashed-line
+}
+
+setTextDim = {
+ \set decrescendoText = \markup { \italic "dim." }
+ \set decrescendoSpanner = #'text
+ \override DynamicTextSpanner #'style = #'dashed-line
+}
+
+setHairpinCresc = {
+ \unset crescendoText
+ \unset crescendoSpanner
+}
+
+setHairpinDecresc = {
+ \unset decrescendoText
+ \unset decrescendoSpanner
+}
+
+setHairpinDim = {
+ \unset decrescendoText
+ \unset decrescendoSpanner
+}