tex/pedal.tex

   1 % pedal.tex
   2
   3 % fix chord.cc::banter_str before removing these
   4 \def\fetdef#1#2{%
   5   \def#1{\hbox{\char#2}}}
   6
   7 \fetdef\pedalasterisk{101}
   8 \fetdef\pedaldash{102}
   9 \fetdef\pedaldot{103}
  10 \fetdef\pedalP{104}
  11 \fetdef\pedald{105}
  12 \fetdef\pedale{106}
  13
  14
  15 \font\fetaelevenfont=feta11
  16 \font\fetathirteenfont=feta13
  17 \font\fetasixteenfont=feta16
  18 \font\fetatwentyfont=feta20
  19 \font\fetatwentythreefont=feta23
  20 \font\fetatwentysixfont=feta26
  21
  22 \font\fetaelevenfontt=feta11 scaled \magstep 4
  23 \font\fetathirteenfontt=feta13 scaled \magstep 4
  24 \font\fetasixteenfontt=feta16 scaled \magstep 4
  25 \font\fetatwentyfontt=feta20 scaled \magstep 4
  26 \font\fetatwentythreefontt=feta23 scaled \magstep 4
  27 \font\fetatwentysixfontt=feta26 scaled \magstep 4
  28
  29 \def\fetafont{\fetasixteenfont}
  30
  31 \def\test{
  32 \hbox {
  33 \hbox { \pedalP\kern-0.05ex\pedale\kern -0.6ex\pedald\pedaldot}
  34 \kern 1ex
  35 \pedalasterisk
  36 \kern 1ex
  37 \hbox {\pedaldash\pedalP}
  38 }
  39 }
  40
  41 \magnification \magstep 4
  42 \baselineskip 12mm
  43
  44 \vbox{
  45 \fetaelevenfont \test
  46 \fetathirteenfont \test
  47 \fetasixteenfont \test
  48 \fetatwentyfont \test
  49 \fetatwentythreefont \test
  50 \fetatwentysixfont \test
  51
  52 %\fetaelevenfontt \test
  53 %\fetathirteenfontt \test
  54 \fetasixteenfontt \test
  55 \fetatwentyfontt \test
  56 \fetatwentythreefontt \test
  57 \fetatwentysixfontt \test
  58 }
  59
  60 \end
  61
  62 %\endinput