*** empty log message ***

[lilypond.git] / input / regression / note-head-style.ly

diff --git a/input/regression/note-head-style.ly b/input/regression/note-head-style.ly
index 32f660bd0882b6cb6a9a64cedab23d22449587a4..c8050737441daaf67627728d4d88ca5a0f96fe3a 100644 (file)
--- a/input/regression/note-head-style.ly
+++ b/input/regression/note-head-style.ly
@@ -1,63 +1,83 @@
+\version "2.2.0"
 \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.
+Note head shapes may be set from several choices.  
+The stem endings should be adjusted according to the note head.  
+If you want different note head styles on one stem,
+you must create a special context.
 
 Harmonic notes have a different shape and different
-dimensions. Nevertheless, noteheads in both styles can be combined, on
-either up or down stems.
-";
+dimensions. 
+"
 }
 
-
-
-
-\score { \notes \relative c{
-
-c''4 c2 c8  c16 c16 c1 c\breve
-\property Voice.NoteHead \set #'style = #'diamond
-c4 c2 c8  c16 c16  c1 c\breve
-\property Voice.NoteHead \set #'style = #'transparent
-c4 c2 c8  c16 c16  c1 c\breve
-\property Voice.NoteHead \set #'style = #'cross
-c4 c2 c8  c16 c16  c1 c\breve
-\property Voice.NoteHead \set #'style = #'mensural
-c4 c2 c8  c16 c16  c1 c\breve c\longa
-\property Voice.NoteHead \set #'style = #'harmonic
-c4 c2 c8  c16 c16  c1 c\breve
-\property Voice.NoteHead \set #'style = #'baroque
-c4 c2 c8  c16 c16  c1 c\breve c\longa
-
-
-   \context Voice <
-    \context Thread = TA
-      {
-        \property Thread.NoteHead \set #'style = #'cross
-        \property Voice.Stem \set #'direction = #1
-        c16
-       }
-    \context Thread = TB
-      { \property Thread.NoteHead \set #'style = #'default a16  }
-
-    \context Thread = TC
-      { \property Thread.NoteHead \set #'style = #'mensural d16 }
-
-  >
-
-
-   \context Voice <\context Thread = TA {
-   \property Thread.NoteHead \set #'style = #'default
-   c4 c4 }
-\context Thread = TB {
-   \property Thread.NoteHead \set #'style = #'mensural
-  c'4 \stemDown c
-} >
-
-}
-
-    \paper {
-
-
-}
+pattern = \notes <<
+      \new Voice {
+        \override Stem  #'direction = #UP
+        e'4
+         e'2. e'1 e'\breve*1/2 e'\longa*1/4
+      }
+      \new Voice {
+        \override Stem  #'direction = #DOWN
+         a4 a2. a1 a\breve*1/2 a\longa*1/4
+      }
+    >>
+
+\score {
+  \notes \transpose c c {
+    \clef C
+
+    \override Staff.NoteHead  #'style = #'default
+    s1*0^\markup { "default" }
+    \pattern
+
+    \override Staff.NoteHead  #'style = #'baroque
+    s1*0^\markup { "baroque" }
+    \pattern
+        \break
+
+    \override Staff.NoteHead  #'style = #'neo_mensural
+    s1*0^\markup { "neomensural" }
+    \pattern
+
+    \override Staff.NoteHead  #'style = #'mensural
+    s1*0^\markup { "mensural" }
+    \pattern
+    
+    \break
+
+    \override Staff.NoteHead  #'style = #'harmonic
+    s1*0^\markup { "harmonic" }
+    \pattern
+
+    \override Staff.NoteHead  #'style = #'diamond
+    s1*0^\markup { "diamond" }
+    \pattern
+    \break
+
+    \override Staff.NoteHead  #'style = #'cross
+    s1*0^\markup { "cross" }
+    \pattern
+
+    \override Staff.NoteHead  #'style = #'xcircle
+    s1*0^\markup { "xcircle" }
+\pattern
+    
+    \break
+
+    \override Staff.NoteHead  #'style = #'triangle
+    s1*0^\markup { "triangle" }
+    \pattern
+    
+
+    \override Staff.NoteHead  #'style = #'slash
+    s1*0^\markup { "slash" }
+    \pattern
+    \break
+  }
+
+  \paper {
+    indent = 0.0
+    raggedright = ##t
+  }
 }