%
% A tex file to help determine dims.
%

\font\black=black
%\font\taupin=musix16

%\font\vet=vette-beams16
%\font\slurs=xslhd16
%\font\specfont=musixspx
%\font\egler=opus16
\font\nummertjes=feta-nummer10
%\def\thefont{\egler}
%\def\thefont{\specfont}
\def\thefont{\nummertjes}

\def\mb#1{{\thefont\char#1}}

\newdimen\wid
\newdimen\inc
\newdimen\here
\def\hruler#1{%
        \wid=#1pt
        \inc=\wid
        \divide\inc by #1
        \divide\wid by 2
        \here=-\wid
        \loop\ifdim\here<\wid\advance\here by\inc
                \hbox to0pt{\kern\here\vrule width0.05pt height 1pt depth 1pt\hss}%
        \repeat%
}

\def\vruler#1{%
        \wid=#1pt
        \inc=\wid
        \divide\inc by #1
        \divide\wid by 2
        \here=-\wid
        \loop\ifdim\here<\wid\advance\here by\inc
                \hbox to0pt{\vbox to0pt{\vss\hrule width2pt height 0.05pt\kern\here}\hss}%
        \repeat%
}
\def\twhrul{\hbox to 0pt{\hbox{\hruler{20}%
        \vrule width0.1pt height 2pt depth 2pt}}}
\def\twvrul{\vbox to0pt{\vss\hbox to0pt{\hss\vruler{12}}\vss}%
        \kern-1pt\vrule width4pt height 0.1pt}%
        
 
\def\doitem#1{
        #1%
        \vbox to12pt{\vfill\hbox to0pt{\qquad\kern-1pt\twvrul\hss}}%
        \hbox to50pt{\qquad\twhrul\mb{#1}\hss}%
        \setbox0=\hbox{\mb{#1}} width \the\wd0\ depth \the\dp0 \ height \the\ht0}

\newcount\n
%\def\charn{\n=-1
\def\charn{\n=47
%        \loop\ifnum\n<255\advance\n by1
%        \loop\ifnum\n<10\advance\n by1
        \loop\ifnum\n<58\advance\n by1
        \doitem{\number\n}\endgraf\repeat}


        \charn

\bye
