release: 1.3.121

[lilypond.git] / input / test / noteheadstyle.ly

diff --git a/input/test/noteheadstyle.ly b/input/test/noteheadstyle.ly
index 3db8223a4bc75849aa1a723888d5300a4b00b811..c59f40c073fc3a5ec266938a6dddd316fd869c57 100644 (file)
--- a/input/test/noteheadstyle.ly
+++ b/input/test/noteheadstyle.ly
@@ -1,29 +1,63 @@
+\header{
+texidoc="
+Note head shapes are settable.  The stem endings should be adjusted
+per note head.  If you want different note head styles on one stem,
+you must create a special context called Thread.
+
+Harmonic notes have a different shape and different
+dimensions. Nevertheless, noteheads in both styles can be combined, on
+either up or down stems.
+";
+}
+
+\version "1.3.117";
+
+
 \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
+% anyone wanna pop?
+c''4 c2 c8  c16 c16 c1 c\breve
+\property Voice.NoteHead \override #'style = #'diamond
+c4 c2 c8  c16 c16  c1 c\breve
+\property Voice.NoteHead \override #'style = #'transparent
+c4 c2 c8  c16 c16  c1 c\breve
+\property Voice.NoteHead \override #'style = #'cross
+c4 c2 c8  c16 c16  c1 c\breve
+\property Voice.NoteHead \override #'style = #'mensural
+c4 c2 c8  c16 c16  c1 c\breve c\longa
+\property Voice.NoteHead \override #'style = #'harmonic
+c4 c2 c8  c16 c16  c1 c\breve
+\property Voice.NoteHead \override #'style = #'baroque
+c4 c2 c8  c16 c16  c1 c\breve c\longa
+
 
    \context Voice <
     \context Thread = TA
-      { \property Thread.noteHeadStyle = "cross"
-        \property Voice.verticalDirection = \up c16} 
+      {
+        \property Thread.NoteHead \override #'style = #'cross
+        \property Voice.Stem \override #'direction = #1
+        c16
+       }
     \context Thread = TB
-      { \property Thread.noteHeadStyle = "" a16  }
-    
+      { \property Thread.NoteHead \override #'style = #'default a16  }
+
     \context Thread = TC
-      { \property Thread.noteHeadStyle = "harmonic" d16 }
-    
+      { \property Thread.NoteHead \override #'style = #'mensural d16 }
+
   >
+
+
+   \context Voice <\context Thread = TA {
+   \property Thread.NoteHead \override #'style = #'default
+   c4 c4 }
+\context Thread = TB {
+   \property Thread.NoteHead \override #'style = #'mensural
+  c'4 \stemDown c
+} >
+
 }
 
     \paper {
-       
-    }
+
+
+}
 }
-\version "1.0.21";