input/regression/note-head-style.ly

   1 \version "1.9.1"
   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       \context Voice = up {
  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       \context Voice = down {
  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       \context Voice = up {
  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       \context Voice = down {
  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       \context Voice = up {
  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       \context Voice = down {
  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       \context Voice = up {
  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       \context Voice = down {
  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       \context Voice = up {
  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       \context Voice = down {
  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       \context Voice = up {
  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       \context Voice = down {
  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       \context Voice = up {
 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       \context Voice = down {
 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       \context Voice = up {
 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       \context Voice = down {
 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       \context Voice = up {
 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       \context Voice = down {
 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       \context Voice = up {
 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       \context Voice = down {
 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       \context Voice = up {
 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       \context Voice = down {
 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     \context Voice = another <
 174       \context Thread = TA {
 175         \property Thread.NoteHead \set #'style = #'cross
 176         \property Voice.Stem \set #'direction = #1
 177         c'16
 178       }
 179       \context Thread = TB {
 180         \property Thread.NoteHead \set #'style = #'default a16
 181       }
 182       \context Thread = TC {
 183         \property Thread.NoteHead \set #'style = #'mensural d'16
 184       }
 185     >
 186
 187     \context Voice <
 188       \context Thread = TA {
 189         \property Thread.NoteHead \set #'style = #'cross
 190         c'4 c'4 c'4 c'4
 191       }
 192       \context Thread = TB {
 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 }