From: Graham Percival <graham@percival-music.ca>
Date: Thu, 15 Nov 2007 20:34:46 +0000 (-0800)
Subject: Add properties which greatly simplify the docs.
X-Git-Tag: release/2.11.35-1~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=400f771c529b5b348084b66776b9a62c7b391628;p=lilypond.git

Add properties which greatly simplify the docs.
---

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
+}
+