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 \score {
  15   \notes \transpose c c {
  16     \clef C
  17
  18     \property Staff.NoteHead \set #'style = #'default
  19     <<
  20       \new Voice {
  21         \property Voice.Stem \set #'direction = #1 %up
  22         e'16^\markup { "NoteHead \#'style = \#'default" }
  23         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
  24       }
  25       \new Voice {
  26         \property Voice.Stem \set #'direction = #-1 %down
  27         a16 a16 a8 a4 a2 a1 a\breve a\longa
  28       }
  29     >>
  30     \break
  31
  32     \property Staff.NoteHead \set #'style = #'baroque
  33     <<
  34       \new Voice {
  35         \property Voice.Stem \set #'direction = #1 %up
  36         e'16^\markup { "NoteHead \#'style = \#'baroque" }
  37         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
  38       }
  39       \new Voice {
  40         \property Voice.Stem \set #'direction = #-1 %down
  41         a16 a16 a8 a4 a2 a1 a\breve a\longa
  42       }
  43     >>
  44     \break
  45
  46     \property Staff.NoteHead \set #'style = #'neo_mensural
  47     <<
  48       \new Voice {
  49         \property Voice.Stem \set #'direction = #1 %up
  50         e'16^\markup { "NoteHead \#'style = \#'neo\_mensural" }
  51         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
  52       }
  53       \new Voice {
  54         \property Voice.Stem \set #'direction = #-1 %down
  55         a16 a16 a8 a4 a2 a1 a\breve a\longa
  56       }
  57     >>
  58     \break
  59
  60     \property Staff.NoteHead \set #'style = #'mensural
  61     <<
  62       \new Voice {
  63         \property Voice.Stem \set #'direction = #1 %up
  64         e'16^\markup { "NoteHead \#'style = \#'mensural" }
  65         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
  66       }
  67       \new Voice {
  68         \property Voice.Stem \set #'direction = #-1 %down
  69         a16 a16 a8 a4 a2 a1 a\breve a\longa
  70       }
  71     >>
  72     \break
  73
  74     \property Staff.NoteHead \set #'style = #'harmonic
  75     <<
  76       \new Voice {
  77         \property Voice.Stem \set #'direction = #1 %up
  78         e'16^\markup { "NoteHead \#'style = \#'harmonic" }
  79         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
  80       }
  81       \new Voice {
  82         \property Voice.Stem \set #'direction = #-1 %down
  83         a16 a16 a8 a4 a2 a1 a\breve a\longa
  84       }
  85     >>
  86     \break
  87
  88     \property Staff.NoteHead \set #'style = #'diamond
  89     <<
  90       \new Voice {
  91         \property Voice.Stem \set #'direction = #1 %up
  92         e'16^\markup { "NoteHead \#'style = \#'diamond" }
  93         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
  94       }
  95       \new Voice {
  96         \property Voice.Stem \set #'direction = #-1 %down
  97         a16 a16 a8 a4 a2 a1 a\breve a\longa
  98       }
  99     >>
 100     \break
 101
 102     \property Staff.NoteHead \set #'style = #'cross
 103     <<
 104       \new Voice {
 105         \property Voice.Stem \set #'direction = #1 %up
 106         e'16^\markup { "NoteHead \#'style = \#'cross" }
 107         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
 108       }
 109       \new Voice {
 110         \property Voice.Stem \set #'direction = #-1 %down
 111         a16 a16 a8 a4 a2 a1 a\breve a\longa
 112       }
 113     >>
 114     \break
 115
 116     \property Staff.NoteHead \set #'style = #'xcircle
 117     <<
 118       \new Voice {
 119         \property Voice.Stem \set #'direction = #1 %up
 120         e'16^\markup { "NoteHead \#'style = \#'xcircle" }
 121         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
 122       }
 123       \new Voice {
 124         \property Voice.Stem \set #'direction = #-1 %down
 125         a16 a16 a8 a4 a2 a1 a\breve a\longa
 126       }
 127     >>
 128     \break
 129
 130     \property Staff.NoteHead \set #'style = #'triangle
 131     <<
 132       \new Voice {
 133         \property Voice.Stem \set #'direction = #1 %up
 134         e'16^\markup { "NoteHead \#'style = \#'triangle" }
 135         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
 136       }
 137       \new Voice {
 138         \property Voice.Stem \set #'direction = #-1 %down
 139         a16 a16 a8 a4 a2 a1 a\breve a\longa
 140       }
 141     >>
 142     \break
 143
 144     \property Staff.NoteHead \set #'style = #'slash
 145     <<
 146       \new Voice {
 147         \property Voice.Stem \set #'direction = #1 %up
 148         e'16^\markup { "NoteHead \#'style = \#'slash" }
 149         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
 150       }
 151       \new Voice {
 152         \property Voice.Stem \set #'direction = #-1 %down
 153         a16 a16 a8 a4 a2 a1 a\breve a\longa
 154       }
 155     >>
 156     \break
 157
 158     \property Staff.NoteHead \override #'transparent = ##t
 159     <<
 160       \new Voice {
 161         \property Voice.Stem \set #'direction = #1 %up
 162         e'16^\markup { "NoteHead \#'transparent = \#\#t" }
 163         e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
 164       }
 165       \new Voice {
 166         \property Voice.Stem \set #'direction = #-1 %down
 167         a16 a16 a8 a4 a2 a1 a\breve a\longa
 168       }
 169     >>
 170     \property Staff.NoteHead \revert #'transparent
 171     \break
 172
 173     \new Voice <<
 174       \new Thread {
 175         \property Thread.NoteHead \set #'style = #'cross
 176         \property Voice.Stem \set #'direction = #1
 177         c'16
 178       }
 179       \new Thread {
 180         \property Thread.NoteHead \set #'style = #'default a16
 181       }
 182       \new Thread {
 183         \property Thread.NoteHead \set #'style = #'mensural d'16
 184       }
 185     >>
 186
 187     \context Voice <<
 188       \new Thread {
 189         \property Thread.NoteHead \set #'style = #'cross
 190         c'4 c'4 c'4 c'4
 191       }
 192       \new Thread {
 193         \property Thread.NoteHead \set #'style = #'mensural
 194         c''4 \stemDown c''
 195         \property Thread.NoteHead \set #'style = #'slash
 196         \stemUp c''4 \stemDown c''
 197       }
 198     >>
 199   }
 200
 201   \paper {
 202     indent = 0.0
 203     raggedright = ##t
 204   }
 205 }