diff options
Diffstat (limited to 'obsolete/macros/latex209/contrib/script/typearea.sty')
-rw-r--r-- | obsolete/macros/latex209/contrib/script/typearea.sty | 120 |
1 files changed, 120 insertions, 0 deletions
diff --git a/obsolete/macros/latex209/contrib/script/typearea.sty b/obsolete/macros/latex209/contrib/script/typearea.sty new file mode 100644 index 0000000000..46eb39f9ba --- /dev/null +++ b/obsolete/macros/latex209/contrib/script/typearea.sty @@ -0,0 +1,120 @@ +% typearea.sty -- by Frank Neukam (01 Dec 1993) + +\newif\if@hincl +\def\headincludeon{\@hincltrue} +\def\headincludeoff{\@hinclfalse} +\@hinclfalse +\newif\if@fincl +\def\footincludeon{\@fincltrue} +\def\footincludeoff{\@finclfalse} +\@finclfalse +\newdimen\paperwidth +\newdimen\paperheight +\newdimen\ta@bcor +\newcount\ta@div +\newdimen\ta@hblk +\newdimen\ta@vblk +\newdimen\ta@temp +\paperwidth 210mm +\paperheight 297mm +\def\typearea{\@ifnextchar [{\@typearea}{\@typearea[0mm]}} +\def\@typearea[#1]#2{ + \normalsize + \ta@bcor #1 + \ta@div=#2 + \ta@hblk \paperwidth + \advance \ta@hblk by -\ta@bcor + \divide\ta@hblk by \ta@div + \oddsidemargin -1in + \evensidemargin -1in + \if@twoside + \advance\oddsidemargin by \ta@hblk + \advance\oddsidemargin by \ta@bcor + \advance\evensidemargin by 2\ta@hblk + \else + \advance\oddsidemargin by 1.5\ta@hblk + \advance\oddsidemargin by \ta@bcor + \evensidemargin\oddsidemargin + \fi + \textwidth \paperwidth + \advance\textwidth by -\ta@bcor + \advance\textwidth by -3\ta@hblk + \headheight 15pt + \headsep 1.5\baselineskip + \footskip 3.5\baselineskip + \ta@vblk \paperheight + \divide\ta@vblk by \ta@div + \ta@temp \paperheight + \advance\ta@temp by -3\ta@vblk + \if@hincl + \advance\ta@temp by -\headheight + \advance\ta@temp by -\headsep + \fi + \if@fincl + \advance\ta@temp by -\footskip + \fi + \textheight \topskip + \@whiledim\textheight<\ta@temp + \do{\advance\textheight by \baselineskip} + \topmargin \ta@vblk + \advance\topmargin by -1in + \if@hincl \else + \advance\topmargin by -\headheight + \advance\topmargin by -\headsep + \fi + \if@twoside + \marginparwidth 1.5\ta@hblk + \else + \marginparwidth \ta@hblk + \fi + \marginparsep 1cc + \marginparpush 0.45\baselineskip} +\def\areaset{\@ifnextchar [{\@areaset}{\@areaset[0mm]}} +\def\@areaset[#1]#2#3{ + \normalsize + \ta@bcor #1 + \textwidth #2 + \textheight #3 + \ta@hblk \paperwidth + \advance\ta@hblk by -\ta@bcor + \advance\ta@hblk by -\textwidth + \divide\ta@hblk by 3 + \oddsidemargin -1in + \evensidemargin -1in + \if@twoside + \advance\oddsidemargin by \ta@hblk + \advance\oddsidemargin by \ta@bcor + \advance\evensidemargin by 2\ta@hblk + \else + \advance\oddsidemargin by 1.5\ta@hblk + \advance\oddsidemargin by \ta@bcor + \evensidemargin\oddsidemargin + \fi + \headheight 15pt + \headsep 1.5\baselineskip + \footskip 3.5\baselineskip + \ta@vblk \paperheight + \advance\ta@vblk by -\textheight + \divide\ta@vblk by 3 + \if@hincl + \advance\textheight by -\headheight + \advance\textheight by -\headsep + \fi + \if@fincl + \advance\textheight by -\footskip + \fi + \topmargin \ta@vblk + \advance\topmargin by -1in + \if@hincl \else + \advance\topmargin by -\headheight + \advance\topmargin by -\headsep + \fi + \if@twoside + \marginparwidth 1.5\ta@hblk + \else + \marginparwidth \ta@hblk + \fi + \marginparsep 1cc + \marginparpush 0.45\baselineskip} +\ifcase \@ptsize\relax \typearea{8} \or \typearea{10} \or \typearea{12} \fi + |