% $Header: /a/tampa/h/tampa_a/fac/levy/texts/geombook/RCS/geomart.sty,v 1.7 94/07/22 09:55:30 levy Exp Locker: levy $
%
% This is the geom style article file, by Silvio Levy.
% It contains modifications to article.sty of <16 Mar 88>.
%
% \typeout{Reading geomart.sty $Revision: 1.7 $ (changes to article.sty)}
% Marginpars go on right side of page.
\@mparswitchfalse
% Input size-dependent information. \@ptsize.sty is defined in book.sty.
\input geomar1\@ptsize.sty\relax
% Layout parameters
\tolerance 1000
\clubpenalty 10000
\widowpenalty 10000
\hfuzz=.1pt
% First two levels of enumerations are (a) and (i), respectively,
% rather than 1. and (a).
\let\@@currentlabel\relax %assign initial value
\def\labelenumi{\theenumi}
\def\theenumi{(\alph{enumi})}
\def\p@enumi{\@@currentlabel}
\def\labelenumii{\theenumii}
\def\theenumii{(\roman{enumii})}
\def\p@enumii{\@@currentlabel}
\def\p@enumiii{\@@currentlabel}
\def\p@enumiv{\@@currentlabel}
% Less space around contents of \fbox (2pt instead of 3pt)
\fboxsep = 2pt
% No explicit \@mkboth needed in \tableofcontents
% marks are automatically added by \section*
\@ifundefined{contentsname}{\def\contentsname{Contents}}{}
\def\tableofcontents{{\starredcontentsfalse\section*{\contentsname}\@starttoc{toc}}}
% Contents line for part
\def\l@part#1#2{\addpenalty{\@secpenalty}
\addvspace{2em plus 1pt} % space above part line
\begingroup
\def\\{\unskip\ \ignorespaces} % deal with \\ in chapter titles --SL
\@tempdima 3em % width of box holding part number, used by
\parindent \z@ %% \numberline
\rightskip \@pnumwidth plus 3em % allow ragged right
\parfillskip -\rightskip % when line wraps around --SL
\hangindent 1.5em % hangindent is same as l@section below --SL
{\bf % set line in boldface
\leavevmode % TeX command to enter horizontal mode.
#1\hfil \hbox to\@pnumwidth{\hss #2}}\par
\nobreak % Never break after part entry
\endgroup}
% Treat contents entry for section same as the others
\def\l@section{\@dottedtocline{1}{0em}{2.3em}}
\def\l@subsection{\@dottedtocline{2}{2.3em}{3.2em}}
\def\l@subsubsection{\@dottedtocline{3}{5.5em}{4.1em}}
\def\l@paragraph{\@dottedtocline{4}{9.6em}{5em}}
\def\l@subparagraph{\@dottedtocline{5}{14.6em}{6em}}
\def\l@ssection{\@dottedtocline{1}{0em}{0em}}
\def\l@ssubsection{\@dottedtocline{2}{2.3em}{0em}}
\def\l@ssubsubsection{\@dottedtocline{3}{5.5em}{0em}}
\def\l@sparagraph{\@dottedtocline{4}{9.6em}{0em}}
\def\l@ssubparagraph{\@dottedtocline{5}{14.6em}{0em}}
% No explicit \@mkboth needed in \listoffigures \listoftables \thebibliography
% marks are automatically added by \section*
\@ifundefined{listfigurename}{\def\listfigurename{List of Figures}}{}
\@ifundefined{listtablename}{\def\listtablename{List of Tables}}{}
\def\listoffigures{\section*{\listfigurename}\@starttoc{lof}}
\def\listoftables{\section*{\listtablename}\@starttoc{lot}}
% no indentation for figure contents line, since there are
% no higher-level entries
\def\l@figure{\@dottedtocline{1}{0em}{2.3em}}
\let\l@table\l@figure
\@ifundefined{refname}{\def\refname{References}}{}
\def\thebibliography#1{\section*{\refname}\list
{[\arabic{enumi}]}{\settowidth\labelwidth{[#1]}\leftmargin\labelwidth
\advance\leftmargin\labelsep
\usecounter{enumi}}
\def\newblock{\hskip .11em plus .33em minus .07em}
\sloppy\clubpenalty4000\widowpenalty4000
\sfcode`\.=1000\relax}
% Index uses two columns and smaller type.
\@ifundefined{indexname}{\def\indexname{Index}}{}
\def\theindex{\begingroup\section*{\indexname}\small
\parindent\z@
\parskip\z@ plus .3pt\relax\let\item\@idxitem
\begin{multicols}2}
\def\endtheindex{\end{multicols}\endgroup}
\def\glo#1{${}^{\dagger}$#1\index{\dag #1}}
\@ifundefined{glossaryname}{\def\glossaryname{Glossary}}{}
\newenvironment{theglossary}%
{\begingroup\section*{\glossaryname}\small
\begin{multicols}2}%
{\end{multicols}\endgroup}
\def\entry{\medbreak\@ifnextchar[{\entry@}{\entry@@}}
\def\entry@@#1{\par\noindent{\bf #1.}\enspace\ignorespaces}
\def\entry@[#1]#2{\par\noindent{\bf #2} #1.\enspace\ignorespaces}
% Indentation in index is smaller (12pt instead of 40pt)
\def\@idxitem{\par\hangindent 12pt}
% Allow more of the page to be taken by figures.
\def\bottomfraction{.7}
\def\floatpagefraction{.7}
% Captions at set with a width somewhat smaller than the main text width
\newdimen\@captionmargin\@captionmargin=\parindent
\newdimen\@captionwidth\@captionwidth=\hsize
\advance\@captionwidth by -2\@captionmargin
% left and right footers (normally set by RCS)
\def\leftfoot{{}}
\def\rightfoot{{}}
% Definition of 'headings' page style.
\def\ps@headings{\let\@mkboth\markboth
\def\@oddfoot{\ifproofing\leftfoot\hfil\rightfoot\unskip\else\hfil\fi}
\def\@evenfoot{\ifproofing\leftfoot\hfil\rightfoot\unskip\else\hfil\fi}
\def\@evenhead{\footnotesize\rm\thepage\hfil\leftmark}% Left heading.
\def\@oddhead{\footnotesize\rm\hbox{}\rightmark\hfil\thepage}%Right heading
\def\ssectionmark##1{\markbothsame{##1}}%
\def\sectionmark##1{{% Expand the \ifnum, not the ##1
\edef\@tempa{\ifnum \c@secnumdepth >\z@ \thesection. \fi}%
\expandafter \markbothsame \expandafter{\@tempa ##1}}}}
\def\ps@plain{\let\@mkboth\markboth
\def\@oddfoot{\ifproofing\leftfoot\hfil\rightfoot\else\hfil\fi}%
\def\@evenfoot{\ifproofing\leftfoot\hfil\rightfoot\else\hfil\fi}%
\def\@evenhead{\hfil}\def\@oddhead{\hfil}}
% Put the new \ps@headings into effect.
\ps@headings
% $Log: geomart.sty,v $
%Revision 1.7 94/07/22 09:55:30 levy
%\contentsname etc.
%
%Revision 1.6 1994/04/08 22:04:06 levy
%initial value for @@currentlabel
%
%Revision 1.5 92/07/17 13:44:17 levy
%*** empty log message ***
%
%Revision 1.4 92/07/13 21:54:23 levy
%further cleaned up the environments
%
%Revision 1.3 92/07/13 08:49:21 levy
%theoremSt -> Theorem
%
%Revision 1.2 92/06/10 12:38:44 levy
%geomart12 -> geomar12
%
%Revision 1.1 92/04/07 09:09:05 levy
%Initial revision
%
%Revision 1.3 1992/03/20 22:39:40 levy
%*** empty log message ***
%
%Revision 1.2 1992/03/20 19:17:42 levy
%*** empty log message ***
%