From: fred <fred>
Date: Wed, 14 Apr 1999 10:06:57 +0000 (+0000)
Subject: lilypond-1.1.40
X-Git-Tag: release/1.5.59~5797
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dde9a7232cd03541ca1e3bb57991227d9ffa36ed;p=lilypond.git

lilypond-1.1.40
---

diff --git a/input/test/noteheadstyle.ly b/input/test/noteheadstyle.ly
new file mode 100644
index 0000000000..47755da84e
--- /dev/null
+++ b/input/test/noteheadstyle.ly
@@ -0,0 +1,42 @@
+\score { \notes \relative c{
+c''4 c2 c8  c16 c16 c1 
+\property Voice.noteHeadStyle = "diamond"
+c4 c2 c8  c16 c16  c1
+\property Voice.noteHeadStyle = "transparent"
+c4 c2 c8  c16 c16  c1
+\property Voice.noteHeadStyle = "cross"
+c4 c2 c8  c16 c16  c1
+\property Voice.noteHeadStyle = "harmonic"
+c4 c2 c8  c16 c16  c1
+
+   \type ThreadedVoice <
+    \type Thread = TA
+      { \property Thread.noteHeadStyle = "cross"
+        \property ThreadedVoice.ydirection = \up c16} 
+    \type Thread = TB
+      { \property Thread.noteHeadStyle = "" a16  }
+    
+    \type Thread = TC
+      { \property Thread.noteHeadStyle = "harmonic" d16 }
+    
+  >
+}
+
+    \paper {
+        \translator {
+	  \VoiceContext
+	  \remove Note_heads_engraver;
+	  \accepts Thread;
+	  \name ThreadedVoice;
+	}
+	\translator {
+	  \StaffContext
+	  \accepts ThreadedVoice;
+	}
+	\translator {
+	  \type Engraver_group_engraver;
+	  \consists Note_heads_engraver;
+	  \name Thread;
+	}
+    }
+}