ucwmac.tex

   1 %%% Page size and margins %%%
   2
   3 \newdimen\pagewidth
   4 \newdimen\pageheight
   5 \newdimen\leftmargin
   6 \newdimen\rightmargin
   7 \newdimen\topmargin
   8 \newdimen\bottommargin
   9
  10 \def\setuppage{%
  11         \hsize=\pagewidth
  12         \advance\hsize by -\leftmargin
  13         \advance\hsize by -\rightmargin
  14         \vsize=\pageheight
  15         \advance\vsize by -\topmargin
  16         \advance\vsize by -\bottommargin
  17         \hoffset=\leftmargin
  18         \advance\hoffset by -1truein
  19         \voffset=\topmargin
  20         \advance\voffset by -1truein
  21         \ifx\pdfpagewidth\undefined\else
  22                 \pdfpagewidth=\pagewidth
  23                 \pdfpageheight=\pageheight
  24         \fi
  25 }
  26
  27 \def\sethmargins#1{\leftmargin=#1\relax\rightmargin=#1\relax}
  28 \def\setvmargins#1{\topmargin=#1\relax\bottommargin=#1\relax}
  29 \def\setmargins#1{\sethmargins{#1}\setvmargins{#1}}
  30
  31 \def\defpaper#1#2#3{\expandafter\def\csname paper-#1\endcsname{\pagewidth=#2\pageheight=#3\setuppage}}
  32 \def\setpaper#1{%
  33         \expandafter\let\expandafter\currentpaper\csname paper-#1\endcsname
  34         \ifx\currentpaper\relax
  35                 \errmessage{Undefined paper format #1}
  36         \fi
  37         \currentpaper
  38 }
  39
  40 \def\landscape{%
  41         \dimen0=\pageheight
  42         \pageheight=\pagewidth
  43         \pagewidth=\dimen0
  44         \setuppage
  45 }
  46
  47 \defpaper{a3}{297truemm}{420truemm}
  48 \defpaper{a4}{210truemm}{297truemm}
  49 \defpaper{a5}{148truemm}{210truemm}
  50 \defpaper{a6}{105truemm}{148truemm}
  51 \defpaper{letter}{8.5truein}{11truein}
  52 \defpaper{legal}{8.5truein}{14truein}
  53
  54 \setmargins{1truein}
  55 \setpaper{a4}
  56
  57 \bye