X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Documentation%2Fincluded%2Fnote-head-style.ly;fp=Documentation%2Fincluded%2Fnote-head-style.ly;h=471b79d9ee20d144c445e7a24a1f47c33bc7e616;hb=941dff9d2a67080e0dd8474f1e70f0c72ace6424;hp=0000000000000000000000000000000000000000;hpb=5a22d6233a39d3164e1ca043244794c268be4ad0;p=lilypond.git

diff --git a/Documentation/included/note-head-style.ly b/Documentation/included/note-head-style.ly
new file mode 100644
index 0000000000..471b79d9ee
--- /dev/null
+++ b/Documentation/included/note-head-style.ly
@@ -0,0 +1,104 @@
+\version "2.14.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 = #'altdefault
+  s1*0^\markup { "altdefault" }
+  \pattern
+
+  \break
+
+  \override Staff.NoteHead  #'style = #'baroque
+  s1*0^\markup { "baroque" }
+  \pattern
+
+  \override Staff.NoteHead  #'style = #'neomensural
+  s1*0^\markup { "neomensural" }
+  \pattern
+
+  \break
+
+  \override Staff.NoteHead  #'style = #'mensural
+  s1*0^\markup { "mensural" }
+  \pattern
+
+  \override Staff.NoteHead  #'style = #'petrucci
+  s1*0^\markup { "petrucci" }
+  \pattern
+
+  \break
+
+  \override Staff.NoteHead  #'style = #'harmonic
+  s1*0^\markup { "harmonic" }
+  \pattern
+
+  \override Staff.NoteHead  #'style = #'harmonic-black
+  s1*0^\markup { "harmonic-black" }
+  \pattern
+
+  \break
+
+  \override Staff.NoteHead  #'style = #'harmonic-mixed
+  s1*0^\markup { "harmonic-mixed" }
+  \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
+}
+
+
+