\version "2.11.62-1"

qSq =
#(ly:make-stencil (list 'embedded-ps
"gsave
currentpoint translate
newpath
0 0.51 moveto
1 0.51 lineto
1 -0.51 lineto
0 -0.51 lineto
closepath
fill
grestore")
  (cons 0 1)
  (cons 0 0))

qRect =
#(ly:make-stencil (list 'embedded-ps
"gsave
currentpoint translate
newpath
0 0.55 moveto
1.3125 0.55 lineto
1.3125 -0.55 lineto
0 -0.55 lineto
closepath
fill
grestore")
  (cons 0 1.3125)
  (cons 0 0))
  
qSlantSq =
#(ly:make-stencil (list 'embedded-ps
"gsave
currentpoint translate
newpath
0 0.01 moveto
1 0.51 lineto
1 -0.01 lineto
0 -0.51 lineto
closepath
fill
grestore")
  (cons 0 1)
  (cons 0 0))

qSlantRect =
#(ly:make-stencil (list 'embedded-ps
"gsave
currentpoint translate
newpath
0 0.01 moveto
1.3125 0.51 lineto
1.3125 -0.01 lineto
0 -0.51 lineto
closepath
fill
grestore")
  (cons 0 1.3125)
  (cons 0 0))
  
qLinkFull =
#(ly:make-stencil (list 'embedded-ps
"gsave
currentpoint translate
newpath
0 0.26 moveto
1.3125 0.76 lineto
1.3125 -0.26 lineto
0 -0.76 lineto
closepath
fill
grestore")
  (cons 0 1.3125)
  (cons 0 0))

qLinkCowell =
#(ly:make-stencil (list 'embedded-ps
"gsave
currentpoint translate
newpath
0.3 0.51 moveto
1.0125 0.51 lineto
1.0125 -0.51 lineto
0.3 -0.51 lineto
closepath
fill
grestore")
  (cons 0 1.3125)
  (cons 0 0))

qLinkSciarrinoUp =
#(ly:make-stencil (list 'embedded-ps
"gsave
currentpoint translate
newpath
0.65625 0.55 moveto
1.3125 0.8 lineto
1.3125 -0.3 lineto
0.65625 -0.55 lineto
closepath
fill
grestore")
  (cons 0 1.3125)
  (cons 0 0))

qLinkSciarrinoDown =
#(ly:make-stencil (list 'embedded-ps
"gsave
currentpoint translate
newpath
0 0.3 moveto
0.65625 0.55 lineto
0.65625 -0.55 lineto
0 -0.8 lineto
closepath
fill
grestore")
  (cons 0 1.3125)
  (cons 0 0))
  
\relative g' {
  \time 2/4
  \override TextScript #'font-size = #-4
  \override NoteHead #'X-offset = #0
  \override NoteHead #'stencil = \qSq
  <f g a b c d>4^"square" <g a b c d e>
  \override NoteHead #'stencil = \qRect
  <f g a b c d>^"rectangle" <g a b c d e>
  \override NoteHead #'stencil = \qSlantSq
  <f g a b c d>^"slant-sq" <g a b c d e>
  \override NoteHead #'stencil = \qSlantRect
  <f g a b c d>^"slant-rect" <g a b c d e>
  \revert NoteHead #'stencil  
  <f
    \tweak #'stencil \qLinkFull g
    \tweak #'stencil \qLinkFull a
    \tweak #'stencil \qLinkFull b
    \tweak #'stencil \qLinkFull c
  d>^"full-width"
  <g
    \tweak #'stencil \qLinkFull a
    \tweak #'stencil \qLinkFull b
    \tweak #'stencil \qLinkFull c
    \tweak #'stencil \qLinkFull d
  e>  
  \override NoteHead #'stem-attachment = #'(1 . 4.75)
  <f
    \tweak #'stencil \qLinkCowell g
    \tweak #'stencil \qLinkCowell a
    \tweak #'stencil \qLinkCowell b
    \tweak #'stencil \qLinkCowell c
  d>^"Cowell"
  <g
    \tweak #'stencil \qLinkCowell a
    \tweak #'stencil \qLinkCowell b
    \tweak #'stencil \qLinkCowell c
    \tweak #'stencil \qLinkCowell d
  e>
  \revert NoteHead #'stem-attachment
  <f
    \tweak #'stencil \qLinkSciarrinoUp g
    \tweak #'stencil \qLinkSciarrinoUp a
    \tweak #'stencil \qLinkSciarrinoUp b
    \tweak #'stencil \qLinkSciarrinoUp c
  d>^"Sciarrino"
  <g
    \tweak #'stencil \qLinkSciarrinoDown a
    \tweak #'stencil \qLinkSciarrinoDown b
    \tweak #'stencil \qLinkSciarrinoDown c
    \tweak #'stencil \qLinkSciarrinoDown d
  e>
}
\layout{
  indent = #0
  ragged-right = ##t
  }