diff options
Diffstat (limited to 'macros/inrstex/inrstex/out_ps.tex')
-rw-r--r-- | macros/inrstex/inrstex/out_ps.tex | 169 |
1 files changed, 0 insertions, 169 deletions
diff --git a/macros/inrstex/inrstex/out_ps.tex b/macros/inrstex/inrstex/out_ps.tex deleted file mode 100644 index 7bb12e215d..0000000000 --- a/macros/inrstex/inrstex/out_ps.tex +++ /dev/null @@ -1,169 +0,0 @@ -\catcode`@=11 -%-*-tex-*- -% Copyright Michael J. Ferguson, INRS-Telecommunications -% All rights reserved. - -% Fix on \firstcolumnoffset 11 May 87 ... MJF - - -% Compensate for 1 inch standard print offsets Sept. 1991 ... ugh! -\newdimen \hprintoffset -\newdimen \vprintoffset -\hprintoffset=1in -\vprintoffset=1in - - -% Postscript version with arbitrary page scaling/rotation - -% ======== INRSTeX Single/Multi Column Output Routine ======== -% This is the entire output routine for INRSTeX. It does both single and -% Multicolumn since there is a rather large repetition to do otherwise. - - - -%====== Debugging rules ======= -% These can be turned on to outline the page -%\def\testhrule{\hrule} -\let\testhrule = \relax -%\def\testvrule{\vrule} -\let\testvrule =\relax - - -% ====== single/multicolumn output routine - - - - -\def\tmessage#1{} -\output{\m@ultipleoutput} -\def\m@ultipleoutput{\tmessage{Multiout - ms:\the\m@ultistate- cc:\the\c@urrentcolumn - nc:\the\numcolumns} - \ifcase\m@ultistate % 0 - only state where shipout allowed - \addcolumn{\pagecontents}\relax - \global\advance\c@urrentcolumn by 1 \relax - \ifnum\c@urrentcolumn > \numcolumns - \finaloutput % in normal state - \fi - \or \s@etuprempage % 1 - into - always go this way - \or - \addcolumn{\pagecontents}\relax - \s@etuprempage % 2 - outof - clean up the current col and store - \fi - } - - -\def\s@etuprempage{ \global\setbox\t@opmultibox = - \vbox{\boxmaxdepth 0pt \offinterlineskip - \ifvoid\t@opmultibox \else \unvbox\t@opmultibox \fi - \ifvoid\topmulticolumnbox \else \unvbox\topmulticolumnbox\fi - \ifvoid\topins \else \unvbox\topins \fi - \ifcase\m@ultistate - \tmessage{TeX System Error - misplaced multistate -- \the\pageno} - \or \ifvoid255 \else \unvbox255 \fi % top of pag - \or \ifvoid\m@ulticolumnbox - \else \box\m@ulticolumnbox - \fi % multicol part page - \fi} - \global\setbox\b@otmultibox = - \vbox{ \boxmaxdepth \maxdepth \offinterlineskip - \ifvoid\footins - \else \vskip\skip\footins - \footnoterule - \unvbox\footins - \fi - \ifvoid\botmulticolumnbox - \else \unvbox\botmulticolumnbox - \fi} - \ifb@alance \advance\parskip by 0pt plus 0pt minus 0pt \fi - \ifnum\m@ultistate=2 - \global\b@alancevsize=\vinnerpagesize - \global\numcolumns = 1 - \global\b@alancefalse - \fi - \c@omputevsize - \tmessage{Rempage: ms:\the\m@ultistate- ip:\the\vinnerpagesize- hc:\the\vcolumnsize- - cc:\the\c@urrentcolumn- nc:\the\numcolumns} - \global\c@urrentcolumn= 1\global\m@ultistate=0 - \ifnum\vcolumnsize<\multicolpageshortfall \finaloutput \fi - } - - -\def\twoperpage{\xdef\l@page{0}\def\topPS{\ifnum\l@page=0 - \special{ps:: /EOP {} bdf gsave 576 0 translate 90 - rotate .7 .7 scale }\else - \special{ps:: /EOP {} bdf gsave 576 396 translate 90 - rotate .7 .7 scale }\fi } -\def\botPS{\ifnum\l@page=0 - \special{ps:: grestore }\xdef\l@page{1} - \else - \special{ps:: grestore showpage }\xdef\l@page{0}\fi } -\let\d@one=\done \def\done{\ejectpage\ifnum\l@page=1 \finalversion - \fullpagestyle \line{} \fi - \d@one}} - - -\newif\ifpageps \pagepsfalse - -\def\topPS{\ifpageps \t@opsc \fi} -\def\botPS{\ifpageps \b@otsc \fi} - -\def\showpage{showpage } -\def\pagescale htr:#1 vtr:#2 d:#3 hsc:#4 vsc:#5 { - \xdef\t@opsc{\special{ps:: /EOP {} bdf - gsave #1 #2 translate #3 rotate #4 #5 scale }} - \xdef\b@otsc{\special{ps:: grestore \showpage }}\global\pagepstrue } -\def\finaloutput{\shipout - \hbox{\topPS\leftmarginskip \hskip -\hprintoffset - \vbox to \vpapersize{\offinterlineskip % but boxes together - \vskip -\vprintoffset - \topmarginskip\testhrule - \m@akeheadertext\testhrule - \hbox{\hskip \firstcolumnoffset \relax \pagebody}\testhrule - \m@akefootertext\testhrule - \vfill - \ifproofmode \vbox to 0pt{\boxmaxdepth 0pt \vss - \hbox{\qquad \versionform}} \fi - \vfill - \vss}\botPS} - \tmessage{Final Out: ms:\the\m@ultistate- cc:\the\c@urrentcolumn- nc:\the\numcolumns} - \ifp@agenoadv \advancepageno \fi - \global\p@agenoadvtrue - \global\h@eadertype=\d@ocumentheader % default header style - \global\f@ootertype=\d@ocumentfooter % default footer style - \c@omputevsize - \ifb@alance \advance\parskip by 0pt plus 0pt minus 0pt \fi - \ifnum\outputpenalty>-\@MM \else\dosupereject\fi - \global\c@urrentcolumn = 1 \global\m@ultistate=0} - -\def\addcolumn#1{\tmessage{addcol: ms:\the\m@ultistate- cc:\the\c@urrentcolumn- - nc:\the\numcolumns} - \global\setbox\m@ulticolumnbox = - \hbox{\ifvoid\m@ulticolumnbox - \else\unhbox\m@ulticolumnbox\the\intercolumnsep \fi - \testvrule\hbox to \hcolumnsize{\vbox to - \vcolumnsize{\boxmaxdepth\maxdepth #1}\hss}\testvrule} - } - -\newbox\i@nnerpagebox -\def\pagebody{\setbox\i@nnerpagebox = \vbox to\vinnerpagesize{\boxmaxdepth\maxdepth\offinterlineskip - \ifvoid\t@opmultibox \else\unvbox\t@opmultibox \fi - \ifvoid\m@ulticolumnbox \else\box\m@ulticolumnbox \fi - \ifvoid\b@otmultibox\else\unvbox\b@otmultibox \fi}\relax - \setbox2= \vbox to - \vinnerpagesize{\hsize\h@marginboxsize - \vskip 1cm - \unvbox\m@arginbox - \vss}\relax - \hbox{\box\i@nnerpagebox\box2}} - - -\def\pagecontents{\ifvoid\topins\else\unvbox\topins\fi - \unvbox\@cclv % open up \box255 - \ifvoid\footins\else % footnote info is present - \vfill - \vskip\skip\footins - \footnoterule - \unvbox\footins\fi - \ifr@ggedbottom\vfil\fi} - -\def\footnoterule{\kern-3\p@ - \hrule width .2\hcolumnsize \kern 2.6\p@} % the \hrule is .4pt high |