+ \property Staff.NoteHead \set #'style = #'harmonic
+ <<
+ \new Voice {
+ \property Voice.Stem \set #'direction = #1 %up
+ e'16^\markup { "NoteHead \#'style = \#'harmonic" }
+ e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
+ }
+ \new Voice {
+ \property Voice.Stem \set #'direction = #-1 %down
+ a16 a16 a8 a4 a2 a1 a\breve a\longa
+ }
+ >>
+ \break
+
+ \property Staff.NoteHead \set #'style = #'diamond
+ <<
+ \new Voice {
+ \property Voice.Stem \set #'direction = #1 %up
+ e'16^\markup { "NoteHead \#'style = \#'diamond" }
+ e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
+ }
+ \new Voice {
+ \property Voice.Stem \set #'direction = #-1 %down
+ a16 a16 a8 a4 a2 a1 a\breve a\longa
+ }
+ >>
+ \break
+
+ \property Staff.NoteHead \set #'style = #'cross
+ <<
+ \new Voice {
+ \property Voice.Stem \set #'direction = #1 %up
+ e'16^\markup { "NoteHead \#'style = \#'cross" }
+ e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
+ }
+ \new Voice {
+ \property Voice.Stem \set #'direction = #-1 %down
+ a16 a16 a8 a4 a2 a1 a\breve a\longa
+ }
+ >>
+ \break
+
+ \property Staff.NoteHead \set #'style = #'xcircle
+ <<
+ \new Voice {
+ \property Voice.Stem \set #'direction = #1 %up
+ e'16^\markup { "NoteHead \#'style = \#'xcircle" }
+ e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
+ }
+ \new Voice {
+ \property Voice.Stem \set #'direction = #-1 %down
+ a16 a16 a8 a4 a2 a1 a\breve a\longa
+ }
+ >>
+ \break
+
+ \property Staff.NoteHead \set #'style = #'triangle
+ <<
+ \new Voice {
+ \property Voice.Stem \set #'direction = #1 %up
+ e'16^\markup { "NoteHead \#'style = \#'triangle" }
+ e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
+ }
+ \new Voice {
+ \property Voice.Stem \set #'direction = #-1 %down
+ a16 a16 a8 a4 a2 a1 a\breve a\longa
+ }
+ >>
+ \break
+
+ \property Staff.NoteHead \set #'style = #'slash
+ <<
+ \new Voice {
+ \property Voice.Stem \set #'direction = #1 %up
+ e'16^\markup { "NoteHead \#'style = \#'slash" }
+ e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
+ }
+ \new Voice {
+ \property Voice.Stem \set #'direction = #-1 %down
+ a16 a16 a8 a4 a2 a1 a\breve a\longa
+ }
+ >>
+ \break
+
+ \property Staff.NoteHead \override #'transparent = ##t
+ <<
+ \new Voice {
+ \property Voice.Stem \set #'direction = #1 %up
+ e'16^\markup { "NoteHead \#'transparent = \#\#t" }
+ e'16 e'8 e'4 e'2 e'1 e'\breve e'\longa
+ }
+ \new Voice {
+ \property Voice.Stem \set #'direction = #-1 %down
+ a16 a16 a8 a4 a2 a1 a\breve a\longa
+ }
+ >>
+ \property Staff.NoteHead \revert #'transparent
+ \break
+
+ \new Voice <<
+ \new Thread {
+ \property Thread.NoteHead \set #'style = #'cross
+ \property Voice.Stem \set #'direction = #1
+ c'16
+ }
+ \new Thread {
+ \property Thread.NoteHead \set #'style = #'default a16
+ }
+ \new Thread {
+ \property Thread.NoteHead \set #'style = #'mensural d'16
+ }
+ >>
+
+ \context Voice <<
+ \new Thread {
+ \property Thread.NoteHead \set #'style = #'cross
+ c'4 c'4 c'4 c'4
+ }
+ \new Thread {
+ \property Thread.NoteHead \set #'style = #'mensural
+ c''4 \stemDown c''
+ \property Thread.NoteHead \set #'style = #'slash
+ \stemUp c''4 \stemDown c''
+ }
+ >>
+ }