From 400f771c529b5b348084b66776b9a62c7b391628 Mon Sep 17 00:00:00 2001
From: Graham Percival <graham@percival-music.ca>
Date: Thu, 15 Nov 2007 12:34:46 -0800
Subject: [PATCH] Add properties which greatly simplify the docs.

---
 ly/property-init.ly | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 0dea5a48fb..257227dd41 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -216,3 +216,29 @@ textSpannerUp = \override TextSpanner #'direction = #UP
 textSpannerDown = \override TextSpanner #'direction = #DOWN
 textSpannerNeutral = \revert TextSpanner #'direction
 
+%  used in the LM -- signficantly clarifies examples.
+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
+}
+voiceNeutralStyle = {
+  \revert NoteHead #'style
+  \revert NoteHead #'color
+  \revert Stem #'color
+  \revert Beam #'color
+}
+
-- 
2.39.5