\version "2.18.2"


eyeglassesps = #"
  0.1 setlinewidth
  -0.9 0 translate
  1.0 1.0 scale
  1.2 0.7 moveto
  0.7 0.7 0.5 0 361 arc
  stroke
  2.20 0.70 0.50 0 361 arc
  stroke
  1.45 0.85 0.30 0 180 arc
  stroke
  0.20 0.70 moveto
  0.80 2.00 lineto
  0.92 2.26 1.30 2.40 1.15 1.70 curveto
  stroke
  2.70 0.70 moveto
  3.30 2.00 lineto
  3.42 2.26 3.80 2.40 3.65 1.70 curveto
  stroke"

quintaseps = #"
   0.1 setlinewidth
  0.1 0 translate
  1.0 1.0 scale
  0.20 0.70 moveto
  2.80 4.00 lineto
  stroke
  5.0 0.70 moveto
  02.80 4.00 lineto
  stroke"

linea = "
   0.1 setlinewidth
  0.1 0 translate
  1.0 1.0 scale
0.20 0.70 moveto
  4.80 2.00 lineto

  stroke"

eyeglasses = \markup {
  \with-dimensions #'(0 . 4.4) #'(0 . 2.5)
  \postscript #eyeglassesps
}
quintas = \markup {
  \with-dimensions #'(0 . 4.4) #'(0 . 2.5)
  \postscript #quintaseps
}
lin = \markup {
  \with-dimensions #'(0 . 4.4) #'(0 . 2.5)
  \postscript #linea
}

\relative c'' {
  c2^\lin
  a4_\eyeglasses
  f^\quintas
}