Documentation/programmer/musicnotes.sty

   1
   2 \input lilyponddefs
   3
   4 \def\fetdef#1#2{%
   5   \def#1{\hbox{\char#2}}}
   6
   7 % huh? from where
   8 \input feta20.sty
   9
  10 \font\fetasixteenfont=feta16
  11 \font\fetaelevenfont=feta11
  12 \def\fetafont{\fetasixteenfont}
  13
  14 \newdimen\ild
  15 \ild=4pt
  16 \newdimen\stemthick
  17 \stemthick=0.4pt
  18
  19 \def\eighthstem{{\fetafont\vrule height 3.5ex width \stemthick depth0pt\raise
  20   3.5ex\hbox{\eighthflag}}}
  21 \def\texteighthflag{{\fetafont\raise 0ex\hbox{\fetafont\eighthflag}}}
  22 \def\textdeighthflag{{\fetafont\raise 0ex\hbox{\deighthflag}}}
  23
  24 \def\texteighthnote{{\hbox{\hbox{\fetafont\quartball}\kern
  25       -0.5\stemthick\eighthstem}}}
  26 \def\quarterstem{{\fetafont\vrule height 3.5ex width \stemthick depth0pt}}
  27 \def\textquarterstem{\quarterstem}
  28 \def\textchord{{\hbox{\fetafont\lower.5ex\hbox to
  29       0pt{\textquarterhead}\raise.5ex\hbox{\textquarterhead}\kern
  30       -0.5\stemthick\eighthstem}}}
  31 \def\textbassclef{\hbox{\fetafont\bassclef}}
  32 \def\texttrebleclef{\hbox{\fetafont\trebleclef}}
  33 \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}}
  34
  35 \def\textmarcato{{\fetafont\raise 1ex\hbox{\hskip 1ex\sforzatoaccent}}}
  36
  37
  38 \def\textquarterhead{\hbox{\fetafont\raise 2.5pt\hbox{\quartball}}}
  39 \def\texteighthstem{\hbox{\lower 5pt\hbox{\eighthstem}}}
  40 \def\texthalfnote{{\hbox{\hbox{\fetafont\halfball}\kern -0.5\stemthick\quarterstem}}}
  41 \def\textquarternote{{\hbox{\hbox{\fetafont\quartball}\kern -0.5\stemthick\quarterstem}}}
  42 \def\textflat{{\fetafont\raise 1ex\hbox{\flat}}}
  43 \def\textsharp{{\fetafont\raise1ex\hbox{\sharp}}}