%			DEPROCDEV.FIL
%
%  This is based on a chart in TUGboat.

%  Definitions for the device lists and ``small'' TeX chart.
%  \ChartDefs is ordinarily invoked locally, within a group.

\newdimen\tabwd
\newdimen\vhone 		\newdimen\vdone
\newdimen\vhtwo 		\newdimen\vdtwo
\newdimen\vhthree		\newdimen\vdthree
\newdimen\rulethickness 	\newdimen\Rulethickness

\def\ChartDefs{%
%
\tenssrm \baselineskip 12pt	% font actually used in tables
\scriptfont2=\sevensy		% matching font to get proper-sized symbols
%
\def\strut{\vrule height 6pt depth 2pt width 0pt}

\def\1##1<{$\vcenter{\def\\{\cr}\baselineskip 12pt
	\halign{\hfil\ignorespaces####\unskip\strut\hfil\cr##1\cr}}$}
\def\2##1<{$\vcenter{\def\\{\cr}\baselineskip 12pt
	\halign{\ignorespaces####\strut\unskip\hfil\cr##1\cr}}$}
\def\3{$^\ast$}
\def\4{\llap{\3}}
\def\5{\rlap{\3}}
\def\6{\kern.1em\raise.6ex\hbox{\sevensy\char"79 }}
\def\7{\kern.1em\raise.6ex\hbox{\sevensy\char"7A }}

\def\,{\kern.1em}

\vhone=14pt		\vhtwo=19pt		\vhthree=24pt
\vdone=8pt		\vdtwo=13pt		\vdthree=18pt
\rulethickness=.6pt	\Rulethickness=2\rulethickness

\def \hr{\hrule height 0pt depth\rulethickness }
\def \HR{\hrule height 0pt depth\Rulethickness }
\def \nhr{\noalign{\hr}}
\def \NHR{\noalign{\HR}}
\def \cnh{\cr\nhr} % gets verticals out of synch

%  These rules will force the distance between baselines.
\def \v{\vrule height\vhone depth\vdone width\rulethickness }
\def \V{\vrule height\vhone depth\vdone width\Rulethickness }
\def \dv{\vrule height\vhtwo depth\vdtwo width\rulethickness }
\def \DV{\vrule height\vhtwo depth\vdtwo width\Rulethickness }
\def \tv{\vrule height\vhthree depth\vdthree width\rulethickness }
\def \TV{\vrule height\vhthree depth\vdthree width\Rulethickness }

\def \vone{\xdef\vr{\v}\xdef\VR{\V}}
\def \vtwo{\xdef\vr{\dv}\xdef\VR{\DV}}
\def \vthree{\xdef\vr{\tv}\xdef\VR{\TV}}

\def \TblTitle##1<{&\multispan\TestCount \kern-.3em\kern-\Rulethickness
	\rlap{\hbox to \tabwd{\hfil\tenrm ##1\hfil}}\hfill&\cr}
}			% end \ChartDefs

\begingroup		% make definitions local
%
\ChartDefs
%
\tabwd=\pagewd			% 39pc

\TestCount=9		% number of columns in table, for multispan
%			% = number of data columns + number of rules - 2

\let\vr=\dv \let\VR=\DV 		% initialize to 2-line format

\vbox{\baselineskip=0pt  \lineskip=0pt  \lineskiplimit=0pt
\tabskip=0pt
\halign to \tabwd{#\VR&\kern.3em#\hfil \tabskip=.3pt plus \tabwd	% col 0
	&\vr#&\hfil#\hfil &\vr#&\hfil#\hfil &\vr#&\hfil#\hfil 	% 1-3
	&\vr#&\hfil#\hfil					% 4
	&\VR#\tabskip=0pt\cr		% final rule
%
\NHR
\TblTitle \tenssbf OUTPUT DEVICES INTERFACED TO DEC COMPUTERS<
\NHR
%\relax\vthree
\relax\vtwo
&	 &&				% col 0 = output device
	\1 DEC\\10<&&			% col 4
	\1 DEC\\20<&&			% col 5
	\1 \VAX\\(Unix)<&&		% col 15
	\1 \VAX\\(VMS)<&\cr		% col 16
\NHR
%
%  Make sure that last column ends with &\cr instead of &&
%
%Beginning of data -- each line (if possible) fills in 5 device columns
\relax\vtwo
&\2 Apple LaserWriter<&&
	\1 Textset<&&\1 Textset\6<&&
	\1 Carleton Univ;\\Textset\6<&&\1 Textset\6<&\cnh
&\2 Autologic\\APS-5/Micro-5<&&
	 &&\1 Textset<&&
	\1 Textset<&&\1 Intergraph\6;\\Textset<&\cnh
\relax\vone
&\2 C Itoh<&&
	 && && &&\1 Louisiana State U<&\cnh
&\2 Canon<&&
	 && &&\1 Canon<&& &\cnh
&\2 DEC LN01<&&
	 && &&\1 Univ of Washington< &&\1 Louisiana State U<&\cnh
% &\2 DEC Ltr Ptr 100<&&
% 	 &&\1 Ohio State U<&& && &\cnh
% &\2 Facit 4542<&&
% 	 && && &&\1 INFN<&\cnh
\relax\vthree
&\2 Imagen<&&
	\1 Stanford;\\Vanderbilt;\\Textset\6<&&\1 SRI;\\Columbia;\\Textset\6<&&
	\1 Univ of Maryland;\\Textset<&&
	\1 Kellerman\,\&\,Smith\6;\\Textset<&\cnh
\relax\vone
&\2 PostScript printers<&&
	\1 Textset<&&\1 Textset<&&\1 Textset<&&\1 Textset<&\cnh
\relax\vtwo
&\2 QMS Lasergrafix<&&
	\1 Textset<&&\1 Textset<&&
	\1 Textset;\\Univ of Washington<&&\1 Texas A\&M;\\Textset<&\cnh
\relax\vone
&\2 Symbolics<&&
	 &&\1 Univ of Washington<&&\1 Univ of Washington<&&\1 Calma<&\cnh
&\2 Talaris<&&
	\1 Talaris\6<&&\1 Talaris\6<&&\1 Talaris\6<&&\1 Talaris\6<&\cnh
\relax\vone
&\2 Xerox Dover<&&
	 &&\1 Carnegie-Mellon U<&&\1 Stanford<&& &\cnh
\relax\vtwo
&\2 Xerox 9700<&&
	\1 Univ of Delaware<&& &&\1 Textset<&&\1 ACC;\\Textset<&\cnh
\nhr }%
\vskip 10pt		% make sure there's always this much clearance
}

\endgroup