
\input lilyponddefs

\def\fetdef#1#2{%
  \def#1{\hbox{\char#2}}}

% huh? from where
\input feta20.sty

\font\fetasixteenfont=feta16
\font\fetaelevenfont=feta11
\def\fetafont{\fetasixteenfont}

\newdimen\ild
\ild=4pt
\newdimen\stemthick
\stemthick=0.4pt

\def\eighthstem{{\fetafont\vrule height 3.5ex width \stemthick depth0pt\raise
  3.5ex\hbox{\eighthflag}}}
\def\texteighthflag{{\fetafont\raise 0ex\hbox{\fetafont\eighthflag}}}
\def\textdeighthflag{{\fetafont\raise 0ex\hbox{\deighthflag}}}

\def\texteighthnote{{\hbox{\hbox{\fetafont\quartball}\kern
      -0.5\stemthick\eighthstem}}}
\def\quarterstem{{\fetafont\vrule height 3.5ex width \stemthick depth0pt}}
\def\textquarterstem{\quarterstem}
\def\textchord{{\hbox{\fetafont\lower.5ex\hbox to
      0pt{\textquarterhead}\raise.5ex\hbox{\textquarterhead}\kern
      -0.5\stemthick\eighthstem}}}
\def\textbassclef{\hbox{\fetafont\bassclef}}
\def\texttrebleclef{\hbox{\fetafont\trebleclef}}
\def\textslur{\embeddedps{9.378744 -3.171539 3.923099 -3.171539 0.000000 0.000000 12.800000 0.000000 3.672177 -3.672177 9.127823 -3.672177 12.800000 0.000000 0.000000 0.000000  draw_slur}}

\def\textmarcato{{\fetafont\raise 1ex\hbox{\hskip 1ex\sforzatoaccent}}}


\def\textquarterhead{\hbox{\fetafont\raise 2.5pt\hbox{\quartball}}}
\def\texteighthstem{\hbox{\lower 5pt\hbox{\eighthstem}}}
\def\texthalfnote{{\hbox{\hbox{\fetafont\halfball}\kern -0.5\stemthick\quarterstem}}}
\def\textquarternote{{\hbox{\hbox{\fetafont\quartball}\kern -0.5\stemthick\quarterstem}}}
\def\textflat{{\fetafont\raise 1ex\hbox{\flat}}}
\def\textsharp{{\fetafont\raise1ex\hbox{\sharp}}}
