mf/dyn.tex

   1 % dyn.tex
   2 % A tex file to help view dynamic letters
   3 %
   4
   5 \font\dynfont=dyn10
   6 \def\thefont{\dynfont}
   7
   8 \def\mb#1{{\thefont\char#1}}
   9
  10 \def\doitem#1{
  11         #1%
  12 %        \vbox to12pt{\vfill\hbox to0pt{\qquad\kern-1pt\twvrul\hss}}%
  13 %        \hbox to50pt{\qquad\twhrul\mb{#1}\hss}%
  14         \hbox to 30pt{\qquad\mb{#1}\hss}
  15         \setbox0=\hbox{\mb{#1}} width \the\wd0\ depth \the\dp0 \ height \the\ht0}
  16
  17 \newcount\n
  18 \def\charn{\n=-1
  19         \loop\ifnum\n<4\advance\n by1
  20         \doitem{\number\n}\endgraf\repeat}
  21
  22         \charn
  23
  24 %from lilyponddefs
  25 % dynamics take extra kerning
  26 \def\dyn{\dynfont}
  27 \def\kdynf{{\dynfont \char0\kern-.2ex}}
  28 \def\kdynm{{\dynfont \char1\kern-.18ex}}
  29 \def\kdynp{{\dynfont \char2\kern-.08ex}}
  30 \def\kdyns{{\dynfont \char3\kern-.22ex}}
  31 \def\kdynz{{\dynfont \char4\kern-.2ex}}
  32
  33 \def\dynp{\kdynp}
  34 \def\dynpp{\dynp\kdynp}
  35 \def\dynppp{\dynpp\kdynp}
  36 \def\dynmp{\kdynm\kdynp}
  37 \def\dynmf{\kdynm\kdynf}
  38 \def\dynf{\kdynf}
  39 \def\dynff{\dynf\kdynf}
  40 \def\dynfff{\dynff\kdynf}
  41
  42 \def\dynfp{\kdynf\kern.35ex\kdynp}
  43 \def\dynsf{\kdyns\kdynf}
  44 \def\dynsfz{\dynsf\kern.3ex\kdynz}
  45
  46 \hbox{\dynp}
  47 \hbox{\dynpp}
  48 \hbox{\dynppp}
  49 \hbox{\dynmp}
  50 \hbox{\dynmf}
  51 \hbox{\dynff}
  52 \hbox{\dynf}
  53 \hbox{\dynfff}
  54 \hbox{\dynfp}
  55 \hbox{\dynsf}
  56 \hbox{\dynsfz}
  57
  58 \bye