ucwmac.tex

   1 % We'll use internal macros of plain TeX
   2 \catcode`@=11
   3
   4 %%% PDF output switch %%%
   5
   6 \newif\ifpdf
   7 \pdffalse
   8
   9 \ifx\pdfoutput\undefined
  10 \else\ifnum\pdfoutput>0
  11         \pdftrue
  12 \fi\fi
  13
  14 %%% Page size and margins %%%
  15
  16 \newdimen\pagewidth
  17 \newdimen\pageheight
  18 \newdimen\leftmargin
  19 \newdimen\rightmargin
  20 \newdimen\topmargin
  21 \newdimen\bottommargin
  22 \newdimen\evenpageshift
  23
  24 \def\setuppage{%
  25         \hsize=\pagewidth
  26         \advance\hsize by -\leftmargin
  27         \advance\hsize by -\rightmargin
  28         \vsize=\pageheight
  29         \advance\vsize by -\topmargin
  30         \advance\vsize by -\bottommargin
  31         \hoffset=\leftmargin
  32         \advance\hoffset by -1truein
  33         \voffset=\topmargin
  34         \advance\voffset by -1truein
  35         \ifpdf
  36                 \pdfpagewidth=\pagewidth
  37                 \pdfpageheight=\pageheight
  38         \fi
  39 }
  40
  41 \def\sethmargins#1{\leftmargin=#1\relax\rightmargin=#1\relax\evenpageshift=0pt\relax}
  42 \def\setvmargins#1{\topmargin=#1\relax\bottommargin=#1\relax}
  43 \def\setmargins#1{\sethmargins{#1}\setvmargins{#1}}
  44
  45 \def\setinneroutermargin#1#2{\sethmargins{#1}{#2}\evenpageshift=\rightmargin\advance\evenpageshift by -\leftmargin}
  46
  47 \def\defpaper#1#2#3{\expandafter\def\csname paper-#1\endcsname{\pagewidth=#2\pageheight=#3\setuppage}}
  48 \def\setpaper#1{%
  49         \expandafter\let\expandafter\currentpaper\csname paper-#1\endcsname
  50         \ifx\currentpaper\relax
  51                 \errmessage{Undefined paper format #1}
  52         \fi
  53         \currentpaper
  54 }
  55
  56 \def\landscape{%
  57         \dimen0=\pageheight
  58         \pageheight=\pagewidth
  59         \pagewidth=\dimen0
  60         \setuppage
  61 }
  62
  63 \defpaper{a3}{297truemm}{420truemm}
  64 \defpaper{a4}{210truemm}{297truemm}
  65 \defpaper{a5}{148truemm}{210truemm}
  66 \defpaper{a6}{105truemm}{148truemm}
  67 \defpaper{letter}{8.5truein}{11truein}
  68 \defpaper{legal}{8.5truein}{14truein}
  69
  70 \setmargins{1truein}
  71 \setpaper{a4}
  72
  73 %%% Placing material at specified coordinates %%%
  74
  75 % Set all dimensions of a given box register to zero
  76 \def\smashbox#1{\ht#1=0pt \dp#1=0pt \wd#1=0pt}
  77 \def\smashedhbox#1{{\setbox0=\hbox{#1}\smashbox0\box0}}
  78 \def\smashedvbox#1{{\setbox0=\vbox{#1}\smashbox0\box0}}
  79
  80 % Variants of \llap and \rlap working equally on both sides and/or vertically
  81 \def\hlap#1{\hbox to 0pt{\hss #1\hss}}
  82 \def\vlap#1{\vbox to 0pt{\vss #1\vss}}
  83 \def\clap#1{\vlap{\hlap{#1}}}
  84
  85 % \placeat{right}{down}{hmaterial} places <hmaterial>, so that its
  86 % reference point lies at the given position wrt. the current ref point
  87 \long\def\placeat#1#2#3{\smashedhbox{\hskip #1\lower #2\hbox{#3}}}
  88
  89 % Like \vbox, but with reference point in the upper left corner
  90 \def\vhang#1{\vtop{\hrule height 0pt\relax #1}}
  91
  92 % Like \vhang, but respecting interline skips
  93 \def\vhanglines#1{\vtop{\hbox to 0pt{}#1}}
  94
  95 % Crosshair with reference point in its center
  96 \def\crosshair#1{\clap{\vrule height 0.2pt width #1}\clap{\vrule height #1 width 0.2pt}}
  97
  98 %%% Output routine %%%
  99
 100 \newbox\pageunderlays
 101 \newbox\pageoverlays
 102 \newbox\commonunderlays
 103 \newbox\commonoverlays
 104
 105 % Adding to {over,under}-lays
 106 \def\addlay#1#2{\setbox#1=\vbox{\ifvbox#1\box#1\fi\smashedvbox{#2}}}
 107 \def\pageunderlay{\addlay\pageunderlays}
 108 \def\pageoverlay{\addlay\pageoverlays}
 109 \def\commonunderlay{\addlay\commonoverlays}
 110 \def\commonoverlay{\addlay\commonoverlays}
 111
 112 \output{\ucwoutput}
 113 \def\ucwoutput{\wigglepage\shipout\vbox{%
 114         \makeheadline
 115         \ifvbox\commonunderlays\copy\commonunderlays\nointerlineskip\fi
 116         \ifvbox\pageunderlays\box\pageunderlays\nointerlineskip\fi
 117         \pagebody
 118         \ifvbox\commonoverlays\vbox to 0pt{\vskip -\vsize\copy\commonoverlays}\fi
 119         \ifvbox\pageoverlays\vbox to 0pt{\vskip -\vsize\box\pageoverlays}\fi
 120         \makefootline
 121 }\advancepageno
 122 \ifnum\outputpenalty>-\@MM \else\dosupereject\fi}
 123
 124 \def\wigglepage{\ifodd\pageno\else\advance\hoffset by \evenpageshift\fi}
 125
 126 %%% Cleanup %%%
 127
 128 % Let's hide all internal macros
 129 \catcode`@=12