-shiftOn = \override NoteColumn #'horizontal-shift = #1
-shiftOnn = \override NoteColumn #'horizontal-shift = #2
-shiftOnnn = \override NoteColumn #'horizontal-shift = #3
+phrasingSlurDashed = {
+ \override PhrasingSlur #'dash-definition = #'((0 1 0.4 0.75))
+}
+phrasingSlurDashPattern =
+#(define-music-function (parser location dash-fraction dash-period)
+ (number? number?)
+ #{
+ \override PhrasingSlur #'dash-definition =
+ $(make-simple-dash-definition dash-fraction dash-period)
+ #})
+phrasingSlurDotted = {
+ \override PhrasingSlur #'dash-definition = #'((0 1 0.1 0.75))
+}
+phrasingSlurHalfDashed = {
+ \override PhrasingSlur #'dash-definition = #'((0 0.5 0.4 0.75)
+ (0.5 1 1 1))
+}
+phrasingSlurHalfSolid = {
+ \override PhrasingSlur #'dash-definition = #'((0 0.5 1 1)
+ (0.5 1 0.4 0.75))
+}
+phrasingSlurSolid = {
+ \revert PhrasingSlur #'dash-definition
+}
+
+mergeDifferentlyDottedOn = {
+ \override Staff.NoteCollision #'merge-differently-dotted = ##t
+}
+mergeDifferentlyDottedOff = {
+ \revert Staff.NoteCollision #'merge-differently-dotted
+}
+
+mergeDifferentlyHeadedOn = {
+ \override Staff.NoteCollision #'merge-differently-headed = ##t
+}
+mergeDifferentlyHeadedOff = {
+ \revert Staff.NoteCollision #'merge-differently-headed
+}
+
+shiftOn = \override NoteColumn #'horizontal-shift = #1
+shiftOnn = \override NoteColumn #'horizontal-shift = #2
+shiftOnnn = \override NoteColumn #'horizontal-shift = #3