%   Inclusion file for TeXtyl
%  This is textyl.tex
%
%	John Renner  (jsr@ohio-state.arpa)
%
% macros for figures for Tyling
% specify : 
% \begintyl{vert_dimen}[optional_horiz_dimen]
%	   (with NO intervening space between the } and the [ chars)
% then the \special{tyl ...} strings
%  then you must finish environment with  \endtyl 
%
%  \begintyl and \endtyl are the only 
%	user-callable macros
%   See the TeXtyl manual for a complete explanation.
\def\begintyl#1{\begingroup\endlinechar=-1\catcode `\^^I=9
	\dimen120=#1
	\ifhmode\toks0={\futurelet\tyltempb\begHtyl}
	\let\endtyl=\endHtyl
	\else\toks0={\futurelet\tyltempb\begVtyl}
	\let\endtyl=\endVtyl\fi
	\the\toks0}
%
%-------the rest are internal------
\def\begHtyl{\ifx [\tyltempb \let\tylh=\tylHspace
	\else\let\tylh=\tylHnospace\fi\tylh}
%
\def\tylHspace[#1]{\setbox0=\hbox to #1\bgroup
	\vbox to \dimen120\bgroup\vss}
\def\tylHnospace{\setbox0=\hbox\bgroup
	\vbox to \dimen120\bgroup\vss}
%
\def\begVtyl{\ifx [\tyltempb \let\tylv=\tylVspace
	\else\let\tylv=\tylVnospace\fi\tylv}
%
\def\tylVspace[#1]{\setbox0=\vbox to \dimen120\bgroup\vss 
	\hbox to #1\bgroup}
\def\tylVnospace{\setbox0=\vbox to \dimen120\bgroup\vss
	\hbox\bgroup}
%
\def\endHtyl{\egroup\hss\egroup\box0\endgroup}
\def\endVtyl{\hss\egroup\egroup\box0\endgroup}