-\version "1.9.2"
+\version "2.19.22"
\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.
+ 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. Nevertheless, noteheads in both styles can be combined, on
-either up or down stems.
+dimensions.
"
}
-\score {
- \notes \transpose c c {
- \clef C
-
- \property Staff.NoteHead \set #'style = #'default
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'default" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \set #'style = #'baroque
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'baroque" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \set #'style = #'neo_mensural
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'neo\_mensural" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \set #'style = #'mensural
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'mensural" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \set #'style = #'harmonic
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'harmonic" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \set #'style = #'diamond
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'diamond" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \set #'style = #'cross
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'cross" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \set #'style = #'xcircle
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'xcircle" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \set #'style = #'triangle
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'triangle" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \set #'style = #'slash
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'style = \#'slash" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \break
-
- \property Staff.NoteHead \override #'transparent = ##t
- <
- \new Voice {
- \property Voice.Stem \set #'direction = #1 %up
- e'16^\markup { "NoteHead \#'transparent = \#\#t" }
- e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
- }
- \new Voice {
- \property Voice.Stem \set #'direction = #-1 %down
- a16 a16 a8 a4 a2 a1 a\breve a\longa
- }
- >
- \property Staff.NoteHead \revert #'transparent
- \break
-
- \new Voice <
- \new Thread {
- \property Thread.NoteHead \set #'style = #'cross
- \property Voice.Stem \set #'direction = #1
- c'16
- }
- \new Thread {
- \property Thread.NoteHead \set #'style = #'default a16
- }
- \new Thread {
- \property Thread.NoteHead \set #'style = #'mensural d'16
- }
- >
-
- \context Voice <
- \new Thread {
- \property Thread.NoteHead \set #'style = #'cross
- c'4 c'4 c'4 c'4
- }
- \new Thread {
- \property Thread.NoteHead \set #'style = #'mensural
- c''4 \stemDown c''
- \property Thread.NoteHead \set #'style = #'slash
- \stemUp c''4 \stemDown c''
- }
- >
- }
+\layout {
+ indent = 0.0
+ ragged-right = ##t
+}
- \paper {
- indent = 0.0
- raggedright = ##t
+pattern =
+#(define-music-function (name style) (markup? ly:context-mod?)
+#{ <<
+ s1^#name
+ \new Voice \with #style {
+ \override Stem.direction = #UP
+ e'4 e'2. e'1 e'\breve*1/2 e'\longa*1/4
+ }
+ \new Voice \with #style {
+ \override Stem.direction = #DOWN
+ g4 g2. g1 g\breve*1/2 g\longa*1/4
}
+>> #})
+
+patternStyle =
+#(define-music-function (style) (symbol?)
+ #{
+ \pattern #(symbol->string style) \with {
+ \override NoteHead.style = #style
+ }
+ #})
+
+\transpose c c {
+ \clef C
+
+ \patternStyle default
+ \patternStyle altdefault
+
+ \break
+
+ \patternStyle baroque
+ \patternStyle neomensural
+
+ \break
+
+ \patternStyle mensural
+ \patternStyle petrucci
+
+ \break
+
+ \patternStyle harmonic
+ \patternStyle harmonic-black
+
+ \break
+
+ \patternStyle harmonic-mixed
+ \patternStyle diamond
+
+ \break
+
+ \patternStyle cross
+ \patternStyle xcircle
+
+ \break
+
+ \patternStyle triangle
+ \patternStyle slash
+
+ \break
+
+ \pattern "kievan" \with { \kievanOn }
+
}
+
+
+