X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Fnote-head-style.ly;h=987b312febc4e69a14f6e4e3c1f3cdd1522b91be;hb=205b8c57c9d2ff16adfa82bad73965a3e90645a5;hp=023ece9ff430e16db9ebac37709c94859c6cb307;hpb=9c31b0d42a407a412a324a6586cfb0437de4bfd8;p=lilypond.git

diff --git a/input/regression/note-head-style.ly b/input/regression/note-head-style.ly
index 023ece9ff4..987b312feb 100644
--- a/input/regression/note-head-style.ly
+++ b/input/regression/note-head-style.ly
@@ -1,83 +1,84 @@
-\version "2.1.36"
+\version "2.17.6"
 \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 = \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
-  }
+\layout {
+  indent = 0.0
+  ragged-right = ##t
+}
 
-  \paper {
-    indent = 0.0
-    raggedright = ##t
+pattern =
+#(define-music-function (parser location 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 (parser location 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 }
+
 }
+
+
+