X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fnoteheadstyle.ly;h=c59f40c073fc3a5ec266938a6dddd316fd869c57;hb=42c9f0b04886b8a8318cb23d7fe72a90abb41afe;hp=9ff6337dcfa6bc0f375847972458207c48d5e425;hpb=6d143896ed61a7171a8faba2d10f0605b8b14d10;p=lilypond.git

diff --git a/input/test/noteheadstyle.ly b/input/test/noteheadstyle.ly
index 9ff6337dcf..c59f40c073 100644
--- a/input/test/noteheadstyle.ly
+++ b/input/test/noteheadstyle.ly
@@ -1,43 +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 c\breve 
-\property Voice.noteHeadStyle = "diamond"
+% 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.noteHeadStyle = "transparent"
+\property Voice.NoteHead \override #'style = #'transparent
 c4 c2 c8  c16 c16  c1 c\breve
-\property Voice.noteHeadStyle = "cross"
+\property Voice.NoteHead \override #'style = #'cross
 c4 c2 c8  c16 c16  c1 c\breve
-\property Voice.noteHeadStyle = "mensural"
+\property Voice.NoteHead \override #'style = #'mensural
 c4 c2 c8  c16 c16  c1 c\breve c\longa
-\property Voice.noteHeadStyle = "harmonic"
+\property Voice.NoteHead \override #'style = #'harmonic
 c4 c2 c8  c16 c16  c1 c\breve
-\property Voice.noteHeadStyle = "baroque"
+\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 = "mensural" d16 }
-    
+      { \property Thread.NoteHead \override #'style = #'mensural d16 }
+
   >
 
-  
+
    \context Voice <\context Thread = TA {
-   \property Thread.noteHeadStyle = #'()
+   \property Thread.NoteHead \override #'style = #'default
    c4 c4 }
 \context Thread = TB {
-  \property Thread.noteHeadStyle = "mensural"
-  c'4 \stemdown c
+   \property Thread.NoteHead \override #'style = #'mensural
+  c'4 \stemDown c
 } >
 
 }
 
     \paper {
-       
-    }
+
+
+}
 }
-\version "1.3.42";