input/regression/note-head-style.ly

   1 \version "2.19.22"
   2 \header{
   3   texidoc="
   4 Note head shapes may be set from several choices.
   5 The stem endings should be adjusted according to the note head.
   6 If you want different note head styles on one stem,
   7 you must create a special context.
   8
   9 Harmonic notes have a different shape and different
  10 dimensions.
  11 "
  12 }
  13
  14 \layout {
  15   indent = 0.0
  16   ragged-right = ##t
  17 }
  18
  19 pattern =
  20 #(define-music-function (name style) (markup? ly:context-mod?)
  21 #{ <<
  22   s1^#name
  23   \new Voice \with #style {
  24     \override Stem.direction = #UP
  25     e'4 e'2. e'1 e'\breve*1/2 e'\longa*1/4
  26   }
  27   \new Voice \with #style {
  28     \override Stem.direction = #DOWN
  29     g4 g2. g1 g\breve*1/2 g\longa*1/4
  30   }
  31 >> #})
  32
  33 patternStyle =
  34 #(define-music-function (style) (symbol?)
  35   #{
  36      \pattern #(symbol->string style) \with {
  37        \override NoteHead.style = #style
  38      }
  39   #})
  40
  41 \transpose c c {
  42   \clef C
  43
  44   \patternStyle default
  45   \patternStyle altdefault
  46
  47   \break
  48
  49   \patternStyle baroque
  50   \patternStyle neomensural
  51
  52   \break
  53
  54   \patternStyle mensural
  55   \patternStyle petrucci
  56
  57   \break
  58
  59   \patternStyle harmonic
  60   \patternStyle harmonic-black
  61
  62   \break
  63
  64   \patternStyle harmonic-mixed
  65   \patternStyle diamond
  66
  67   \break
  68
  69   \patternStyle cross
  70   \patternStyle xcircle
  71
  72   \break
  73
  74   \patternStyle triangle
  75   \patternStyle slash
  76
  77   \break
  78
  79   \pattern "kievan" \with { \kievanOn }
  80
  81 }
  82
  83
  84