%% %% 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'.