lilypond-1.1.40

diff --git a/input/test/noteheadstyle.ly b/input/test/noteheadstyle.ly
new file mode 100644 (file)
index 0000000..47755da
--- /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;
+       }
+    }
+}