-\version "2.4.0"
+\version "2.19.22"
\header{
-texidoc="
-Note head shapes may be set from several choices.
-The stem endings should be adjusted according to the note head.
+ 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.
+dimensions.
"
}
-pattern = <<
- \new Voice {
- \override Stem #'direction = #UP
+\layout {
+ indent = 0.0
+ ragged-right = ##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 {
- \override Stem #'direction = #DOWN
- a4 a2. a1 a\breve*1/2 a\longa*1/4
+ \new Voice \with #style {
+ \override Stem.direction = #DOWN
+ g4 g2. g1 g\breve*1/2 g\longa*1/4
}
->>
+>> #})
-\score {
- \transpose c c {
- \clef C
+patternStyle =
+#(define-music-function (style) (symbol?)
+ #{
+ \pattern #(symbol->string style) \with {
+ \override NoteHead.style = #style
+ }
+ #})
- \override Staff.NoteHead #'style = #'default
- s1*0^\markup { "default" }
- \pattern
+\transpose c c {
+ \clef C
- \override Staff.NoteHead #'style = #'baroque
- s1*0^\markup { "baroque" }
- \pattern
+ \patternStyle default
+ \patternStyle altdefault
- \break
+ \break
- \override Staff.NoteHead #'style = #'neomensural
- s1*0^\markup { "neomensural" }
- \pattern
+ \patternStyle baroque
+ \patternStyle neomensural
- \override Staff.NoteHead #'style = #'mensural
- s1*0^\markup { "mensural" }
- \pattern
+ \break
- \break
+ \patternStyle mensural
+ \patternStyle petrucci
- \override Staff.NoteHead #'style = #'petrucci
- s1*0^\markup { "petrucci" }
- \pattern
+ \break
- \override Staff.NoteHead #'style = #'harmonic
- s1*0^\markup { "harmonic" }
- \pattern
+ \patternStyle harmonic
+ \patternStyle harmonic-black
- \break
+ \break
- \override Staff.NoteHead #'style = #'diamond
- s1*0^\markup { "diamond" }
- \pattern
+ \patternStyle harmonic-mixed
+ \patternStyle diamond
- \override Staff.NoteHead #'style = #'cross
- s1*0^\markup { "cross" }
- \pattern
+ \break
- \break
+ \patternStyle cross
+ \patternStyle xcircle
- \override Staff.NoteHead #'style = #'xcircle
- s1*0^\markup { "xcircle" }
- \pattern
+ \break
- \override Staff.NoteHead #'style = #'triangle
- s1*0^\markup { "triangle" }
- \pattern
+ \patternStyle triangle
+ \patternStyle slash
- \break
+ \break
- \override Staff.NoteHead #'style = #'slash
- s1*0^\markup { "slash" }
- \pattern
- }
+ \pattern "kievan" \with { \kievanOn }
- \layout {
- indent = 0.0
- raggedright = ##t
- }
}
+
+
+