mf/dimen.tex

   1 %
   2 % A tex file to help determine dims.
   3 %
   4
   5 \font\black=black
   6 %\font\taupin=musix16
   7
   8 %\font\vet=vette-beams16
   9 %\font\slurs=xslhd16
  10 %\font\specfont=musixspx
  11 %\font\egler=opus16
  12 \font\nummertjes=feta-nummer10
  13 %\def\thefont{\egler}
  14 %\def\thefont{\specfont}
  15 \def\thefont{\nummertjes}
  16
  17 \def\mb#1{{\thefont\char#1}}
  18
  19 \newdimen\wid
  20 \newdimen\inc
  21 \newdimen\here
  22 \def\hruler#1{%
  23         \wid=#1pt
  24         \inc=\wid
  25         \divide\inc by #1
  26         \divide\wid by 2
  27         \here=-\wid
  28         \loop\ifdim\here<\wid\advance\here by\inc
  29                 \hbox to0pt{\kern\here\vrule width0.05pt height 1pt depth 1pt\hss}%
  30         \repeat%
  31 }
  32
  33 \def\vruler#1{%
  34         \wid=#1pt
  35         \inc=\wid
  36         \divide\inc by #1
  37         \divide\wid by 2
  38         \here=-\wid
  39         \loop\ifdim\here<\wid\advance\here by\inc
  40                 \hbox to0pt{\vbox to0pt{\vss\hrule width2pt height 0.05pt\kern\here}\hss}%
  41         \repeat%
  42 }
  43 \def\twhrul{\hbox to 0pt{\hbox{\hruler{20}%
  44         \vrule width0.1pt height 2pt depth 2pt}}}
  45 \def\twvrul{\vbox to0pt{\vss\hbox to0pt{\hss\vruler{12}}\vss}%
  46         \kern-1pt\vrule width4pt height 0.1pt}%
  47
  48
  49 \def\doitem#1{
  50         #1%
  51         \vbox to12pt{\vfill\hbox to0pt{\qquad\kern-1pt\twvrul\hss}}%
  52         \hbox to50pt{\qquad\twhrul\mb{#1}\hss}%
  53         \setbox0=\hbox{\mb{#1}} width \the\wd0\ depth \the\dp0 \ height \the\ht0}
  54
  55 \newcount\n
  56 %\def\charn{\n=-1
  57 \def\charn{\n=47
  58 %        \loop\ifnum\n<255\advance\n by1
  59 %        \loop\ifnum\n<10\advance\n by1
  60         \loop\ifnum\n<58\advance\n by1
  61         \doitem{\number\n}\endgraf\repeat}
  62
  63
  64         \charn
  65
  66 \bye