tex/fetdefs.tex

   1 % fetdefs.tex
   2 % encapsulating tex backend for auto-generated font-en-tja definitions
   3
   4 \def\fetsixteendefs{
   5         \font\fontentja=font-en-tja16
   6 }
   7 \def\fettwentydefs{
   8         \font\fontentja=font-en-tja20
   9 }
  10
  11 % \def\fetdef#1#2{\def#1{\fetchar{#2}}}
  12 % ugh, linewidth, ugh, tablexx.ly balldims not used!
  13 \def\fetdef#1#2{\def#1{\lower.3884\staffrulethickness\hbox{\fetchar{#2}}}}
  14 \def\fetchar#1{\fontentja\char#1}
  15
  16 \input font-en-tja20
  17
  18 \def\beamuslope#1#2{{\count0=#2\advance\count0 by#1
  19         \advance\count0 by \beamuslopestart
  20         % huh?? -- think i followed taupin beam convention
  21         % is lily confused?
  22         \advance\count0 by -8
  23         \fetchar\count0}}
  24 \def\beamdslope#1#2{{\count0=#2\advance\count0 by#1
  25         \advance\count0 by \beamdslopestart
  26         % huh??
  27         \advance\count0 by -8
  28         \fetchar\count0}}