summaryrefslogtreecommitdiff
path: root/obsolete/macros/latex209/contrib/script/typearea.sty
diff options
context:
space:
mode:
Diffstat (limited to 'obsolete/macros/latex209/contrib/script/typearea.sty')
-rw-r--r--obsolete/macros/latex209/contrib/script/typearea.sty120
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
+