\filename{ruler.tex}
\edited{last by stolfi on Sat Mar  7 02:36:39 1987}

% A ruler marked in points

\catcode`@=11 \endlinechar=-1

\voffset=-0.5in
\smallsize\rm
\offinterlineskip

\newdimen\eps       \eps=0.24bp  % half-thickness. Note: 72bp=300pixels (?)
\newdimen\ulen      \ulen=2.4bp

\newdimen\spacing   \spacing=5truept

\def\Hlabel#1{\vbox to 0pt{\null\vss\hbox{#1}\vss\null}}

\def\Hrule#1{\hbox to 7\ulen{\hss\vrule height \eps depth \eps width #1\ulen}}

\def\Hmark#1#2{
    \kern-\eps
    \hbox to 1in{\hss\Hlabel{#2}\Hrule{#1}}
    \kern-\eps
    \kern 1\spacing
  }

\def\vertruler{\hbox{
    \vbox{\offinterlineskip
      \null
      \Hmark6{0}
      \Hmark2{}
      \Hmark3{10}
      \Hmark2{}
      \Hmark3{20}
      \Hmark2{}
      \Hmark3{30}
      \Hmark2{}
      \Hmark3{40}
      \Hmark2{}
      \Hmark4{50}
      \Hmark2{}
      \Hmark3{60}
      \Hmark2{}
      \Hmark3{70}
      \Hmark2{}
      \Hmark3{80}
      \Hmark2{}
      \Hmark3{90}
      \Hmark2{}
      \Hmark5{100}
      \Hmark2{}
      \Hmark3{110}
      \Hmark2{}
      \Hmark3{120}
      \Hmark2{}
      \Hmark3{130}
      \Hmark2{}
      \Hmark3{140}
      \Hmark2{}
      \Hmark4{150}
      \Hmark2{}
      \Hmark3{160}
      \Hmark2{}
      \Hmark3{170}
      \Hmark2{}
      \Hmark3{180}
      \Hmark2{}
      \Hmark3{190}
      \Hmark2{}
      \Hmark5{200}
      \Hmark2{}
      \Hmark3{210}
      \Hmark2{}
      \Hmark3{220}
      \Hmark2{}
      \Hmark3{230}
      \Hmark2{}
      \Hmark3{240}
      \Hmark2{}
      \Hmark4{250}
      \Hmark2{}
      \Hmark3{260}
      \Hmark2{}
      \Hmark3{270}
      \Hmark2{}
      \Hmark3{280}
      \Hmark2{}
      \Hmark3{290}
      \Hmark2{}
      \Hmark5{300}
      \Hmark2{}
      \Hmark3{310}
      \Hmark2{}
      \Hmark3{320}
      \Hmark2{}
      \Hmark3{330}
      \Hmark2{}
      \Hmark3{340}
      \Hmark2{}
      \Hmark4{350}
      \Hmark2{}
      \Hmark3{360}
      \Hmark2{}
      \Hmark3{370}
      \Hmark2{}
      \Hmark3{380}
      \Hmark2{}
      \Hmark3{390}
      \Hmark2{}
      \Hmark5{400}
      \Hmark2{}
      \Hmark3{410}
      \Hmark2{}
      \Hmark3{420}
      \Hmark2{}
      \Hmark3{430}
      \Hmark2{}
      \Hmark3{440}
      \Hmark2{}
      \Hmark4{450}
      \Hmark2{}
      \Hmark3{460}
      \Hmark2{}
      \Hmark3{470}
      \Hmark2{}
      \Hmark3{480}
      \Hmark2{}
      \Hmark3{490}
      \Hmark2{}
      \Hmark5{500}
      \Hmark2{}
      \Hmark3{510}
      \Hmark2{}
      \Hmark3{520}
      \Hmark2{}
      \Hmark3{530}
      \Hmark2{}
      \Hmark3{540}
      \Hmark2{}
      \Hmark4{550}
      \Hmark2{}
      \Hmark3{560}
      \Hmark2{}
      \Hmark3{570}
      \Hmark2{}
      \Hmark3{580}
      \Hmark2{}
      \Hmark3{590}
      \Hmark2{}
      \Hmark5{600}
      \Hmark2{}
      \Hmark3{610}
      \Hmark2{}
      \Hmark3{620}
      \Hmark2{}
      \Hmark3{630}
      \Hmark2{}
      \Hmark3{640}
      \Hmark2{}
      \Hmark4{650}
      \Hmark2{}
      \Hmark3{660}
      \Hmark2{}
      \Hmark3{670}
      \Hmark2{}
      \Hmark3{680}
      \Hmark2{}
      \Hmark3{690}
      \Hmark2{}
      \Hmark6{700}
      \kern -\spacing
    }
    \vrule width 2\eps
  }}

\def\veryplainoutput{\shipout\box255}
\output{\veryplainoutput}

\catcode`@=12 \endlinechar=`\^^M

\vertruler

\vfill\bye

