summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/calendar/autofilo.sty
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/latex/calendar/autofilo.sty')
-rw-r--r--Master/texmf-dist/tex/latex/calendar/autofilo.sty395
1 files changed, 395 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/calendar/autofilo.sty b/Master/texmf-dist/tex/latex/calendar/autofilo.sty
new file mode 100644
index 00000000000..49f52863ee6
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/calendar/autofilo.sty
@@ -0,0 +1,395 @@
+%%
+%% This is file `autofilo.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% autofilo.dtx (with options: `style')
+%% This file is part of the Calendar package,
+%% Copyright (C) 1996, 1997 Frank Bennett, Jr.
+%% All rights reserved.
+%% ------------------------------------------
+%%
+%% IMPORTANT NOTICE:
+%%
+%% You are not allowed to change this file. You may however copy
+%% this file to a file with a different name and then change the
+%% copy if (a) you do not charge for the modified code, (b) you
+%% acknowledge the author of this file in the new file, if it
+%% is distributed to others, and (c) you attach these same
+%% conditions to the new file.
+%%
+%% You are not allowed to distribute this file alone. You are not
+%% allowed to take money for the distribution or use of this file
+%% (or a changed version) except for a nominal charge for copying
+%% etc.
+%%
+%% You are allowed to distribute this file under the condition that
+%% it is distributed with all of its contents, intact.
+%%
+%% For error reports, or offers to help make this a more powerful,
+%% friendlier, and altogether more thrilling package, please contact me on
+%% fb@soas.ac.uk. Better yet, make a contribution to
+%% my pension. Account details available on request.
+%% ------------------------------------------
+%%
+\NeedsTeXFormat{LaTeX2e}[1995/06/01]
+\ProvidesPackage{autofilo}
+ [1997/12/05 12:14:08 2.4 Filofax page outlines (Frank Bennett)]
+\newif\if@usequadruplecolumn
+\DeclareOption{fourcolumn}{\@usequadruplecolumntrue}
+\ProcessOptions
+\RequirePackage{lscape}
+\RequirePackage{keyval}
+\newif\if@quadruplecolumn
+\newbox\@leftleftcolumn
+\newbox\@leftrightcolumn
+\newbox\@rightleftcolumn
+\newbox\@rightrightcolumn
+\newcount\af@punchcluster
+\newcount\af@punchgroups
+\newlength\af@interspace
+\newlength\af@intraspace
+\newlength\af@grip
+\newlength\af@punchmargin
+\newcount\af@punchsize
+\newlength\af@punchwidth
+\newlength\af@halfpunchwidth
+\newcount\af@subtempcount
+\newcount\af@tempcount
+\newlength\af@textwidth
+\newlength\af@marginrel
+\newlength\af@halftextwidth
+\newlength\af@textheight
+\newlength\af@topmargin
+\newlength\af@bottommargin
+\newcount\col@no
+\newlength\af@jawspread
+\newlength\af@halfjawspread
+\newlength\af@jawline
+\def\quadruplecolumn{%
+ \clearpage
+ \global\columnwidth\textwidth
+ \global\advance\columnwidth-3\columnsep
+ \global\divide\columnwidth by4\relax
+ \global\hsize\columnwidth
+ \global\linewidth\columnwidth
+ \global\@twocolumntrue
+ \global\@quadruplecolumntrue
+ \global\@firstcolumntrue
+ \col@number=4\relax}
+\def \@opcol {%
+ \if@twocolumn
+ \if@quadruplecolumn
+ \@outputqdrplcol
+ \else
+ \@outputdblcol
+ \fi
+ \else
+ \@outputpage
+ \fi
+ \global \@mparbottom \z@ \global \@textfloatsheight \z@
+ \@floatplacement}
+\def\@outputqdrplcol{%
+ \ifcase\col@no
+ \global\@firstcolumnfalse
+ \global \setbox\@leftleftcolumn \box\@outputbox
+ \or
+ \global \setbox\@leftrightcolumn \box\@outputbox
+ \or
+ \global \setbox\@rightleftcolumn \box\@outputbox
+ \or
+ \global \@firstcolumntrue
+ \global\setbox\@rightrightcolumn\box\@outputbox
+ \setbox\@outputbox \vbox to\textwidth{%
+ \hb@xt@\textheight {%
+ \vrule height\columnwidth depth0pt width0pt
+ \box\@rightrightcolumn \hss}%
+ \vfill
+ \hrule \@width\columnseprule
+ \vfill
+ \hb@xt@\textheight {%
+ \vrule height\columnwidth depth0pt width0pt
+ \box\@rightleftcolumn \hss}%
+ \vfill
+ \hrule \@width\columnseprule
+ \vfill
+ \hb@xt@\textheight {%
+ \vrule height\columnwidth depth0pt width0pt
+ \box\@leftrightcolumn \hss}%
+ \vfill
+ \hrule \@width\columnseprule
+ \vfill
+ \hb@xt@\textheight {%
+ \box\@leftleftcolumn \hss}%
+ }%
+ \@combinedblfloats
+ \@outputpage
+ \begingroup
+ \@dblfloatplacement
+ \@startdblcolumn
+ \@whilesw\if@fcolmade \fi
+ {\@outputpage
+ \@startdblcolumn}%
+ \endgroup
+ \fi
+ \global\advance\col@no by1\relax
+ \ifnum\col@no=4\relax\global\col@no=0\fi}
+\def\@outputdblcol{%
+ \if@firstcolumn
+ \global \@firstcolumnfalse
+ \global \setbox\@leftcolumn \box\@outputbox
+ \else
+ \global \@firstcolumntrue
+ \setbox\@outputbox \vbox to\textwidth{%
+ \hbox to\textheight{%
+ \box\@outputbox}%
+ \vfil
+ \hrule \@width\columnseprule
+ \vfil
+ \hbox to\textheight{%
+ \box\@leftcolumn}}%
+ \@combinedblfloats
+ \@outputpage
+ \begingroup
+ \@dblfloatplacement
+ \@startdblcolumn
+ \@whilesw\if@fcolmade \fi
+ {\@outputpage
+ \@startdblcolumn}%
+ \endgroup
+ \fi
+}
+\def\af@circle{\hbox{\hskip\af@halfpunchwidth%
+ \ifnum\af@jawspread>0\relax%
+ \hskip-\af@halfjawspread%
+ \hskip-\af@jawline%
+ \vrule depth\af@halfpunchwidth%
+ height\af@halfpunchwidth%
+ width\af@jawline%
+ \hskip\af@halfjawspread%
+ \else%
+ \vrule depth\af@halfpunchwidth%
+ height\af@halfpunchwidth%
+ width0pt%
+ \fi%
+ \circle{\af@punchsize}%
+ \hskip-\af@punchwidth%
+ \ifnum\af@jawspread>0\relax%
+ \hskip\af@halfjawspread%
+ \vrule depth\af@halfpunchwidth%
+ height\af@halfpunchwidth
+ width\af@jawline%
+ \hskip-\af@halfjawspread%
+ \hskip-\af@jawline%
+ \fi%
+ \hskip-\af@halfpunchwidth}}
+\def\af@group{%
+ \bgroup%
+ \af@tempcount=0%
+ \af@circle%
+ \loop\advance\af@tempcount by1\relax%
+ \ifnum\af@tempcount<\af@punchcluster%
+ \hskip\af@intraspace\relax\af@circle%
+ \repeat%
+ \egroup}
+\def\af@circles{%
+ \af@tempcount=0\relax%
+ \af@group%
+ \loop\advance\af@tempcount by1\relax%
+ \ifnum\af@tempcount<\af@punchgroups%
+ \hskip\af@interspace\relax\af@group%
+ \repeat%
+ \af@tempcount=0}
+\def\af@punches{%
+ \hbox to\af@textheight{\hfil\af@circles\hskip\af@halfpunchwidth\relax\hfil}}
+\def\@@@innerframe{%
+ \moveright-\af@topmargin%
+ \vbox to 0pt{%
+ \vskip\topmargin%
+ \vbox to0pt{\hrule width\af@textheight\vss}%
+ \hbox to\af@textheight{\llap{\vrule height\af@textwidth}%
+ \hfil\vrule height\af@textwidth}%
+ \vskip-\af@halftextwidth%
+ \vbox to0pt{\hrule width\af@textheight\vss}%
+ \vskip-\af@halftextwidth%
+ \vskip\af@grip%
+ \nointerlineskip\af@punches\nointerlineskip%
+ \vskip-\af@punchwidth%
+ \vskip-\af@grip%
+ \vskip\af@textwidth%
+ \vskip-\af@punchwidth%
+ \vskip-\af@grip%
+ \nointerlineskip\af@punches\nointerlineskip%
+ \vskip\af@grip%
+ \vbox to0pt{\hrule width\af@textheight\vss}%
+ \vss}}%
+\newif\if@latextwoe
+\@ifundefined{if@compatibility}{\@latextwoefalse}{\@latextwoetrue}
+\if@latextwoe
+\def\@outputpage{%
+\begingroup % the \endgroup is put in by \aftergroup
+ \let \protect \noexpand
+ \@resetactivechars
+ \let\-\@dischyph
+ \let\'\@acci\let\`\@accii\let\=\@acciii
+ \let\\\@normalcr
+ \let\par\@@par %% 15 Sep 87
+ \shipout \vbox{%
+ \set@typeset@protect
+ \aftergroup \endgroup
+ \aftergroup \set@typeset@protect
+ \if@specialpage
+ \global\@specialpagefalse\@nameuse{ps@\@specialstyle}%
+ \fi
+ \if@twoside
+ \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
+ \let\@themargin\oddsidemargin
+ \else \let\@thehead\@evenhead
+ \let\@thefoot\@evenfoot \let\@themargin\evensidemargin
+ \fi
+ \fi
+ \reset@font
+ \normalsize
+ \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@
+ \@begindvi
+ \moveright\@themargin %<<<<<<<<<<<<<<<<<<<<< added
+ \vtop{\@@@innerframe %<<<<<<<<<<<<<<<<<<<<< added
+ \vskip \topmargin
+ \vskip \af@marginrel
+ \moveright\af@topmargin% <<<<<<<<<<<< Bennett
+ \vbox{% %<<<<<<<<<<<<<<<<<<<<< modified
+ \setbox\@tempboxa \vbox to\headheight{%
+ \vfil
+ \color@hbox
+ \normalcolor
+ \hb@xt@\textwidth {%
+ \let \label \@gobble
+ \let \index \@gobble
+ \let \glossary \@gobble %% 21 Jun 91
+ \@thehead
+ }%
+ \color@endbox
+ }% %% 22 Feb 87
+ \dp\@tempboxa \z@
+ \box\@tempboxa
+ \vskip \headsep
+ \box\@outputbox
+ \baselineskip \footskip
+ \color@hbox
+ \normalcolor
+ \hb@xt@\textwidth{%
+ \let \label \@gobble
+ \let \index \@gobble %% 22 Feb 87
+ \let \glossary \@gobble %% 21 Jun 91
+ \@thefoot
+ }%
+ \color@endbox
+ }}%<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< One more close bracket added
+ }%
+\global \@colht \textheight
+\stepcounter{page}%
+\let\firstmark\botmark
+}
+\else
+\message{Sorry, autofilo.sty works only with LaTeX2e}
+\fi
+\headheight=0pt
+\headsep=0pt
+\footskip=0pt
+\marginparwidth=0pt
+\marginparsep=0pt
+\pagestyle{empty}
+\parindent=0pt
+\raggedbottom
+\columnseprule=0.0pt%
+\raggedright
+\define@key{opt}{pageheight}{%
+ \af@textheight=#1\relax}
+\define@key{opt}{pagewidth}{%
+ \af@halftextwidth=#1\relax}
+\define@key{opt}{columnsep}{%
+ \columnsep=#1\relax}
+\define@key{opt}{punchcluster}{%
+ \af@punchcluster=#1}
+\define@key{opt}{punchgroups}{%
+ \af@punchgroups=#1}
+\define@key{opt}{interspace}{%
+ \af@interspace=#1}
+\define@key{opt}{intraspace}{%
+ \af@intraspace=#1}
+\define@key{opt}{grip}{%
+ \af@grip=#1}
+\define@key{opt}{punchmargin}{%
+ \af@punchmargin=#1}
+\define@key{opt}{punchpoints}{%
+ \af@punchsize=#1}
+\define@key{opt}{topspace}{%
+ \af@topmargin=#1}
+\define@key{opt}{bottomspace}{%
+ \af@bottommargin=#1}
+\define@key{opt}{jawspread}{%
+ \af@jawspread=#1}
+\define@key{opt}{jawline}{%
+ \af@jawline=#1}
+\af@textheight=172mm
+\af@halftextwidth=95mm
+\columnsep=14pt
+\af@punchcluster=3
+\af@punchgroups=2
+\af@interspace=51.25mm
+\af@intraspace=19.25mm
+\af@grip=5mm
+\af@punchmargin=2mm
+\af@punchsize=15
+\af@topmargin=2pt
+\af@bottommargin=0pt\relax
+\af@jawline=0.4pt%
+\def\autofilo#1{%
+ \setkeys{opt}{#1}%
+ \oddsidemargin=-1in\relax%
+ \af@textwidth\paperwidth%
+ \advance\af@textwidth by-\af@textheight%
+ \divide\af@textwidth by2\relax%
+ \advance\oddsidemargin by\af@textwidth%
+ \evensidemargin=-1in\relax%
+ \advance\evensidemargin by\af@textwidth%
+ \topmargin=-1in\relax%
+ \af@textwidth\paperheight%
+ \advance\af@textwidth by-\af@halftextwidth%
+ \advance\af@textwidth by-\af@halftextwidth%
+ \divide\af@textwidth by2\relax%
+ \advance\topmargin by\af@textwidth\relax%
+ \landscape%
+ \af@halfjawspread\af@jawspread%
+ \divide\af@halfjawspread by2\relax%
+ \af@punchwidth=\af@punchsize pt%
+ \af@halfpunchwidth\af@punchwidth%
+ \divide\af@halfpunchwidth by2%
+ \textheight\af@textheight%
+ \advance\textheight by-\af@topmargin%
+ \advance\textheight by-\af@bottommargin%
+ \af@textwidth\af@halftextwidth%
+ \multiply\af@textwidth by2\relax%
+ \textwidth=\af@textwidth%
+ \advance\textwidth by-2\af@punchwidth%
+ \advance\textwidth by-2\af@grip%
+ \advance\textwidth by-2\af@punchmargin%
+ \af@marginrel\af@grip%
+ \advance\af@marginrel by\af@punchmargin%
+ \advance\af@marginrel by\af@punchwidth%
+ \vsize\textheight%
+ \hsize\textwidth%
+ \@colroom\vsize%
+ \@colht\vsize%
+ \if@usequadruplecolumn%
+ \quadruplecolumn%
+ \else%
+ \twocolumn%
+ \fi}
+\def\endautofilo{%
+ \endlandscape}
+
+\endinput
+%%
+%% End of file `autofilo.sty'.