input/regression/note-head-style.ly

   1 \version "2.1.7"
   2 \header{
   3 texidoc="
   4 Note head shapes are settable.  The stem endings should be adjusted
   5 per note head.  If you want different note head styles on one stem,
   6 you must create a special context called Thread.
   7
   8 Harmonic notes have a different shape and different
   9 dimensions. Nevertheless, noteheads in both styles can be combined, on
  10 either up or down stems.
  11 "
  12 }
  13
  14 pattern = \notes <<
  15       \new Voice {
  16         \property Voice.Stem \set #'direction = #UP
  17         e'4
  18          e'2. e'1 e'\breve*1/2 e'\longa*1/4
  19       }
  20       \new Voice {
  21         \property Voice.Stem \set #'direction = #DOWN
  22          a4 a2. a1 a\breve*1/2 a\longa*1/4
  23       }
  24     >>
  25
  26 \score {
  27   \notes \transpose c c {
  28     \clef C
  29
  30     \property Staff.NoteHead \set #'style = #'default
  31     s1*0^\markup { "default" }
  32     \pattern
  33
  34     \property Staff.NoteHead \set #'style = #'baroque
  35     s1*0^\markup { "baroque" }
  36     \pattern
  37         \break
  38
  39     \property Staff.NoteHead \set #'style = #'neo_mensural
  40     s1*0^\markup { "neomensural" }
  41     \pattern
  42
  43     \property Staff.NoteHead \set #'style = #'mensural
  44     s1*0^\markup { "mensural" }
  45     \pattern
  46
  47     \break
  48
  49     \property Staff.NoteHead \set #'style = #'harmonic
  50     s1*0^\markup { "harmonic" }
  51     \pattern
  52
  53     \property Staff.NoteHead \set #'style = #'diamond
  54     s1*0^\markup { "diamond" }
  55     \pattern
  56     \break
  57
  58     \property Staff.NoteHead \set #'style = #'cross
  59     s1*0^\markup { "cross" }
  60     \pattern
  61
  62     \property Staff.NoteHead \set #'style = #'xcircle
  63     s1*0^\markup { "xcircle" }
  64 \pattern
  65
  66     \break
  67
  68     \property Staff.NoteHead \set #'style = #'triangle
  69     s1*0^\markup { "triangle" }
  70     \pattern
  71
  72
  73     \property Staff.NoteHead \set #'style = #'slash
  74     s1*0^\markup { "slash" }
  75     \pattern
  76     \break
  77
  78     \new Voice <<
  79       \new Thread {
  80         \property Thread.NoteHead \set #'style = #'cross
  81         \property Voice.Stem \set #'direction = #1
  82         c'16
  83       }
  84       \new Thread {
  85         \property Thread.NoteHead \set #'style = #'default a16
  86       }
  87       \new Thread {
  88         \property Thread.NoteHead \set #'style = #'mensural d'16
  89       }
  90     >>
  91     \context Voice <<
  92       \new Thread {
  93         \property Thread.NoteHead \set #'style = #'cross
  94         c'4 c'4 c'4 c'4
  95       }
  96       \new Thread {
  97         \property Thread.NoteHead \set #'style = #'mensural
  98         c''4 \stemDown c''
  99         \property Thread.NoteHead \set #'style = #'slash
 100         \stemUp c''4 \stemDown c''
 101       }
 102     >>
 103   }
 104
 105   \paper {
 106     indent = 0.0
 107     raggedright = ##t
 108   }
 109 }