From e6e3d79d66363468f4959780660b2ae3f61d2b7b Mon Sep 17 00:00:00 2001
From: Graham Percival <graham@percival-music.ca>
Date: Sun, 4 Feb 2007 16:01:54 -0800
Subject: [PATCH] Add example of note head styles to docs.

---
 input/manual/note-head-style.ly | 100 ++++++++++++++++++++++++++++++++
 1 file changed, 100 insertions(+)
 create mode 100644 input/manual/note-head-style.ly

diff --git a/input/manual/note-head-style.ly b/input/manual/note-head-style.ly
new file mode 100644
index 0000000000..c561eec4d1
--- /dev/null
+++ b/input/manual/note-head-style.ly
@@ -0,0 +1,100 @@
+\version "2.10.0"
+\header{
+  texidoc="
+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. 
+"
+}
+
+\layout {
+  indent = 0.0
+  ragged-right = ##t
+}
+
+pattern = <<
+  \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
+  }
+>>
+
+
+\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 = #'neomensural
+  s1*0^\markup { "neomensural" }
+  \pattern
+
+  \override Staff.NoteHead  #'style = #'mensural
+  s1*0^\markup { "mensural" }
+  \pattern
+
+  \break
+
+  \override Staff.NoteHead  #'style = #'petrucci
+  s1*0^\markup { "petrucci" }
+  \pattern
+
+  \override Staff.NoteHead  #'style = #'harmonic
+  s1*0^\markup { "harmonic" }
+  \pattern
+
+  \break
+
+  \override Staff.NoteHead  #'style = #'harmonic-black
+  s1*0^\markup { "harmonic-black" }
+  \pattern
+
+  \override Staff.NoteHead  #'style = #'harmonic-mixed
+  s1*0^\markup { "harmonic-mixed" }
+  \pattern
+
+  \break
+
+  \override Staff.NoteHead  #'style = #'diamond
+  s1*0^\markup { "diamond" }
+  \pattern
+
+  \override Staff.NoteHead  #'style = #'cross
+  s1*0^\markup { "cross" }
+  \pattern
+
+  \break
+
+  \override Staff.NoteHead  #'style = #'xcircle
+  s1*0^\markup { "xcircle" }
+  \pattern
+
+  \override Staff.NoteHead  #'style = #'triangle
+  s1*0^\markup { "triangle" }
+  \pattern
+
+  \break
+
+  \override Staff.NoteHead  #'style = #'slash
+  s1*0^\markup { "slash" }
+  \pattern
+}
+
+
+
-- 
2.39.2