Documentation/metadoc/musicnotes.sty

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