-oneVoice = #(context-spec-music (make-voice-props-revert) "Voice")
-voiceOne = #(context-spec-music (make-voice-props-set 0) "Voice")
-voiceTwo = #(context-spec-music (make-voice-props-set 1) "Voice")
-voiceThree =#(context-spec-music (make-voice-props-set 2) "Voice")
-voiceFour = #(context-spec-music (make-voice-props-set 3) "Voice")
-
-% There's also dash, but setting dash period/length should be fixed.
-slurDotted = \property Voice.Slur \set #'dashed = #1
-slurSolid = \property Voice.Slur \revert #'dashed
-tieDotted = \property Voice.Tie \set #'dashed = #1
-tieSolid = \property Voice.Tie \revert #'dashed
+oneVoice = #(context-spec-music (make-voice-props-revert) 'Voice)
+voiceOne = #(context-spec-music (make-voice-props-set 0) 'Voice)
+voiceTwo = #(context-spec-music (make-voice-props-set 1) 'Voice)
+voiceThree =#(context-spec-music (make-voice-props-set 2) 'Voice)
+voiceFour = #(context-spec-music (make-voice-props-set 3) 'Voice)
+
+voiceOneStyle = {
+ \override NoteHead #'style = #'diamond
+ \override NoteHead #'color = #red
+ \override Stem #'color = #red
+ \override Beam #'color = #red
+}
+voiceTwoStyle = {
+ \override NoteHead #'style = #'triangle
+ \override NoteHead #'color = #blue
+ \override Stem #'color = #blue
+ \override Beam #'color = #blue
+}
+voiceThreeStyle = {
+ \override NoteHead #'style = #'xcircle
+ \override NoteHead #'color = #green
+ \override Stem #'color = #green
+ \override Beam #'color = #green
+}
+voiceFourStyle = {
+ \override NoteHead #'style = #'cross
+ \override NoteHead #'color = #magenta
+ \override Stem #'color = #magenta
+ \override Beam #'color = #magenta
+}
+voiceNeutralStyle = {
+ \revert NoteHead #'style
+ \revert NoteHead #'color
+ \revert Stem #'color
+ \revert Beam #'color
+}