% \iffalse meta-comment
%
% Copyright (C) 2007 by Scott Pakin <scott+st@pakin.org>
% ------------------------------------------------------
%
% This file may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3c
% of this license or (at your option) any later version.
% The latest version of this license is in:
%
% http://www.latex-project.org/lppl.txt
%
% and version 1.3c or later is part of all distributions of LaTeX
% version 2006/05/20 or later.
%
% \fi
%
% \iffalse
%<*driver>
\ProvidesFile{savetrees.dtx}
%</driver>
%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
%<package>\ProvidesPackage{savetrees}
%<*package>
[2007/12/23 v1.2a Pack as much text as possible onto each page]
%</package>
%
%<*driver>
\documentclass{ltxdoc}
\usepackage{array}
\usepackage{dcolumn}
\usepackage{tabularx}
\EnableCrossrefs
\CodelineIndex
\setcounter{IndexColumns}{2}
\RecordChanges
\begin{document}
\DocInput{savetrees.dtx}
\end{document}
%</driver>
% \fi
%
% \CheckSum{294}
%
% \CharacterTable
% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
% Digits \0\1\2\3\4\5\6\7\8\9
% Exclamation \! Double quote \" Hash (number) \#
% Dollar \$ Percent \% Ampersand \&
% Acute accent \' Left paren \( Right paren \)
% Asterisk \* Plus \+ Comma \,
% Minus \- Point \. Solidus \/
% Colon \: Semicolon \; Less than \<
% Equals \= Greater than \> Question mark \?
% Commercial at \@ Left bracket \[ Backslash \\
% Right bracket \] Circumflex \^ Underscore \_
% Grave accent \` Left brace \{ Vertical bar \|
% Right brace \} Tilde \~}
%
%
% \changes{v1.0}{2002/07/06}{Initial version}
%
% \GetFileInfo{savetrees.dtx}
%
% \DoNotIndex{\.,\@arabic,\@author,\@biblabel,\@clubpenalty,\@date,\@empty}
% \DoNotIndex{\@enumctr,\@enumdepth,\@gobble,\@itemdepth,\@itemitem}
% \DoNotIndex{\@latex@warning,\@m,\@mkboth,\@ne,\@noitemerr,\@openbib@code}
% \DoNotIndex{\@title,\@toodeep,\@undefined,\addtolength,\advance}
% \DoNotIndex{\baselineskip,\begin,\bibname,\c@enumiv,\chapter,\clubpenalty}
% \DoNotIndex{\csname,\DeclareOption,\def,\descriptionlabel,\edef,\else,\end}
% \DoNotIndex{\endcsname,\endlist,\expandafter,\fi,\footnote,\hss,\ifnum,\ifx}
% \DoNotIndex{\itemindent,\labelwidth,\large,\let,\list,\llap,\MakeUppercase}
% \DoNotIndex{\newcommand,\newenvironment,\newif,\newlength,\newpage,\null}
% \DoNotIndex{\p@enumiv,\par,\ProcessOptions,\refname,\relax,\renewcommand}
% \DoNotIndex{\renewenvironment,\romannumeral,\section,\setcounter}
% \DoNotIndex{\setlength,\settowidth,\sfcode,\sloppy,\small}
% \DoNotIndex{\textbf,\thanks,\the,\theenumiv,\thr@@,\usecounter,\vskip}
% \DoNotIndex{\widowpenalty,\z@}
%
% ^^A ----------------------------------------------------------------------
%
% \title{The \textsf{savetrees} package\thanks{This document
% corresponds to \textsf{savetrees}~\fileversion, dated \filedate.}}
% \author{Scott Pakin \\ \texttt{scott+st@pakin.org}}
%
% ^^A Define macros for typesetting/indexing package and program names.
% \DeclareRobustCommand{\pkgname}[1]{^^A
% \textsf{#1}^^A
% \index{#1 (package)\actualchar\string\textsf{#1} (package)\encapchar usage}^^A
% \index{packages:\levelchar#1\actualchar^^A
% \string\textsf{#1}\encapchar usage}^^A
% }
% \DeclareRobustCommand{\progname}[1]{^^A
% \texttt{#1}^^A
% \index{#1 (program)\actualchar\string\texttt{#1} (program)\encapchar usage}^^A
% \index{programs:\levelchar#1\actualchar^^A
% \string\texttt{#1}\encapchar usage}^^A
% }
%
% \sloppy
% \maketitle
%
% \section{Introduction}
%
% The goal of the \pkgname{savetrees} package is to pack as much text as
% possible onto each page of a \LaTeX{} document. Admittedly, this
% makes the document far less attractive. Nevertheless,
% \pkgname{savetrees} is a simple way to save paper when printing draft
% copies of a document. It can also be useful when trying to meet a
% tight page-length requirement for a conference or journal submission.
%
% Table~\ref{tbl:st-techniques} lists the various ways that
% \pkgname{savetrees} compresses documents. Each of these techniques
% can be selectively disabled through the use of package options. As
% may be apparent from the table, only a few techniques are
% beyond the capabilities of a \LaTeX{} novice. \pkgname{savetrees}'s
% ``value added'' is the way that it aggregates a variety of
% space-saving mechanisms into a single package and makes it easy to
% manage the tradeoff between lower page count and higher readability.
%
% \begin{table}
% \renewcommand{\arraystretch}{2}
% \begin{tabularx}{\linewidth}{@{}Xl@{}}
% \hline
% Space-saving technique &
% Implementation \\
% \hline
%
% Typeset section titles smaller and with less surrounding whitespace &
% Use the \pkgname{titlesec} package \\
%
% Reduce page margins &
% Use the \pkgname{geometry} package \\
%
% Reduce indentation and remove inter-item spacing from the various
% list environments &
% Redefine list environments \\
%
% Relax float placement (more floats per page, increased ability to
% share pages with text, etc.) &
% Reassign \LaTeXe{} variables \\
%
% Decrease paragraph indentation &
% Reassign \texttt{\string\parindent} \\
%
% Typeset document title with smaller fonts and with less surrounding
% whitespace &
% Redefine \texttt{\string\maketitle} \\
%
% Reduce interline spacing &
% Reassign \texttt{\string\baselinestretch} \\
%
% Discourage \TeX\ from allowing the last line of a paragraph to
% contain only a single word &
% Reassign \texttt{\string\looseness} \\
%
% Typeset bibliographies smaller and with no inter-item spacing &
% Redefine \texttt{thebibliography} \\
% \hline
% \end{tabularx}
% \caption{\pkgname{savetrees}'s space-saving techniques}
% \label{tbl:st-techniques}
% \end{table}
%
% In addition to providing a \LaTeXe{} style file, the
% \pkgname{savetrees} package also provides a \BibTeX{} style file.
% |savetrees.bst| exhibits the following salient differences from
% |plain.bst|:
%
% \begin{itemize}
% \item Abbreviations are used wherever possible:
%
% \begin{center}
% \begin{tabular}{l@{\quad$\Longrightarrow$\quad}l}
% chapter & chap. \\
% edition & ed. \\
% editor \emph{or} editors & ed.\ \emph{or} eds. \\
% January, February,~\dots & Jan., Feb.,~\dots \\
% page \emph{or} pages & p.\ \emph{or} pp. \\
% Technical Report & Tech. Rep. \\
% \end{tabular}
% \end{center}
%
% \item At most two authors are listed. The remainder are replaced by
% ``et al.''
%
% \item Authors' names are abbreviated to their initials plus surname
% (e.g.,~``S.~D.~Pakin'').
% \end{itemize}
%
% \noindent
% In addition, |savetrees.bst| does not normally typeset |NOTE| fields,
% although it can be instructed to via a \pkgname{savetrees} package
% option.
%
% Finally, the \pkgname{savetrees} package includes a
% Perl\index{Perl|usage} script called ``|makethin|'', which
% automatically generates narrower versions of \TeX{} fonts plus
% configuration files for Dvips and pdf\LaTeX.
%
% \section{\texttt{savetrees.sty}---reduce document whitespace}
%
% To use |savetrees.sty|, merely load it into a document by putting
% ``|\usepackage{savetrees}|'' in the document's preamble. By default,
% all of \pkgname{savetrees}'s space-saving techniques are enabled.
% However, package options can disable any features that violate given
% formatting requirements, that conflict with other \LaTeXe{} packages,
% or that you simply consider excessively ugly. \pkgname{savetrees}
% supports the following options:
%
% ^^A Display and index a package option.
% \newcommand{\pkgoption}[1]{^^A
% \textsf{#1}^^A
% \index{#1 (package option)\actualchar^^A
% \string\textsf{#1} (package option)\encapchar usage}^^A
% \index{package options:\levelchar#1\actualchar^^A
% \string\textsf{#1}\encapchar usage}^^A
% }
%
% \begin{description}
% \item[\pkgoption{normalsections}] Don't modify section headers.
%
% \item[\pkgoption{normalmargins}] Don't modify page margins.
%
% \item[\pkgoption{normallists}] Don't modify the |itemize|,
% |enumerate|, or |description| environments.
%
% \item[\pkgoption{normalfloats}] Don't modify \LaTeXe's float
% parameters.
%
% \item[\pkgoption{normalindent}] Don't modify paragraph indentation.
%
% \item[\pkgoption{normaltitle}] Don't modify the formatting of the
% document title.
%
% \item[\pkgoption{normalleading}] Don't modify interline spacing.
%
% \item[\pkgoption{normallooseness}] Don't modify paragraph looseness.
%
% \item[\pkgoption{normalbib}] Don't modify bibliography formatting.
%
% \item[\pkgoption{normalbibnotes}] Don't omit |NOTE| fields from the
% bibliography (only meaningful with the \pkgname{savetrees}
% bibliography style).
% \end{description}
%
% For example, to keep page margins and interline spacing as they are
% but save space everyplace else, you should put the following
% |\usepackage| line in your document's preamble:
%
% \begin{verbatim}
% \usepackage[normalmargins,normalleading]{savetrees}
% \end{verbatim}
%
%
% \section{\texttt{savetrees.bst}---abbreviate bibliographic information}
%
% One of the advantages of a tool like \BibTeX{} is that the
% bibliographic database can---and should---contain complete
% bibliographic information for each reference, while style files
% determine the subset of that information that is actually typeset.
% |savetrees.bst| saves space by truncating |AUTHOR| fields to two
% authors plus ``et al.'', listing authors by initials and surname only,
% abbreviating the |MONTH| field to three letters, and (by default)
% omitting the |NOTE| field altogether.
%
% To use the |savetrees.bst|, simply add
% ``|\bibliographystyle{savetrees}|'' to your document (or replace an
% existing |\bibliographystyle|). Then, to give |savetrees.bst|---or
% \emph{any} \BibTeX{} style file---maximum flexibility, you should obey
% the following rules when writing your |.bib| file:
%
% \begin{enumerate}
% \item Use the three-letter month macros defined by virtually all
% \BibTeX{} style files instead of spelling out month names
% explicitly:
%
% \begin{tabularx}{\linewidth}{@{}lX@{}}
% \hline
% Good: & \texttt{MONTH = sep,} \\
% & Can be typeset as ``September'', ``Sept.'', ``SEP'',
% ``Septiembre'', etc. \\
%
% Bad: & \texttt{MONTH = \{September\},} \\
% & Can be typeset only as ``September''. \\
% \hline
% \end{tabularx}
%
% \item Include authors' full names (or as much of each name as is
% available); let \BibTeX{} abbreviate as necessary:
%
% \begin{tabularx}{\linewidth}{@{}lX@{}}
% \hline
% Better: & \texttt{AUTHOR = \{Rufus Xavier Sarsaparilla\}}, \\
% & Can be either typeset in full or abbreviated to
% ``Rufus~X. Sarsaparilla'', ``R.~X. Sarsaparilla'', etc. \\
%
% Worse: & \texttt{AUTHOR = \{R.~X. Sarsaparilla\}}, \\
% & Can be typeset as ``R.~X. Sarsaparilla''---or even a more
% abbreviated form---but can't be expanded to the full name. \\
% \hline
% \end{tabularx}
%
% \item Include the names of \emph{all} authors; let \BibTeX{} decide
% where to truncate the list:
%
% \begin{tabularx}{\linewidth}{@{}lX@{}}
% \hline
%
% Good: & \texttt{AUTHOR = \{Rufus Xavier Sarsaparilla and
% Rafaella Gabriela Sarsaparilla and Albert Andreas
% Armadillo\},} \\
% & All authors can be named, or the list can be truncated at any
% point with ``et al.'', ``and others'', or whatever. \\
%
% Bad: & \texttt{AUTHOR = \{Rufus Xavier Sarsaparilla and others\},} \\
% & At most one author can be named, but ``and others'' can still
% be replaced by ``et al.''\ or a different phrase, the font
% can be varied, and the author's name can be abbreviated, as in
% the previous rule. \\
% Worse: & \texttt{AUTHOR = \{\{Rufus Xavier Sarsaparilla, et al.\}\},} \\
% & Can be typeset only precisely as ``Rufus Xavier
% Sarsaparilla, et al.'' \\
% \hline
% \end{tabularx}
% \end{enumerate}
%
% The \pkgname{savetrees} \BibTeX{} style utilizes the same fields as
% the standard \BibTeX{} styles (|plain|, |alpha|, |abbrv|, |unsrt|,
% etc.), with the exception that the |NOTE| field is normally
% suppressed. To include |NOTE| fields in your Bibliography/References
% sections, pass the \pkgoption{normalbibnotes} option to the
% \pkgname{savetrees} \LaTeX{} style file.
%
% |savetrees.bst| can't normally be used independently of
% |savetrees.sty|, because the former typesets |NOTE| fields within a
% |\savetreesbibnote{|\dots|}| call, which is defined by the latter.
% If you desperately want to use |savetrees.bst| without having to load
% |savetrees.sty|, then you should examine the definition of the
% |\savetreesbibnote| macro
% \makeatletter
% \@ifundefined{r@code:stbn-begin}{^^A
% in \texttt{savetrees.sty}.
% }{^^A
% on page~\pageref{code:stbn-begin} of this document^^A
% \ifcodeline@index
% ~(code lines~\ref{code:stbn-begin}--\ref{code:stbn-end})^^A
% \fi.
% }
% \makeatother
%
%
% \section{\texttt{makethin}---make thinner versions of \TeX{} fonts}
%
% \paragraph{Question:}
% What's the narrowest font?
%
% \paragraph{Answer:}
% It depends upon how you measure. Table~\ref{tbl:font-widths}
% shows, for various fonts, the width in points of 1000 lowercase
% letters with relative frequencies chosen to match ``typical''
% English text. There are 130~e's, 93~t's, 78~n's, 77~r's, and so forth
% down the frequency distribution. According to the table, Times Roman
% is statistically likely to be the best typeface for maximizing the
% amount of text on the page. However, Times Roman may not be the
% narrowest for \emph{your} document; you'll have to experiment and see.
%
% \newcommand{\thousandletters}{^^A
% aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa^^A
% bbbbbbbbb^^A
% cccccccccccccccccccccccccccccc^^A
% dddddddddddddddddddddddddddddddddddddddddddd^^A
% eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee^^A
% ffffffffffffffffffffffffffff^^A
% gggggggggggggggg^^A
% hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh^^A
% iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii^^A
% jj^^A
% kkk^^A
% lllllllllllllllllllllllllllllllllll^^A
% mmmmmmmmmmmmmmmmmmmmmmmmm^^A
% nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn^^A
% oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo^^A
% ppppppppppppppppppppppppppp^^A
% qqq^^A
% rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr^^A
% sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss^^A
% ttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttttt^^A
% uuuuuuuuuuuuuuuuuuuuuuuuuuu^^A
% vvvvvvvvvvvvv^^A
% wwwwwwwwwwwwwwww^^A
% xxxxx^^A
% yyyyyyyyyyyyyyyyyyy^^A
% z^^A
% }
%
% \newlength{\thousandwidth}
% \makeatletter
% \newcommand{\fontwidth}[1]{^^A
% \settowidth{\thousandwidth}{\fontfamily{#1}\selectfont\thousandletters}^^A
% \divide\thousandwidth by 1000\relax
% \strip@pt\thousandwidth
% }
% \makeatother
%
% \begin{table}[htbp]
% \centering
% \begin{tabular}{@{}l>{\sffamily\selectfont}l@{\qquad}D{.}{.}{-1}@{}}
% \hline
% Typeface &
% \multicolumn{1}{l}{Package} &
% \multicolumn{1}{l@{}}{Avg. width (pt.)} \\
% \hline
%
% Times Roman & times & \fontwidth{ptm} \\
% Computer Modern & \multicolumn{1}{l}{(default)} & \fontwidth{cmr} \\
% Charter & charter & \fontwidth{bch} \\
% Helvetica & helvetic & \fontwidth{phv} \\
% Palatino & palatino & \fontwidth{ppl} \\
% Utopia & utopia & \fontwidth{put} \\
% New Century Schoolbook & newcent & \fontwidth{pnc} \\
% Avant Garde & avantgar & \fontwidth{pag} \\
% Bookman & bookman & \fontwidth{pbk} \\
% Courier & courier & \fontwidth{pcr} \\
% \hline
% \end{tabular}
% \caption{Common fonts sorted by increasing width}
% \label{tbl:font-widths}
% \end{table}
%
% We can do better than merely \emph{selecting} a narrow font, though.
% We can \emph{generate} a narrower version of an existing font. The
% idea is to present \TeX{} with font metrics that indicate thinner
% characters and to tell Dvips to use the PostScript
% ``\texttt{ExtendFont}'' operator to compress all of the glyphs. The
% \pkgname{savetrees} package comes with a Perl\index{Perl|usage} script,
% \progname{makethin}, which automates the task of generating narrow
% font variants. From a typography viewpoint, the results are
% deplorable, as the glyphs are simply squeezed rather than
% optically scaled to a new width. But from the perspective of trying
% to pack more text onto a page with minimal effort, \progname{makethin}
% can be quite efficacious.
%
% \DeleteShortVerb{\|}
% \begin{center}
% \begin{tabular}{|p{0.66\linewidth}|}
% \multicolumn{1}{c}{\textbf{Warning}} \\
% \hline
% To avoid confusion with the original font-metric files, do not
% distribute the \texttt{.tfm} or \texttt{.vf} files generated by
% \progname{makethin} unless you rename them first. \\
% \hline
% \end{tabular}
% \end{center}
% \MakeShortVerb{\|}
%
% In addition to requiring Perl\index{Perl|usage}, \progname{makethin}
% depends upon two helper programs: \progname{kpsewhich} and
% \progname{dvitype}. \progname{kpsewhich} searches the \TeX{}
% installation directory for a given file or file type. While
% \progname{kpsewhich} is a standard part of Kpathsea-based \TeX{}
% distributions, such as te\kern-.1em\TeX{}, it does not normally function on
% non-Kpathsea based distributions, such as MiK\TeX{}.\footnote{I have
% no current plans to port \progname{makethin} to non-Kpathsea based
% \TeX{} distributions, but volunteers to do the work are certainly welcome.}
% \progname{dvitype} outputs a DVI file in a textual format that's easy
% for \progname{makethin} to process. \progname{makethin} extracts font
% names from lines like the following:
%
% \begin{verbatim}
% Font 44: cmtt10---loaded at size 655360 DVI units
% Font 43: cmtt12 scaled 1200---loaded at size 943718 DVI units
% Font 33: cmss10---loaded at size 655360 DVI units
% \end{verbatim}
%
% The \progname{makethin} script contains documentation in POD\index{POD
% (Plain Old Documentation)|usage} (Plain Old Documentation) format.
% This can be extracted using \progname{makethin}'s |--man| or
% |--man-ps| options, as described below, or any of
% Perl's\index{Perl|usage} ``\texttt{pod2}\meta{something}'' converters,
% such as \progname{pod2text} or \progname{pod2html}. Beginning on the
% following page is the \progname{makethin} documentation, as extracted
% by \progname{pod2latex} (with some minor formatting modifications).
%
% ^^A Adjust some lengths to be more amenable to formatting man pages.
% \clearpage
% \let\origparindent=\parindent
% \setlength{\parindent}{0pt}
% \let\origparskip=\parskip
% \setlength{\parskip}{0.5\baselineskip}
%
% ^^A Define commands to index short and long makethin options.
% \newcommand{\thinoptidxS}[1]{^^A
% \index{#1\actualchar\texttt{-{}#1} (\texttt{makethin} option)\encapchar usage}^^A
% \index{makethin options\actualchar\texttt{makethin} options:\levelchar
% #1\actualchar\texttt{-{}#1}\encapchar usage}}
% \newcommand{\thinoptidxL}[1]{^^A
% \index{#1\actualchar\texttt{-{}-{}#1} (\texttt{makethin} option)\encapchar usage}^^A
% \index{makethin options\actualchar\texttt{makethin} options:\levelchar
% #1\actualchar\texttt{-{}-{}#1}\encapchar usage}}
% \newcommand{\thinoptidx}[2]{\thinoptidxS{#1}\thinoptidxL{#2}}
%
% ^^A Define commands for displaying and indexing file names.
% \newcommand{\thinextidx}[1]{^^A
% \textit{.#1}\index{#1 files=\string\texttt{.#1} files\encapchar usage}}
% \newcommand{\thinfileidx}[1]{^^A
% \textit{#1}\index{#1=\string\texttt{#1}\encapchar usage}}
%
% ^^A Define a command for displaying and indexing program names.
% \newcommand{\thinprogidx}[1]{^^A
% \textbf{#1}^^A
% \index{#1 (program)\actualchar\string\texttt{#1} (program)\encapchar usage}^^A
% \index{programs:\levelchar#1\actualchar^^A
% \string\texttt{#1}\encapchar usage}^^A
% }
%
% \subsection*{NAME}
% makethin---make thinner versions of PostScript fonts for \TeX{}
%
% \subsection*{SYNOPSIS}
% makethin
% \thinoptidx{v}{verbose}^^A
% \thinoptidx{h}{help}^^A
% \thinoptidx{x}{xscale}^^A
% \thinoptidx{C}{cleanfirst}^^A
% \thinoptidx{c}{clean}^^A
% \thinoptidx{P}{config}^^A
% \thinoptidx{p}{pdftex}^^A
% \thinoptidx{m}{extramaps}^^A
% \thinoptidx{k}{skipfonts}^^A
% \thinoptidx{b}{basename}^^A
% \thinoptidx{e}{extrafonts}^^A
% \thinoptidxL{man}^^A
% \thinoptidxL{man-ps}^^A
% {\tt [}{\bf {\tt --}verbose}{\tt ]}
% {\tt [}{\bf {\tt --}xscale}={\em factor\/}{\tt ]}
% {\tt [}{\bf {\tt --}cleanfirst}{\tt ]}
% {\tt [}{\bf {\tt --}clean}{\tt ]}
% {\tt [}{\bf {\tt --}config}={\em extension\/}{\tt ]}
% {\tt [}{\bf {\tt --}pdftex}{\tt ]}
% {\tt [}{\bf {\tt --}extramaps}={\em file\/}{\tt [},{\em file\/}{\tt ]}...{\tt ]}
% {\tt [}{\bf {\tt --}skipfonts}={\em font\/}{\tt [},{\em font\/}{\tt ]}...{\tt ]}
% {\tt [}{\bf {\tt --}basename}={\em string\/}{\tt ]}
% {\tt [}{\bf {\tt --}extrafonts}={\em font\/}{\tt [},{\em font\/}{\tt ]}...{\tt ]}
% \thinextidx{dvi}{\em file\/}
%
% makethin
% {\tt [}{\bf {\tt --}verbose}{\tt ]}
% {\bf {\tt --}help}
%
% makethin
% {\bf {\tt --}man}={\em man page\/} \verb+|+ {\bf {\tt --}man-ps}={\em PostScript file\/}
%
% \subsection*{DESCRIPTION}
% \thinprogidx{makethin} produces thinner versions of PostScript fonts for use
% with \TeX{}/\LaTeX{} and Dvips. More precisely, it finds all of
% the \thinextidx{tfm} and \thinextidx{vf} fonts referred to by a
% \thinextidx{dvi} file, scales the character-width metrics by a given
% amount, and writes new \thinextidx{tfm} and \thinextidx{vf} files to
% the current directory. \thinprogidx{makethin} then generates a customized
% \thinextidx{map} and {\em config\/}^^A
% \index{config files=\texttt{config} files|usage}
% file for Dvips and, optionally, a customized
% \thinfileidx{pdftex.cfg} file for pdf\LaTeX{}.
%
% The general procedure for using \thinprogidx{makethin} is as follows:
%
% \begin{enumerate}
%
% \item
% Run \thinprogidx{latex} on your \thinextidx{tex} source file to produce a
% \thinextidx{dvi} file.
%
% \item
% Run \thinprogidx{makethin} on the \thinextidx{dvi} file to create new
% \thinextidx{tfm}, \thinextidx{vf}, \thinextidx{map}, and
% {\em config\/}\index{config files=\texttt{config} files|usage} files.
%
% \item
% Re-run \thinprogidx{latex} on your \thinextidx{tex} source file to typeset it
% with the new fonts.
%
% \item
% Run \thinprogidx{dvips} on the \thinextidx{dvi} file, specifying the newly
% generated \thinextidx{map} and
% {\em config\/}\index{config files=\texttt{config} files|usage} files,
% to produce a \thinextidx{ps} file.
%
% \end{enumerate}
%
% \subsection*{OPTIONS}^^A
%
% The following are the command-line options that \thinprogidx{makethin} accepts:
%
% \begin{description}
%
% \item[{\bf -v}, {\bf {\tt --}verbose}]^^A
% \thinoptidx{v}{verbose}^^A
% \hfil\\
% Increase the verbosity of the status output. {\bf {\tt --}verbose} can be
% specified multiple times on the same command line, with each
% {\bf {\tt --}verbose} futher increasing the verbosity. (Currently, two
% {\bf {\tt --}verbose}s have maximal impact.)
%
% \item[{\bf -h}, {\bf {\tt --}help}]^^A
% \thinoptidx{h}{help}^^A
% \hfil\\
% Display basic usage information. When combined with {\bf {\tt --}verbose},
% additionally describes each of the command-line options. When
% combined with a second {\bf {\tt --}verbose}, {\bf {\tt --}help} outputs the complete
% \thinprogidx{makethin} manual page.
%
% \item[{\bf -x} {\em factor\/}, {\bf {\tt --}xscale}={\em factor\/}]^^A
% \thinoptidx{x}{xscale}^^A
% \hfil\\
% Scale fonts horizontally by a factor of {\em factor\/}. The default,
% {\tt 0.5}, produces nearly illegible fonts but is useful for verifying
% that \thinprogidx{makethin} actually worked. Factors of {\tt 0.90}--{\tt 0.99}
% are more reasonable.
%
% \item[{\bf -C}, {\bf {\tt --}cleanfirst}]^^A
% \thinoptidx{C}{cleanfirst}^^A
% \hfil\\
% Delete all files generated by a previous run of \thinprogidx{makethin} before
% generating new ones.
%
% \item[{\bf -c}, {\bf {\tt --}clean}]^^A
% \thinoptidx{c}{clean}^^A
% \hfil\\
% Delete all files generated by a previous run of \thinprogidx{makethin} and then
% exit.
%
% \item[{\bf -P} {\em extension\/}, {\bf {\tt --}config}={\em extension\/}]^^A
% \thinoptidx{P}{config}^^A
% \hfil\\
% Process all of the \thinextidx{map} files named in
% {\em config.\/}{\em extension\/}^^A
% \index{config files=\texttt{config} files|usage}
% (found in Dvips's configuration directory). {\bf {\tt --}config}
% can be specified multiple times on the same command line.
% \thinfileidx{config.ps} is processed implicitly. The same {\bf -P}
% arguments that you would normally pass to \thinprogidx{dvips} to utilize
% entirely PostScript fonts (e.g., {\bf -Pcmz} and {\bf -Pamz}) should
% also be passed to \thinprogidx{makethin}.
%
% \item[{\bf -p}, {\bf {\tt --}pdftex}]^^A
% \thinoptidx{p}{pdftex}^^A
% \hfil\\
% In addition to producing the files needed by Dvips, also produce a
% \thinfileidx{pdftex.cfg} file that is usable by pdf\LaTeX{}.
%
% \item[{\bf -m} {\em file\/}{\tt [},{\em file\/}{\tt ]}...{\tt ]}, {\bf {\tt --}extramaps}={\em file\/}{\tt [},{\em file\/}{\tt ]}...{\tt ]}]^^A
% \thinoptidx{m}{extramaps}^^A
% \hfil\\
% Additionally process the named Dvips \thinextidx{map} files even if they're
% not referred to by any of the {\em config.\/}{\em extension\/} files^^A
% \index{config files=\texttt{config} files|usage}
% specified with {\bf {\tt --}config}. {\bf {\tt --}extramaps} can be
% specified multiple times on the same command line.
%
% \item[{\bf -k} {\em font\/}{\tt [},{\em font\/}{\tt ]}...{\tt ]}, {\bf {\tt --}skipfonts}={\em font\/}{\tt [},{\em font\/}{\tt ]}...{\tt ]}]^^A
% \thinoptidx{k}{skipfonts}^^A
% \hfil\\
% Don't make thin versions of the named fonts, even if they're listed in
% the \thinextidx{dvi} file. Fonts are named using the Berry scheme (i.e.,
% ``{\tt pcrr8a}'' as opposed to ``{\tt COURB}'' or ``{\tt Courier-Bold}'').
% {\bf {\tt --}skipfonts} can be specified multiple times on the same command
% line.
%
% \item[{\bf -b} {\em string\/}, {\bf {\tt --}basename}={\em string\/}]^^A
% \thinoptidx{b}{basename}^^A
% \hfil\\
% Tell \thinprogidx{makethin} to use {\em string\/} as the base name for the Dvips
% configuration files it generates. The default is ``{\tt thin}'', so
% \thinprogidx{makethin} normally produces files named \thinfileidx{config.thin} and
% \thinfileidx{thin.map}, but {\bf {\tt --}basename} enables alternate
% filenames to be used.
%
% \item[{\bf -e} {\em font\/}{\tt [},{\em font\/}{\tt ]}...{\tt ]}, {\bf {\tt --}extrafonts}={\em font\/}{\tt [},{\em font\/}{\tt ]}...{\tt ]}]^^A
% \thinoptidx{e}{extrafonts}^^A
% \hfil\\
% Make thin versions of the named fonts, even if they're not listed in
% the \thinextidx{dvi} file. Fonts are named using the Berry scheme (i.e.,
% ``{\tt pcrr8a}'' as opposed to ``{\tt COURB}'' or ``{\tt Courier-Bold}'').
% {\bf {\tt --}extrafonts} can be specified multiple times on the same command
% line.
%
% \item[{\bf {\tt --}man}={\em man page\/}]^^A
% \thinoptidxL{man}^^A
% \hfil\\
% Create a Unix manual page for \thinprogidx{makethin} in the standard, $\ast$roff
% format. Typical usage is:
% \begin{verbatim}
% makethin --man=/usr/man/man1/makethin.1
% \end{verbatim}
%
% \item[{\bf {\tt --}man-ps}={\em PostScript file\/}]^^A
% \thinoptidxL{man-ps}^^A
% \hfil\\
% Create a Unix manual page for \thinprogidx{makethin} in PostScript format instead
% of $\ast$roff format.
%
% \end{description}
%
% In addition to the options listed above, \thinprogidx{makethin} has a required
% argument, which is the name of a \thinextidx{dvi} file from which to read font
% information.
%
% \subsection*{EXAMPLES}
% The following are some examples of how to use \thinprogidx{makethin}.
%
% \subsubsection*{A typical case}^^A
%
% First, we need to produce {\em myfile.dvi\/}, because that contains the
% font information that \thinprogidx{makethin} will read:
% \begin{verbatim}
% latex myfile.tex
% \end{verbatim}
%
% Next, we invoke \thinprogidx{makethin}, telling it to process
% \thinfileidx{config.cmz} (which, in turn, causes
% \thinfileidx{psfonts.cmz} to be processed), This tells \thinprogidx{makethin}
% to use PostScript versions of the Computer Modern fonts instead of
% bitmapped versions. (\thinprogidx{makethin} can scale only PostScript fonts.)
% We also specify maximal verbosity:
% \begin{verbatim}
% makethin -Pcmz --verbose --verbose myfile.dvi
% \end{verbatim}
%
% The preceding line reads \thinfileidx{config.ps},
% \thinfileidx{config.cmz}, various map files, such as
% \thinfileidx{psfonts.map} and \thinfileidx{psfonts.cmz}, and all of
% the \thinextidx{tfm} and \thinextidx{vf} files mentioned in {\em
% myfile.dvi\/}. It then writes \thinfileidx{config.thin},
% \thinfileidx{thin.map}, and modified versions of all of the
% \thinextidx{tfm} and \thinextidx{vf} files to the current directory.
%
% We now need to re-run \thinprogidx{latex}, so it can produce a new {\em myfile.dvi\/}
% using the thinner metrics listed in the current directory's \thinextidx{tfm}
% and \thinextidx{vf} files:
% \begin{verbatim}
% latex myfile.tex
% \end{verbatim}
%
% Finally, we produce a PostScript file using the newly generated using
% \thinfileidx{config.thin} and \thinfileidx{thin.map} files:
% \begin{verbatim}
% dvips -Pthin myfile.dvi -o myfile.ps
% \end{verbatim}
%
% If all worked according to plan, {\em myfile.ps\/} should be typeset using
% extremely thin (half-width) versions of its original fonts.
%
% \subsubsection*{Producing thin fonts for use in pdf\LaTeX{}}^^A
% \index{pdfLaTeX=pdf\LaTeX{}|(usage}
%
% Because \thinprogidx{makethin} can read only \thinextidx{dvi} files, not
% \thinextidx{pdf} files, we first need to produce a \thinextidx{dvi}
% file:
% \begin{verbatim}
% latex too-long.tex
% \end{verbatim}
%
% {\em too-long.dvi\/} is typeset entirely using the Times family of
% fonts. Therefore, we don't need to specify {\bf -Pcmz}. However,
% {\bf pdflatex} normally embeds Times, thereby precluding {\bf
% makethin}'s ability to scale it. (\thinprogidx{makethin} requires a {\em
% .pfb\/} font file in order to scale the corresponding font.)
% Fortunately, {\em /usr/share/texmf/dvips/config/ar-std-urw-kb.map\/}^^A
% \index{ar-std-urw-kb.map=\texttt{ar-std-urw-kb.map}|usage}
% already contains the proper mapping of \TeX{} names to \thinextidx{pfb}
% files for Times, Courier, and Helvetica. We can tell \thinprogidx{makethin}
% to use that file:
% \begin{verbatim}
% makethin --cleanfirst -v -v too-long.dvi --pdftex --xscale=0.9
% --extramaps=/usr/share/texmf/dvips/config/ar-std-urw-kb.map
% \end{verbatim}
%
% In the preceding line, we changed the scaling factor from the default
% of 0.5 to a more reasonable 0.9. Because we had some 0.5-scaled
% \thinextidx{tfm} and \thinextidx{vf} files left over from the previous
% example, we specified {\bf {\tt --}cleanfirst} to delete those old
% font files. We specified {\bf {\tt --}pdftex} to make \thinprogidx{makethin}
% produce a local \thinfileidx{pdftex.cfg} file. And we told {\bf
% makethin} where to find the extra map file needed to force the usage
% of \thinextidx{pfb} files.
%
% All that's left is to run {\bf pdflatex} to produce a \thinextidx{pdf}
% file:
% \begin{verbatim}
% pdflatex too-long.tex
% \end{verbatim}
%
% {\bf pdflatex} will read the font metric files (\thinextidx{tfm} and
% \thinextidx{vf}) and \thinfileidx{pdftex.cfg} from the current
% directory. This will tell it to load \thinfileidx{thin.map}, which
% specifies the scaling factor. The result should be a document with
% each character squeezed to 90\% of its original width.
%
% \index{pdfLaTeX=pdf\LaTeX{}|)}
%
% \subsection*{FILES}
% \begin{description}
%
% \item[\thinprogidx{perl}]^^A
% \index{Perl|usage}^^A
% \hfil\\
% interpreter/compiler needed to run the \thinprogidx{makethin} script
%
% \item[\thinprogidx{kpsewhich}]^^A
% \hfil\\
% finds files within the \TeX{} directory tree
%
% \item[\thinprogidx{dvitype}]^^A
% \hfil\\
% outputs the typesetting commands contained within a \thinextidx{dvi} file
%
% \item[{\em $\ast$.tfm\/} and {\em $\ast$.vf\/}]^^A
% \index{tfm files=\texttt{.tfm} files|usage}^^A
% \index{vf files=\texttt{.vf} files|usage}^^A
% \hfil\\
% \TeX{} font metrics and virtual fonts--metrics specifying the width of
% each character in a font
%
% \item[{\em config.$\ast$\/}]^^A
% \index{config files=\texttt{config} files|usage}^^A
% \hfil\\
% Dvips configuration files, each containing (among other
% information) a list of font-map files
%
% \item[{\em psfonts.$\ast$\/}, {\em $\ast$.map\/}]^^A
% \index{psfonts.*=\texttt{psfonts.*}|usage}^^A
% \index{map files|usage}^^A
% \hfil\\
% Dvips font-map files, which map \TeX{} font names to PostScript
% font names and \thinextidx{pfb} files
%
% \item[\thinfileidx{pdftex.cfg}]^^A
% \hfil\\
% pdf\TeX{} and pdf\LaTeX{} configuration files, each containing (among
% other information) a list of font-map files
%
% \item[\thinprogidx{groff}]^^A
% \hfil\\
% used by {\bf {\tt --}man-ps} to produce a PostScript version of the
% Unix manual page for \thinprogidx{makethin}
%
% \end{description}
%
% \subsection*{RESTRICTIONS}^^A
%
% The most serious restriction is that \thinprogidx{makethin} doesn't
% work on Computer Modern Roman 10pt. (\thinfileidx{cmr10})---the
% default \TeX{}/\LaTeX{} font. The reason, I believe, is that \TeX{}
% and \LaTeX{} preload that font's metrics ({\em cmr10.tfm\/}) and
% therefore ignore the scaled \thinfileidx{cmr10.tfm} on disk. It may
% be possible to work around this limitation by copying
% \thinfileidx{cmr10.tfm} to a new name and convincing \LaTeX{} to use that
% name where it would otherwise have used \thinfileidx{cmr10.tfm}.
% However, it's much easier merely to use a different font family (e.g.,
% with ``{\tt \char`\\usepackage\{times\}}'') for typesetting your
% document when you know you want to run \thinprogidx{makethin}.
%
% \subsection*{SEE ALSO}
% {\em dvips\/}(1),
% {\em latex\/}(1),
% {\em pdflatex\/}(1),
% the \LaTeX{} {\tt savetrees} package
%
% \subsection*{AUTHOR}
% Scott Pakin, {\em scott+st@pakin.org\/}
%
% \clearpage
% \setlength{\parskip}{\origparskip}
% \setlength{\parindent}{\origparindent}
%
% \StopEventually{\PrintChanges\PrintIndex}
%
% ^^A Define macros for labeling lines of code.
% \makeatletter
% \newcommand{\labelprevcodeline}[1]{^^A
% \begingroup
% \edef\@currentlabel{\the\c@CodelineNo}^^A
% \label{#1}^^A
% \endgroup
% }
% \newcounter{nextCodelineNo}
% \newcommand{\labelnextcodeline}[1]{^^A
% \begingroup
% \setcounter{nextCodelineNo}{\c@CodelineNo}^^A
% \addtocounter{nextCodelineNo}{1}^^A
% \edef\@currentlabel{\thenextCodelineNo}^^A
% \label{#1}^^A
% \endgroup
% }
% \makeatother
%
% \section{Implementation of \texttt{savetrees.sty}}
%
% This section lists the complete, commented source code for the
% \pkgname{savetrees} package. Although reading this section---and the
% subsequent implementation sections---is not necessary for understanding
% how to use \pkgname{savetrees}, it may be a useful teaching tool
% for \LaTeX{} newcomers. For instance, if you want narrow page
% margins, but find \pkgname{savetrees}'s defaults to be \emph{too}
% narrow, then seeing how \pkgname{savetrees} alters margins may be
% instructive for learning how to select your own page margins.
%
% \bigskip
% We start by telling \pkgname{DocStrip} that this is where |savetrees.sty|
% begins:
% \begin{macrocode}
%<*package>
% \end{macrocode}
%
% \subsection{Option processing}
%
% By default, \pkgname{savetrees} tries to make documents extremely
% dense. However, this also makes them rather ugly. The package
% options defined in this section let the author specify which
% space-saving routines are unacceptably grotesque and should not be
% utilized.
%
% We now define one new |\if| statement for each package option and define
% each package option to set the corresponding ``|\@st@normal@|\dots''
% flag to~\emph{true}.
%
% ^^A Define a macro to index an option declaration that appeared on the
% ^^A previous code line.
% \makeatletter
% \newcommand{\pkgoptiondecl}[1]{^^A
% \special@index{#1 (package option)\actualchar^^A
% \string\textsf{#1} (package option)\encapchar main}^^A
% \special@index{package options:\levelchar#1\actualchar^^A
% \string\textsf{#1}\encapchar main}^^A
% }
% \makeatother
%
% \begin{macro}{\if@st@normal@sections}
% \begin{macro}{\@st@normal@sectionstrue}
% \begin{macro}{\@st@normal@sectionsfalse}
% These are used to conditionally disable \pkgname{savetrees}'s
% modifications to section titles.
% \begin{macrocode}
\newif\if@st@normal@sections
\DeclareOption{normalsections}{\@st@normal@sectionstrue}
% \end{macrocode}
% \pkgoptiondecl{normalsections}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\if@st@normal@margins}
% \begin{macro}{\@st@normal@marginstrue}
% \begin{macro}{\@st@normal@marginsfalse}
% These are used to conditionally disable \pkgname{savetrees}'s
% modifications to page margins.
% \begin{macrocode}
\newif\if@st@normal@margins
\DeclareOption{normalmargins}{\@st@normal@marginstrue}
% \end{macrocode}
% \pkgoptiondecl{normalmargins}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\if@st@normal@lists}
% \begin{macro}{\@st@normal@liststrue}
% \begin{macro}{\@st@normal@listsfalse}
% These are used to conditionally disable \pkgname{savetrees}'s
% modifications to the various list environments.
% \begin{macrocode}
\newif\if@st@normal@lists
\DeclareOption{normallists}{\@st@normal@liststrue}
% \end{macrocode}
% \pkgoptiondecl{normallists}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\if@st@normal@floats}
% \begin{macro}{\@st@normal@floatstrue}
% \begin{macro}{\@st@normal@floatsfalse}
% These are used to conditionally disable \pkgname{savetrees}'s
% modifications to \LaTeX's float-placement parameters.
% \begin{macrocode}
\newif\if@st@normal@floats
\DeclareOption{normalfloats}{\@st@normal@floatstrue}
% \end{macrocode}
% \pkgoptiondecl{normalfloats}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\if@st@normal@indent}
% \begin{macro}{\@st@normal@indenttrue}
% \begin{macro}{\@st@normal@indentfalse}
% These are used to conditionally disable \pkgname{savetrees}'s
% modifications to paragraph indentation.
% \begin{macrocode}
\newif\if@st@normal@indent
\DeclareOption{normalindent}{\@st@normal@indenttrue}
% \end{macrocode}
% \pkgoptiondecl{normalindent}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\if@st@normal@title}
% \begin{macro}{\@st@normal@titletrue}
% \begin{macro}{\@st@normal@titlefalse}
% These are used to conditionally disable \pkgname{savetrees}'s
% modifications to title formatting.
% \begin{macrocode}
\newif\if@st@normal@title
\DeclareOption{normaltitle}{\@st@normal@titletrue}
% \end{macrocode}
% \pkgoptiondecl{normaltitle}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\if@st@normal@leading}
% \begin{macro}{\@st@normal@leadingtrue}
% \begin{macro}{\@st@normal@leadingfalse}
% These are used to conditionally disable \pkgname{savetrees}'s
% modifications to interline spacing. This spacing is known as
% ``leading'' because of the additional strips of lead placed between
% lines in the days of metal type.
% \begin{macrocode}
\newif\if@st@normal@leading
\DeclareOption{normalleading}{\@st@normal@leadingtrue}
% \end{macrocode}
% \pkgoptiondecl{normalleading}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\if@st@normal@looseness}
% \begin{macro}{\@st@normal@loosenesstrue}
% \begin{macro}{\@st@normal@loosenessfalse}
% These are used to conditionally disable \pkgname{savetrees}'s
% modifications to \TeX's paragraph looseness (i.e.,~the number of lines
% by which \TeX\ is instructed to shrink each paragraph).
% \begin{macrocode}
\newif\if@st@normal@looseness
\DeclareOption{normallooseness}{\@st@normal@loosenesstrue}
% \end{macrocode}
% \pkgoptiondecl{normallooseness}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\if@st@normal@bib}
% \begin{macro}{\@st@normal@bibtrue}
% \begin{macro}{\@st@normal@bibfalse}
% These are used to conditionally disable \pkgname{savetrees}'s
% modifications to bibliography formatting.
% \begin{macrocode}
\newif\if@st@normal@bib
\DeclareOption{normalbib}{\@st@normal@bibtrue}
% \end{macrocode}
% \pkgoptiondecl{normalbib}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\if@st@normal@bibnotes}
% \begin{macro}{\@st@normal@bibnotestrue}
% \begin{macro}{\@st@normal@bibnotesfalse}
% These are used to conditionally include |NOTE| fields when using
% |savetrees.bst|.
% \begin{macrocode}
\newif\if@st@normal@bibnotes
\DeclareOption{normalbibnotes}{\@st@normal@bibnotestrue}
% \end{macrocode}
% \pkgoptiondecl{normalbibnotes}
% \end{macro}
% \end{macro}
% \end{macro}
%
% \noindent
% We need to process our options immediately, because they'll be needed
% in the following code to determine which packages to load and what
% macros to define.
% \begin{macrocode}
\ProcessOptions\relax
% \end{macrocode}
%
%
% \subsection{Section titles}
%
% The \LaTeX{} default is to typeset section titles in a large font and
% with significant surrounding whitespace. We use the
% \pkgname{titlesec} package to typeset section titles in the same font
% size as the body text and to leave only a single blank line above and
% below them.
%
% \begin{macrocode}
\if@st@normal@sections
\else
\RequirePackage[tiny,compact]{titlesec}
\fi
% \end{macrocode}
%
% \subsection{Page margins}
%
% The typesetting wisdom of the ages says that the human eye is most
% comfortable reading approximately 60~characters per line of text, and
% this is what \LaTeX's default margins aim to achieve. Of course,
% narrower margins mean fewer pages, and that's what \pkgname{savetrees}
% is striving for.
%
% \begin{macro}{\@st@marginsize}
% 1.5\,cm might not be the best margin size, so this value is stored in
% the |\@st@marginsize| register, where it can easily be changed.
% \begin{macrocode}
\newlength{\@st@marginsize}
\setlength{\@st@marginsize}{1.5cm}
% \end{macrocode}
% \end{macro}
%
% \noindent
% Use the \pkgname{geometry} package to narrow our page margins, unless
% the author wants to keep \LaTeX's original ones. Note that we accept
% \pkgname{geometry}'s default of zero space allocated to marginal notes.
% \changes{v1.2}{2006/11/20}{Made the top margin consistent with the other
% margins and allocated space for the footer}
% \begin{macrocode}
\if@st@normal@margins
\else
\RequirePackage[lmargin=\@st@marginsize,
rmargin=\@st@marginsize,
tmargin=\@st@marginsize,
bmargin=\@st@marginsize,
includefoot,
footskip=2ex]{geometry}
\fi
% \end{macrocode}
%
%
% \subsection{List spacing}
%
% We try to save space in itemized lists, enumerated lists, and
% description lists by reducing indentation slightly and by eliminating
% inter-item spacing altogether.
%
% We make no modifications if the author prohibits us from doing so.
% \begin{macrocode}
\if@st@normal@lists
\else
% \end{macrocode}
% The \pkgname{calc} package helps simplify our list redefinitions.
% \begin{macrocode}
\RequirePackage{calc}
% \end{macrocode}
%
% \begin{environment}{itemize}
% Except where indicated, the following code was taken directly from
% \LaTeXe's definition of the |itemize| environment, in |ltlists.dtx|:
% \begin{macrocode}
\def\itemize{%
\ifnum \@itemdepth >\thr@@\@toodeep\else
\advance\@itemdepth\@ne
\edef\@itemitem{labelitem\romannumeral\the\@itemdepth}%
\expandafter
\list
\csname\@itemitem\endcsname
{\def\makelabel##1{\hss\llap{##1}}%
% \end{macrocode}
% The following lines have been modified from the original.
% \begin{macrocode}
\settowidth{\leftmargin}{\csname\@itemitem\endcsname}%
\addtolength{\leftmargin}{\labelsep * \@itemdepth}%
\setlength{\topsep}{4pt plus 1pt minus 2pt}%
\setlength{\itemsep}{0pt}%
\setlength{\parsep}{0pt}%
% \end{macrocode}
% That's it for the modifications. We can now finish up the redefinition
% of |itemize|.
% \begin{macrocode}
}%
\fi}
% \end{macrocode}
% \end{environment}
%
% \begin{environment}{enumerate}
% Except where indicated, the following code was taken directly from
% \LaTeXe's definition of the |enumerate| environment, in |ltlists.dtx|:
% \begin{macrocode}
\def\enumerate{%
\ifnum \@enumdepth >\thr@@\@toodeep\else
\advance\@enumdepth\@ne
\edef\@enumctr{enum\romannumeral\the\@enumdepth}%
\expandafter
\list
\csname label\@enumctr\endcsname
{\usecounter\@enumctr\def\makelabel##1{\hss\llap{##1}}%
% \end{macrocode}
% The following lines have been modified from the original.
% \begin{macrocode}
\settowidth{\leftmargin}{\csname label\@enumctr\endcsname}%
\addtolength{\leftmargin}{\labelsep * \@enumdepth}%
\setlength{\topsep}{4pt plus 1pt minus 2pt}%
\setlength{\itemsep}{0pt}%
\setlength{\parsep}{0pt}%
% \end{macrocode}
% That's it for the modifications. We can now finish up the
% redefinition of |enumerate|.
% \begin{macrocode}
}
\fi}
% \end{macrocode}
% \end{environment}
%
% \begin{environment}{description}
% The |description| environment is a bit simpler than the |itemize| and
% |enumerate| environments; it's a direct application of |list|. All we
% need to do is reduce the left margin from the |list| default of 2\,em
% to a slightly denser~1\,em.
% \begin{macrocode}
\renewenvironment{description}{%
\begin{list}{}{\setlength{\leftmargin}{1em}%
\labelwidth\z@ \itemindent-\leftmargin
\let\makelabel\descriptionlabel}%
}{%
\end{list}
}
\fi
% \end{macrocode}
% \end{environment}
%
%
% \subsection{Float placement}
%
% \begin{macro}{\topfraction}
% \begin{macro}{\bottomfraction}
% \begin{macro}{\textfraction}
% \begin{macro}{\floatpagefraction}
% \begin{macro}{\dbltopfraction}
% \begin{macro}{\dblfloatpagefraction}
% \LaTeX{} normally doesn't try very hard to pack floats onto a page.
% The following parameter changes attempt to reduce the number of float
% pages (and hence, total pages). As always, the author can require
% that the original float-placement parameters be used instead.
% \begin{macrocode}
\if@st@normal@floats
\else
\renewcommand{\topfraction}{0.85}
\renewcommand{\bottomfraction}{0.85}
\renewcommand{\textfraction}{0.1}
\renewcommand{\floatpagefraction}{0.85}
\renewcommand{\dbltopfraction}{0.85}
\renewcommand{\dblfloatpagefraction}{.85}
\setcounter{topnumber}{25}
\setcounter{bottomnumber}{25}
\setcounter{totalnumber}{25}
\setcounter{dbltopnumber}{25}
\fi
% \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
%
%
% \subsection{Paragraph indentation}
%
% \LaTeX{} normally provides 2\,em of indentation at the start of each
% paragraph. We can save a little space by reducing that to~1\,em.
%
% \begin{macrocode}
\if@st@normal@indent
\else
\setlength{\parindent}{1em}
\fi
% \end{macrocode}
%
%
% \subsection{Document title formatting}
%
% By default, the document title is typeset in the |\LARGE| font size,
% and the author list and date are typeset |\large|. We redefine
% |\@maketitle| to typeset the title |\large| and everything else in the
% body font. In addition, we remove the extra whitespace above the
% title and lessen the whitespace below the title.
%
% We proceed only with the author's permission.
% \begin{macrocode}
\if@st@normal@title
\else
% \end{macrocode}
% \begin{macro}{\@maketitle}
% The following was taken largely from |classes.dtx|, but modified as
% specified above.
% \begin{macrocode}
\def\@maketitle{%
\newpage
\null
\begin{center}%
\let \footnote \thanks
{\large \textbf{\@title}\par}
\vskip 0.5\baselineskip
\begin{tabular}[t]{c}%
\@author
\end{tabular}\par
\vskip 0.5\baselineskip
\@date
\end{center}%
\par
\vskip \baselineskip
}
\fi
% \end{macrocode}
% \end{macro}
%
%
% \subsection{Interline spacing}
%
% A document's page count can be reduced quite significantly by reducing
% the amount of whitespace between successive lines of text, so that's
% exactly what we do below.
%
% \begin{macro}{\baselinestretch}
% 90\% of normal leading gives very good compression but still prevents
% descenders from running into successive ascenders. 95\% would look
% more subtle but, of course, would fit less text per page.
% \begin{macrocode}
\if@st@normal@leading
\else
\renewcommand{\baselinestretch}{0.9}
\fi
% \end{macrocode}
% \end{macro}
%
%
% \subsection{Paragraph looseness}
% \changes{v1.2}{2006/11/20}{Added support for reducing paragraph looseness}
%
% Some paragraphs end with a lone word on the last line. If we can
% discourage such typesetting we can gain an extra line. The underlying
% mechanism we use is \TeX's |\looseness| primitive, which encourages
% \TeX\ to expand the current paragraph by a given number of lines.
% However, |\looseness| can be set to a negative number, which
% encourages \TeX\ to shrink the current paragraph by a given number of
% lines. For this technique to work, the paragraph must be relatively
% long to \TeX\ has enough shrinkable whitespace to work with.
%
% Unfortunately, |\looseness| applies only to the current paragraph. We
% therefore use |\everypar| to inject |\looseness=-1| into every
% paragraph. However, the approach is not quite so simple as the
% |\looseness=-1| is not injected into list environments. We therefore
% use some tricky code due to Donald Arseneau to make the effect of
% |\looseness=-1| as global as possible:
% \changes{v1.2a}{2007/12/23}{Appended \texttt{\string\string\relax} to
% \texttt{\string\string\looseness!=-1} to avoid discarding any
% leading digits appearing in a paragraph}
% \begin{macrocode}
\if@st@normal@looseness
\else
\let\markeverypar\everypar
\newtoks\everypar
\everypar\markeverypar
\markeverypar{\the\everypar\looseness=-1\relax}
\fi
% \end{macrocode}
%
% Even when |\everypar| is used in the ordinary fashion it is likely to
% conflict with various \LaTeX\ packages. Because the preceding code is
% a particularly tricky redefinition of |\everypar| it's likely that
% many documents will need to disable paragraph looseness by specifying
% the \pkgoption{normallooseness} option to \pkgname{savetrees}.
%
%
% \subsection{Bibliography formatting}
%
% There are two ways we save space when typesetting bibliographies.
% First, we omit blank linkes between entries. And second, we typeset
% the entire bibliography---excluding the section title---with |\small|.
%
% We start, as always, by giving the author a chance to override our
% changes.
% \begin{macrocode}
\if@st@normal@bib
\else
% \end{macrocode}
% \begin{environment}{thebibliography}
% The following was taken largely from |classes.dtx|; see that file for
% additional documentation. \pkgname{savetrees}'s modifications are
% indicated below.
% \begin{macrocode}
\renewenvironment{thebibliography}[1]{%
% \end{macrocode}
% In the |article| document class, a bibliography is a \emph{section}
% called ``|\refname|''. In the |report| and |book| document classes, a
% bibliography is a \emph{chapter} called ``|\bibname|''. In
% |classes.dtx|, the correct code is extracted by \pkgname{DocStrip}.
% Here, we have to use an |\ifx| primitive to select the appropriate
% title and formatting.
% \changes{v1.1}{2004/07/17}{Modified to test for
% \texttt{\string\string\string\chapter}, not
% \texttt{\string\string\string\bibname}.}
% \changes{v1.2}{2006/11/19}{Modified to use the more robust
% \texttt{\string\string\string\@ifundefined} macro to test for the existence
% of \texttt{\string\string\string\chapter}}
% \begin{macrocode}
\@ifundefined{chapter}{%
\section*{\refname
\@mkboth{\MakeUppercase\refname}{\MakeUppercase\refname}}%
}{%
\chapter*{\bibname
\@mkboth{\MakeUppercase\bibname}{\MakeUppercase\bibname}}%
}%
% \end{macrocode}
% Back to the original code\dots
% \begin{macrocode}
\list{\@biblabel{\@arabic\c@enumiv}}%
{\settowidth\labelwidth{\@biblabel{#1}}%
\leftmargin\labelwidth
\advance\leftmargin\labelsep
% \end{macrocode}
% We eliminate the space between paragraphs, and we set the space
% between items to only~1\,pt. We could have set this to~0\,pt., but
% the extra space helps keep the citation numbers' brackets from getting
% too close to each other, vertically.
% \begin{macrocode}
\setlength{\parsep}{0pt}%
\setlength{\itemsep}{1pt}%
% \end{macrocode}
% Back to the original code\dots
% \begin{macrocode}
\@openbib@code
\usecounter{enumiv}%
\let\p@enumiv\@empty
\renewcommand\theenumiv{\@arabic\c@enumiv}}%
% \end{macrocode}
% Although we kept the section title in its original size, we typeset
% the rest of the bibliography a little bit smaller.
% \begin{macrocode}
\small
% \end{macrocode}
% We finish up using the original code\dots
% \begin{macrocode}
\sloppy
\clubpenalty4000
\@clubpenalty \clubpenalty
\widowpenalty4000%
\sfcode`\.\@m
}{%
\def\@noitemerr
{\@latex@warning{Empty `thebibliography' environment}}%
\endlist
}
\fi
% \end{macrocode}
% \end{environment}
%
%
% \subsection{Bibliographic notes}
% \label{sec:bibliographic-notes}
%
% \begin{macro}{\savetreesbibnote}
% The bibliographies output by the |savetrees.bst| \BibTeX{} style
% (to be presented in Section~\ref{sec:savetrees.bst}) surround all |NOTE|
% fields with a call to the |\savetreesbibnote| macro. As a result, this
% must be defined for |savetrees.bst| to work. By default,
% |\savetreesbibnote| is defined to do nothing. Howevever, the author
% can specify that |\savetreesbibnote| should instead output its argument
% with no additional processing.
% \labelnextcodeline{code:stbn-begin}
% \begin{macrocode}
\if@st@normal@bibnotes
\newcommand{\savetreesbibnote}[1]{#1}
\else
% \end{macrocode}
% To supppress a |NOTE| field, we also have to gobble the period
% following the note. Otherwise, the bibliography will show two periods
% surrounding an empty note.
% \begin{macrocode}
\newcommand{\savetreesbibnote}[1]{\@gobble}
\fi
% \end{macrocode}
% \labelprevcodeline{code:stbn-end}
% \end{macro}
%
% \bigskip\noindent
% This is the conclusion of |savetrees.sty|.
% \begin{macrocode}
%</package>
% \end{macrocode}
%
%
% \section{Implementation of \texttt{savetrees.bst}}
% \label{sec:savetrees.bst}
%
% In addition to a \LaTeXe{} style, the \pkgname{savetrees} package also
% includes a \BibTeX{} style, |savetrees.bst|. |savetrees.bst| was
% generated with the help of Patrick W. Daly's \pkgname{custom-bib}
% package. The following options were provided to |merlin.mbs|:
%
% \begin{center}
% \begin{minipage}{0.75\textwidth}
% \ttfamily\selectfont
% lang, nm-init, ed-au, nmdash, nmlm, x2, m2, isbn, issn, pp, ed, abr,
% ednx, xedn, jabr, nfss
% \end{minipage}
% \end{center}
%
% Because |savetrees.bst| is a generated file---and can be regenerated using
% the options listed above---it is unnecessary to list the complete
% source code in this document. Rather, only the hand-modified parts are
% presented below.
%
% \begin{macrocode}
%<*bibstyle>
% \end{macrocode}
%
% \begin{center}
% $\vdots$ \\
% (460 lines of code omitted) \\
% $\vdots$
% \end{center}
%
% ^^A We surround all but our modified format.note function
% ^^A within \iffalse...\fi.
% \iffalse
% \begin{macrocode}
% ===============================================================
% IMPORTANT NOTICE:
% This bibliographic style (bst) file has been generated from one or
% more master bibliographic style (mbs) files, listed above.
%
% This generated file can be redistributed and/or modified under the terms
% of the LaTeX Project Public License Distributed from CTAN
% archives in directory macros/latex/base/lppl.txt; either
% version 1 of the License, or any later version.
% ===============================================================
% Name and version information of the main mbs file:
% \ProvidesFile{merlin.mbs}[1999/05/28 3.89 (PWD)]
% For use with BibTeX version 0.99a or later
%-------------------------------------------------------------------
% This bibliography style file is intended for texts in ENGLISH
% This is a numerical citation style, and as such is standard LaTeX.
% It requires no extra package to interface to the main text.
% The form of the \bibitem entries is
% \bibitem{key}...
% Usage of \cite is as follows:
% \cite{key} ==>> [#]
% \cite[chap. 2]{key} ==>> [#, chap. 2]
% where # is a number determined by the ordering in the reference list.
% The order in the reference list is alphabetical by authors.
%---------------------------------------------------------------------
ENTRY
{ address
author
booktitle
chapter
edition
editor
howpublished
institution
isbn
issn
journal
key
language
month
note
number
organization
pages
publisher
school
series
title
type
volume
year
}
{}
{ label }
INTEGERS { output.state before.all mid.sentence after.sentence after.block }
FUNCTION {init.state.consts}
{ #0 'before.all :=
#1 'mid.sentence :=
#2 'after.sentence :=
#3 'after.block :=
}
STRINGS { s t }
FUNCTION {output.nonnull}
{ 's :=
output.state mid.sentence =
{ ", " * write$ }
{ output.state after.block =
{ add.period$ write$
newline$
"\newblock " write$
}
{ output.state before.all =
'write$
{ add.period$ " " * write$ }
if$
}
if$
mid.sentence 'output.state :=
}
if$
s
}
FUNCTION {output}
{ duplicate$ empty$
'pop$
'output.nonnull
if$
}
FUNCTION {output.check}
{ 't :=
duplicate$ empty$
{ pop$ "empty " t * " in " * cite$ * warning$ }
'output.nonnull
if$
}
FUNCTION {fin.entry}
{ add.period$
write$
newline$
}
FUNCTION {new.block}
{ output.state before.all =
'skip$
{ after.block 'output.state := }
if$
}
FUNCTION {new.sentence}
{ output.state after.block =
'skip$
{ output.state before.all =
'skip$
{ after.sentence 'output.state := }
if$
}
if$
}
FUNCTION {add.blank}
{ " " * before.all 'output.state :=
}
FUNCTION {date.block}
{
new.block
}
FUNCTION {not}
{ { #0 }
{ #1 }
if$
}
FUNCTION {and}
{ 'skip$
{ pop$ #0 }
if$
}
FUNCTION {or}
{ { pop$ #1 }
'skip$
if$
}
FUNCTION {new.block.checka}
{ empty$
'skip$
'new.block
if$
}
FUNCTION {new.block.checkb}
{ empty$
swap$ empty$
and
'skip$
'new.block
if$
}
FUNCTION {new.sentence.checka}
{ empty$
'skip$
'new.sentence
if$
}
FUNCTION {new.sentence.checkb}
{ empty$
swap$ empty$
and
'skip$
'new.sentence
if$
}
FUNCTION {field.or.null}
{ duplicate$ empty$
{ pop$ "" }
'skip$
if$
}
FUNCTION {emphasize}
{ duplicate$ empty$
{ pop$ "" }
{ "\emph{" swap$ * "}" * }
if$
}
FUNCTION {capitalize}
{ "u" change.case$ "t" change.case$ }
FUNCTION {space.word}
{ " " swap$ * " " * }
% Here are the language-specific definitions for explicit words.
% Each function has a name bbl.xxx where xxx is the English word.
% The language selected here is ENGLISH
FUNCTION {bbl.and}
{ "and"}
FUNCTION {bbl.etal}
{ "et~al." }
FUNCTION {bbl.editors}
{ "eds." }
FUNCTION {bbl.editor}
{ "ed." }
FUNCTION {bbl.edby}
{ "edited by" }
FUNCTION {bbl.edition}
{ "ed." }
FUNCTION {bbl.volume}
{ "vol." }
FUNCTION {bbl.of}
{ "of" }
FUNCTION {bbl.number}
{ "no." }
FUNCTION {bbl.nr}
{ "no." }
FUNCTION {bbl.in}
{ "in" }
FUNCTION {bbl.pages}
{ "pp." }
FUNCTION {bbl.page}
{ "p." }
FUNCTION {bbl.chapter}
{ "chap." }
FUNCTION {bbl.techrep}
{ "Tech. Rep." }
FUNCTION {bbl.mthesis}
{ "Master's thesis" }
FUNCTION {bbl.phdthesis}
{ "Ph.D. thesis" }
MACRO {jan} {"Jan."}
MACRO {feb} {"Feb."}
MACRO {mar} {"Mar."}
MACRO {apr} {"Apr."}
MACRO {may} {"May"}
MACRO {jun} {"Jun."}
MACRO {jul} {"Jul."}
MACRO {aug} {"Aug."}
MACRO {sep} {"Sep."}
MACRO {oct} {"Oct."}
MACRO {nov} {"Nov."}
MACRO {dec} {"Dec."}
MACRO {acmcs} {"ACM Comput. Surv."}
MACRO {acta} {"Acta Inf."}
MACRO {cacm} {"Commun. ACM"}
MACRO {ibmjrd} {"IBM J. Res. Dev."}
MACRO {ibmsj} {"IBM Syst.~J."}
MACRO {ieeese} {"IEEE Trans. Softw. Eng."}
MACRO {ieeetc} {"IEEE Trans. Comput."}
MACRO {ieeetcad}
{"IEEE Trans. Comput.-Aided Design Integrated Circuits"}
MACRO {ipl} {"Inf. Process. Lett."}
MACRO {jacm} {"J.~ACM"}
MACRO {jcss} {"J.~Comput. Syst. Sci."}
MACRO {scp} {"Sci. Comput. Programming"}
MACRO {sicomp} {"SIAM J. Comput."}
MACRO {tocs} {"ACM Trans. Comput. Syst."}
MACRO {tods} {"ACM Trans. Database Syst."}
MACRO {tog} {"ACM Trans. Gr."}
MACRO {toms} {"ACM Trans. Math. Softw."}
MACRO {toois} {"ACM Trans. Office Inf. Syst."}
MACRO {toplas} {"ACM Trans. Prog. Lang. Syst."}
MACRO {tcs} {"Theoretical Comput. Sci."}
INTEGERS { nameptr namesleft numnames }
FUNCTION {format.names}
{ 's :=
"" 't :=
#1 'nameptr :=
s num.names$ 'numnames :=
numnames 'namesleft :=
{ namesleft #0 > }
{ s nameptr
"{f.~}{vv~}{ll}{, jj}" format.name$
't :=
nameptr #1 >
{
nameptr #2
#1 + =
numnames #2
> and
{ "others" 't :=
#1 'namesleft := }
'skip$
if$
namesleft #1 >
{ ", " * t * }
{
numnames #2 >
{ "," * }
'skip$
if$
s nameptr "{ll}" format.name$ duplicate$ "others" =
{ 't := }
{ pop$ }
if$
t "others" =
{
" " * bbl.etal *
}
{ bbl.and
space.word * t *
}
if$
}
if$
}
't
if$
nameptr #1 + 'nameptr :=
namesleft #1 - 'namesleft :=
}
while$
}
FUNCTION {format.names.ed}
{ format.names }
FUNCTION {format.authors}
{ author empty$
{ "" }
{ author format.names }
if$
}
FUNCTION {format.editors}
{ editor empty$
{ "" }
{ editor format.names
", " *
editor num.names$ #1 >
'bbl.editors
'bbl.editor
if$
*
}
if$
}
FUNCTION {format.in.editors}
{ editor empty$
{ "" }
{ editor format.names.ed
editor num.names$ #1 >
{ ", " * bbl.editors * }
{ ", " * bbl.editor * }
if$
}
if$
}
FUNCTION {format.isbn}
{ isbn empty$
{ "" }
{
new.block
"ISBN " isbn * }
if$
}
FUNCTION {format.issn}
{ issn empty$
{ "" }
{
new.block
"ISSN " issn * }
if$
}
FUNCTION {select.language}
{ duplicate$ empty$
'pop$
{ language empty$
'skip$
{ "{\selectlanguage{" language * "}" * swap$ * "}" * }
if$
}
if$
}
% \end{macrocode}
% \fi
%
% The following function is the only one modified by Scott Pakin. The
% modification involves placing the entire note field within
% |\savetreesbibnote{|\dots|}|. This enables |savetrees.sty| to
% selectively define |\savetreesbibnote| to either output its argument as
% is or discard it (and the subsequent period). See
% Section~\ref{sec:bibliographic-notes} for |savetrees.sty|'s definition
% of~|\savetreesbibnote|.
% \begin{macrocode}
FUNCTION {format.note}
{
note empty$
{ "" }
{ "\savetreesbibnote{"
note #1 #1 substring$
duplicate$ "{" =
'skip$
{ output.state mid.sentence =
{ "l" }
{ "u" }
if$
change.case$
}
if$
note #2 global.max$ substring$ *
"}" * *
}
if$
}
% \end{macrocode}
%
% \iffalse
% \begin{macrocode}
FUNCTION {format.title}
{ title empty$
{ "" }
{ title "t" change.case$
select.language
}
if$
}
FUNCTION {output.bibitem}
{ newline$
"\bibitem{" write$
cite$ write$
"}" write$
newline$
""
before.all 'output.state :=
}
FUNCTION {n.dashify}
{
't :=
""
{ t empty$ not }
{ t #1 #1 substring$ "-" =
{ t #1 #2 substring$ "--" = not
{ "--" *
t #2 global.max$ substring$ 't :=
}
{ { t #1 #1 substring$ "-" = }
{ "-" *
t #2 global.max$ substring$ 't :=
}
while$
}
if$
}
{ t #1 #1 substring$ *
t #2 global.max$ substring$ 't :=
}
if$
}
while$
}
FUNCTION {word.in}
{ bbl.in capitalize
" " * }
FUNCTION {format.date}
{ year empty$
{ month empty$
{ "" }
{ "there's a month but no year in " cite$ * warning$
month
}
if$
}
{ month empty$
'year
{ month " " * year * }
if$
}
if$
}
FUNCTION {format.btitle}
{ title emphasize
select.language
}
FUNCTION {tie.or.space.connect}
{ duplicate$ text.length$ #3 <
{ "~" }
{ " " }
if$
swap$ * *
}
FUNCTION {either.or.check}
{ empty$
'pop$
{ "can't use both " swap$ * " fields in " * cite$ * warning$ }
if$
}
FUNCTION {format.bvolume}
{ volume empty$
{ "" }
{ bbl.volume volume tie.or.space.connect
series empty$
'skip$
{ bbl.of space.word * series emphasize * }
if$
"volume and number" number either.or.check
}
if$
}
FUNCTION {format.number.series}
{ volume empty$
{ number empty$
{ series field.or.null }
{ output.state mid.sentence =
{ bbl.number }
{ bbl.number capitalize }
if$
number tie.or.space.connect
series empty$
{ "there's a number but no series in " cite$ * warning$ }
{ bbl.in space.word * series * }
if$
}
if$
}
{ "" }
if$
}
FUNCTION {format.edition}
{ edition empty$
{ "" }
{ output.state mid.sentence =
{ edition "l" change.case$ " " * bbl.edition * }
{ edition "t" change.case$ " " * bbl.edition * }
if$
}
if$
}
INTEGERS { multiresult }
FUNCTION {multi.page.check}
{ 't :=
#0 'multiresult :=
{ multiresult not
t empty$ not
and
}
{ t #1 #1 substring$
duplicate$ "-" =
swap$ duplicate$ "," =
swap$ "+" =
or or
{ #1 'multiresult := }
{ t #2 global.max$ substring$ 't := }
if$
}
while$
multiresult
}
FUNCTION {format.pages}
{ pages empty$
{ "" }
{ pages multi.page.check
{ bbl.pages pages n.dashify tie.or.space.connect }
{ bbl.page pages tie.or.space.connect }
if$
}
if$
}
FUNCTION {format.journal.pages}
{ pages empty$
'skip$
{ duplicate$ empty$
{ pop$ format.pages }
{
":" *
pages n.dashify *
}
if$
}
if$
}
FUNCTION {format.vol.num.pages}
{ volume field.or.null
number empty$
'skip$
{
"(" number * ")" * *
volume empty$
{ "there's a number but no volume in " cite$ * warning$ }
'skip$
if$
}
if$
format.journal.pages
}
FUNCTION {format.chapter.pages}
{ chapter empty$
'format.pages
{ type empty$
{ bbl.chapter }
{ type "l" change.case$ }
if$
chapter tie.or.space.connect
pages empty$
'skip$
{ ", " * format.pages * }
if$
}
if$
}
FUNCTION {format.in.ed.booktitle}
{ booktitle empty$
{ "" }
{ editor empty$
{ word.in booktitle emphasize * }
{ word.in format.in.editors * ", " *
booktitle emphasize * }
if$
}
if$
}
FUNCTION {empty.misc.check}
{ author empty$ title empty$ howpublished empty$
month empty$ year empty$ note empty$
and and and and and
key empty$ not and
{ "all relevant fields are empty in " cite$ * warning$ }
'skip$
if$
}
FUNCTION {format.thesis.type}
{ type empty$
'skip$
{ pop$
type "t" change.case$
}
if$
}
FUNCTION {format.tr.number}
{ type empty$
{ bbl.techrep }
'type
if$
number empty$
{ "t" change.case$ }
{ number tie.or.space.connect }
if$
}
FUNCTION {format.article.crossref}
{
key empty$
{ journal empty$
{ "need key or journal for " cite$ * " to crossref " * crossref *
warning$
""
}
{ word.in journal emphasize * }
if$
}
{ word.in key * " " *}
if$
" \cite{" * crossref * "}" *
}
FUNCTION {format.crossref.editor}
{ editor #1 "{vv~}{ll}" format.name$
editor num.names$ duplicate$
#2 >
{ pop$
" " * bbl.etal *
}
{ #2 <
'skip$
{ editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
{
" " * bbl.etal *
}
{ bbl.and space.word * editor #2 "{vv~}{ll}" format.name$
* }
if$
}
if$
}
if$
}
FUNCTION {format.book.crossref}
{ volume empty$
{ "empty volume in " cite$ * "'s crossref of " * crossref * warning$
word.in
}
{ bbl.volume capitalize
volume tie.or.space.connect
bbl.of space.word *
}
if$
editor empty$
editor field.or.null author field.or.null =
or
{ key empty$
{ series empty$
{ "need editor, key, or series for " cite$ * " to crossref " *
crossref * warning$
"" *
}
{ series emphasize * }
if$
}
{ key * }
if$
}
{ format.crossref.editor * }
if$
" \cite{" * crossref * "}" *
}
FUNCTION {format.incoll.inproc.crossref}
{
editor empty$
editor field.or.null author field.or.null =
or
{ key empty$
{ booktitle empty$
{ "need editor, key, or booktitle for " cite$ * " to crossref " *
crossref * warning$
""
}
{ word.in booktitle emphasize * }
if$
}
{ word.in key * " " *}
if$
}
{ word.in format.crossref.editor * " " *}
if$
" \cite{" * crossref * "}" *
}
FUNCTION {format.org.or.pub}
{ 't :=
""
address empty$ t empty$ and
'skip$
{
t empty$
{ address empty$
'skip$
{ address * }
if$
}
{ t *
address empty$
'skip$
{ ", " * address * }
if$
}
if$
}
if$
}
FUNCTION {format.publisher.address}
{ publisher empty$
{ "empty publisher in " cite$ * warning$
""
}
{ publisher }
if$
format.org.or.pub
}
FUNCTION {format.organization.address}
{ organization empty$
{ "" }
{ organization }
if$
format.org.or.pub
}
STRINGS {oldname}
FUNCTION {name.or.dash}
{ 's :=
oldname empty$
{ s 'oldname := s }
{ s oldname =
{ "---" }
{ s 'oldname := s }
if$
}
if$
}
FUNCTION {article}
{ output.bibitem
format.authors "author" output.check
name.or.dash
new.block
format.title "title" output.check
new.block
crossref missing$
{ journal
emphasize
"journal" output.check
format.vol.num.pages output
format.date "year" output.check
}
{ format.article.crossref output.nonnull
format.pages output
}
if$
format.issn output
new.block
format.note output
fin.entry
}
FUNCTION {book}
{ output.bibitem
author empty$
{ format.editors "author and editor" output.check
name.or.dash
}
{ format.authors output.nonnull
name.or.dash
crossref missing$
{ "author and editor" editor either.or.check }
'skip$
if$
}
if$
new.block
format.btitle "title" output.check
crossref missing$
{ format.bvolume output
new.block
format.number.series output
new.sentence
format.publisher.address output
}
{
new.block
format.book.crossref output.nonnull
}
if$
format.edition output
format.date "year" output.check
format.isbn output
new.block
format.note output
fin.entry
}
FUNCTION {booklet}
{ output.bibitem
format.authors output
name.or.dash
new.block
format.title "title" output.check
new.block
howpublished output
address output
format.date output
format.isbn output
new.block
format.note output
fin.entry
}
FUNCTION {inbook}
{ output.bibitem
author empty$
{ format.editors "author and editor" output.check
name.or.dash
}
{ format.authors output.nonnull
name.or.dash
crossref missing$
{ "author and editor" editor either.or.check }
'skip$
if$
}
if$
new.block
format.btitle "title" output.check
crossref missing$
{
format.bvolume output
format.chapter.pages "chapter and pages" output.check
new.block
format.number.series output
new.sentence
format.publisher.address output
}
{
format.chapter.pages "chapter and pages" output.check
new.block
format.book.crossref output.nonnull
}
if$
format.edition output
format.date "year" output.check
crossref missing$
{ format.isbn output }
'skip$
if$
new.block
format.note output
fin.entry
}
FUNCTION {incollection}
{ output.bibitem
format.authors "author" output.check
name.or.dash
new.block
format.title "title" output.check
new.block
crossref missing$
{ format.in.ed.booktitle "booktitle" output.check
format.bvolume output
format.number.series output
format.chapter.pages output
new.sentence
format.publisher.address output
format.edition output
format.date "year" output.check
format.isbn output
}
{ format.incoll.inproc.crossref output.nonnull
format.chapter.pages output
}
if$
new.block
format.note output
fin.entry
}
FUNCTION {inproceedings}
{ output.bibitem
format.authors "author" output.check
name.or.dash
new.block
format.title "title" output.check
new.block
crossref missing$
{ format.in.ed.booktitle "booktitle" output.check
format.bvolume output
format.number.series output
format.pages output
new.sentence
publisher empty$
{ format.organization.address output }
{ organization output
format.publisher.address output
}
if$
format.date "year" output.check
format.isbn output
format.issn output
}
{ format.incoll.inproc.crossref output.nonnull
format.pages output
}
if$
new.block
format.note output
fin.entry
}
FUNCTION {conference} { inproceedings }
FUNCTION {manual}
{ output.bibitem
author empty$
{ organization empty$
'skip$
{ organization output.nonnull
address output
}
if$
}
{ format.authors output.nonnull }
if$
name.or.dash
new.block
format.btitle "title" output.check
author empty$
{ organization empty$
{
address new.block.checka
address output
}
'skip$
if$
}
{
organization address new.block.checkb
organization output
address output
}
if$
format.edition output
format.date output
new.block
format.note output
fin.entry
}
FUNCTION {mastersthesis}
{ output.bibitem
format.authors "author" output.check
name.or.dash
new.block
format.btitle "title" output.check
new.block
bbl.mthesis format.thesis.type output.nonnull
school "school" output.check
address output
format.date "year" output.check
new.block
format.note output
fin.entry
}
FUNCTION {misc}
{ output.bibitem
format.authors output
name.or.dash
title howpublished new.block.checkb
format.title output
howpublished new.block.checka
howpublished output
format.date output
new.block
format.note output
fin.entry
empty.misc.check
}
FUNCTION {phdthesis}
{ output.bibitem
format.authors "author" output.check
name.or.dash
new.block
format.btitle "title" output.check
new.block
bbl.phdthesis format.thesis.type output.nonnull
school "school" output.check
address output
format.date "year" output.check
new.block
format.note output
fin.entry
}
FUNCTION {proceedings}
{ output.bibitem
editor empty$
{ organization output }
{ format.editors output.nonnull }
if$
name.or.dash
new.block
format.btitle "title" output.check
format.bvolume output
format.number.series output
editor empty$
{ publisher empty$
'skip$
{
new.sentence
format.publisher.address output
}
if$
}
{ publisher empty$
{
new.sentence
format.organization.address output }
{
new.sentence
organization output
format.publisher.address output
}
if$
}
if$
format.date "year" output.check
format.isbn output
format.issn output
new.block
format.note output
fin.entry
}
FUNCTION {techreport}
{ output.bibitem
format.authors "author" output.check
name.or.dash
new.block
format.title "title" output.check
new.block
format.tr.number output.nonnull
institution "institution" output.check
address output
format.date "year" output.check
new.block
format.note output
fin.entry
}
FUNCTION {unpublished}
{ output.bibitem
format.authors "author" output.check
name.or.dash
new.block
format.title "title" output.check
format.date output
new.block
format.note "note" output.check
fin.entry
}
FUNCTION {default.type} { misc }
READ
FUNCTION {sortify}
{ purify$
"l" change.case$
}
INTEGERS { len }
FUNCTION {chop.word}
{ 's :=
'len :=
s #1 len substring$ =
{ s len #1 + global.max$ substring$ }
's
if$
}
FUNCTION {sort.format.names}
{ 's :=
#1 'nameptr :=
""
s num.names$ 'numnames :=
numnames 'namesleft :=
{ namesleft #0 > }
{ s nameptr
"{vv{ } }{ll{ }}{ f{ }}{ jj{ }}"
format.name$ 't :=
nameptr #1 >
{
nameptr #2
#1 + =
numnames #2
> and
{ "others" 't :=
#1 'namesleft := }
'skip$
if$
" " *
namesleft #1 = t "others" = and
{ "zzzzz" * }
{ t sortify * }
if$
}
{ t sortify * }
if$
nameptr #1 + 'nameptr :=
namesleft #1 - 'namesleft :=
}
while$
}
FUNCTION {sort.format.title}
{ 't :=
"A " #2
"An " #3
"The " #4 t chop.word
chop.word
chop.word
sortify
#1 global.max$ substring$
}
FUNCTION {author.sort}
{ author empty$
{ key empty$
{ "to sort, need author or key in " cite$ * warning$
""
}
{ key sortify }
if$
}
{ author sort.format.names }
if$
}
FUNCTION {author.editor.sort}
{ author empty$
{ editor empty$
{ key empty$
{ "to sort, need author, editor, or key in " cite$ * warning$
""
}
{ key sortify }
if$
}
{ editor sort.format.names }
if$
}
{ author sort.format.names }
if$
}
FUNCTION {author.organization.sort}
{ author empty$
{ organization empty$
{ key empty$
{ "to sort, need author, organization, or key in " cite$ * warning$
""
}
{ key sortify }
if$
}
{ "The " #4 organization chop.word sortify }
if$
}
{ author sort.format.names }
if$
}
FUNCTION {editor.organization.sort}
{ editor empty$
{ organization empty$
{ key empty$
{ "to sort, need editor, organization, or key in " cite$ * warning$
""
}
{ key sortify }
if$
}
{ "The " #4 organization chop.word sortify }
if$
}
{ editor sort.format.names }
if$
}
FUNCTION {presort}
{ type$ "book" =
type$ "inbook" =
or
'author.editor.sort
{ type$ "proceedings" =
'editor.organization.sort
{ type$ "manual" =
'author.organization.sort
'author.sort
if$
}
if$
}
if$
" "
*
year field.or.null sortify
*
" "
*
title field.or.null
sort.format.title
*
#1 entry.max$ substring$
'sort.key$ :=
}
ITERATE {presort}
SORT
STRINGS { longest.label }
INTEGERS { number.label longest.label.width }
FUNCTION {initialize.longest.label}
{ "" 'longest.label :=
#1 'number.label :=
#0 'longest.label.width :=
}
FUNCTION {longest.label.pass}
{ number.label int.to.str$ 'label :=
number.label #1 + 'number.label :=
label width$ longest.label.width >
{ label 'longest.label :=
label width$ 'longest.label.width :=
}
'skip$
if$
}
EXECUTE {initialize.longest.label}
ITERATE {longest.label.pass}
FUNCTION {begin.bib}
{ preamble$ empty$
'skip$
{ preamble$ write$ newline$ }
if$
"\begin{thebibliography}{" longest.label * "}" *
write$ newline$
"\expandafter\ifx\csname selectlanguage\endcsname\relax"
write$ newline$
" \def\selectlanguage#1{\relax}\fi"
write$ newline$
}
EXECUTE {begin.bib}
EXECUTE {init.state.consts}
ITERATE {call.type$}
FUNCTION {end.bib}
{ newline$
"\end{thebibliography}" write$ newline$
}
EXECUTE {end.bib}
% \end{macrocode}
% \fi
%
% \begin{center}
% $\vdots$ \\
% (941 lines of code omitted) \\
% $\vdots$
% \end{center}
%
% \begin{macrocode}
%</bibstyle>
% \end{macrocode}
%
%
% \section{Implementation of \texttt{makethin}}
%
% \progname{makethin} is a Perl\index{Perl|usage} script that produces
% narrow variants of all of the fonts used in a document. The script is
% about five~pages long and is not listed here. However, the following
% is an outline of \progname{makethin}'s behavior:
%
% \begin{macrocode}
%<*makethin>
% \end{macrocode}
%
% \begin{enumerate}
% \item Read all of the TFM and VF fonts named in the given DVI file.
%
% \item For each font, perform the following operations:
%
% \begin{enumerate}
% \item If the font is a virtual font (|.vf|), then add all of the
% VF and TFM fonts it names to the end of the font ``to-do'' list.
%
% \item If the font contains \TeX{} font metrics (|.tfm|), then
% convert the font to an ASCII property list (|.pl|), replace each
% ``|(CHARWD|~|R|~\meta{width}|)|'' expression with
% ``|(CHARWD|~|R|~\meta{width}$\times$\meta{x-scale}|)|'', and
% convert the result back to a |.tfm| file in the current directory.
% \end{enumerate}
%
% \item Acquire a list of font-map files from |config.ps| and any other
% Dvips configuration specified on the command line.
%
% \item Create a new font-map file, containing one line for each font
% named in the given DVI file, but modified to specify
% ``|"|\meta{x-scale} |ExtendFont"|'' on each line.
%
% \item Create a new Dvips configuration file that points to the new
% font-map file.
% \end{enumerate}
%
% \iffalse
% \begin{macrocode}
%<<VERBATIM_PERL
#! /usr/bin/env perl
# Make a thinner version of a LaTeX font
# By Scott Pakin <scott+st@pakin.org>
use File::Basename;
use Getopt::Long;
use Pod::Usage;
use Pod::Man;
use warnings;
use strict;
# Define some global variables.
my $progname = basename $0; # Name of this program
my @fontlist; # List of fonts to make thinner
my @skipfonts; # Fonts specified by the user to ignore
my @extrafonts; # Additional fonts specified by the user
my @extramaps; # Additional .map files specified by the user
my @configexts; # List of config.* files to process
my @mapfiles; # List of .map files to copy and modify
my @megamap; # Entire contents of all .map files
my $cleanfirst; # Delete *.{tfm,vf} before creating new ones
my $cleanonly; # Same as $cleanfirst, but exit after deleting
my $dvifile; # Name of input .dvi file
my $xscale = 0.5; # New font width as a fraction of the original
my $verbose = 0; # 1=output task info; >1=output file info
my $base = "thin"; # Name to use for config.* and *.map
my $also_pdftex = 0; # 1=also produce a pdftex.map
###########################################################################
# Set or change a filename's extension.
sub set_ext ($$)
{
my ($name, $path, $suffix) = fileparse ($_[0], '\.[^.]*');
$path="" if $path eq "./";
return $path . $name . $_[1];
}
# Try to find a file on disk using kpsewhich. Extra arguments to
# kpsewhich can be included, too.
sub find_file (@)
{
chomp (my $result = `kpsewhich @_`);
return $? ? undef : $result;
}
# Make a font thinner.
sub thin_font ($$$$)
{
my ($fname, $fpath, $fsuffix, $only_fontnames) = @_;
my $virtualfont = $fsuffix eq ".vf";
my $converter = $virtualfont ? "vftovp" : "tftopl";
open (ASCII_TEXT, "$converter $fpath$fname$fsuffix|") || die "open(): $!\n";
# If we already converted the font, then merely look for additional fonts.
if ($only_fontnames) {
while (<ASCII_TEXT>) {
/\(FONTNAME ([^\)]+)\)/i && push @fontlist, $1;
}
close ASCII_TEXT;
return;
}
# Modify character widths. Also, store the name of any additional font
# we encounter in a virtual font file.
my $ascii_file = $virtualfont ? "$fname.vpl" : "$fname.pl";
open (ASCII_FILE, ">$ascii_file") || die "open(\"$ascii_file\"): $!\n";
while (<ASCII_TEXT>) {
/\(FONTNAME ([^\)]+)\)/i && push @fontlist, $1;
s|^(\s*)\(CHARWD (\S+) ([^\)]+)\)|sprintf "%s(CHARWD %s %.7f)", $1, $2, $3*$xscale|gie;
print ASCII_FILE $_;
}
close ASCII_FILE;
close ASCII_TEXT;
# Convert the result from ASCII to binary.
if ($virtualfont) {
system "vptovf $fname.vpl";
die "system: $!\n" if $?;
unlink "$fname.vpl";
}
else {
system "pltotf $fname.pl";
die "system: $!\n" if $?;
unlink "$fname.pl";
}
}
# Re-map a font to a thinner variant.
sub remap_font ($)
{
# See if any map file maps the given font.
my $fontname = $_[0];
my @matches = grep {/^$fontname\s/} @megamap;
return undef if $#matches==-1;
# One does -- scale the font as specified.
my $quoted = "";
while ($matches[0] =~ s/\"([^\"]+)\"//) {
$quoted .= $1 . " ";
}
$matches[0] =~ s/\s+/ /g;
$quoted =~ s/\S+\s+ExtendFont//g;
$quoted .= "$xscale ExtendFont";
return $matches[0] . " \"$quoted\"";
}
# Output the embedded POD documentation in either *roff or PostScript format.
sub pod2man ($$)
{
my ($manfile, $extraformatting) = @_;
# Create an ordinary man page.
my $parser = Pod::Man->new (center => "",
date => "17 July 2004",
release => "");
$parser->parse_from_file ($0, $manfile);
# If requested, perform some extra formatting to make the
# documentation print nicer.
return if !$extraformatting;
my @formattedman;
open (MANPAGE, "<$manfile") || die "open(\"$manfile\"): $!\n";
while (<MANPAGE>) {
s/LaTeX/L\\h'-0.36m'\\v'-0.15'\\s-2A\\s+2\\v'0.15'\\h'-0.15m'TeX/g;
s/TeX/T\\h'-0.1667m'\\v'0.20'E\\v'-0.20'\\h'-0.125m'X/g;
s/\\\*\(--/--/g;
push @formattedman, $_;
}
close MANPAGE;
open (MANPAGE, "| groff -man > $manfile") || die "open(\"$manfile\"): $!\n";
print MANPAGE @formattedman;
close MANPAGE;
}
###########################################################################
# Parse the command line.
my $wanthelp = 0;
Getopt::Long::Configure ("bundling");
GetOptions ("h|help" => \$wanthelp,
"x|xscale=f" => \$xscale,
"b|basename=s" => \$base,
"k|skipfonts=s" => \@skipfonts,
"e|extrafonts=s" => \@extrafonts,
"m|extramaps=s" => \@extramaps,
"P|config=s" => \@configexts,
"c|clean" => \$cleanonly,
"C|cleanfirst" => \$cleanfirst,
"p|pdftex" => \$also_pdftex,
"man=s" => sub {pod2man ($_[1], 0); exit 0},
"man-ps=s" => sub {pod2man ($_[1], 1); exit 0},
"v|verbose+" => \$verbose) || pod2usage (-verbose => 0,
-exitval => 1);
pod2usage (-verbose => $verbose,
-exitval => 0) if $wanthelp;
pod2usage (-verbose => 0,
-exitval => 1) if $#ARGV==-1;
$dvifile = $ARGV[0];
# Get a list of fonts from the DVI file and from the command line.
print "Acquiring font names from $dvifile\n" if $verbose;
open (DVI, "dvitype $dvifile|") || die "open(): $!\n";
my %uniquefonts;
while (<DVI>) {
/Font \d+: (\w+)/ && do {$uniquefonts{$1}=1};
}
close DVI;
foreach (map {split /,/, $_} @extrafonts) {
$uniquefonts{$_} = 1;
}
@fontlist = sort {$a cmp $b} keys %uniquefonts;
my %skipfonts = map {($_ => 1)} map {split /,/, $_} @skipfonts;
# If told to, delete generated files from previous runs.
if ($cleanfirst || $cleanonly) {
print "Deleting generated font files, configuration files, and font maps\n" if $verbose;
my @old_fontlist = @fontlist;
while (@fontlist) {
my $fontname = shift @fontlist;
if ($skipfonts{$fontname}) {
print " Ignoring $fontname (as directed by the command line)\n" if $verbose>1;
next;
}
thin_font ($fontname, "", ".vf", 1) if -e "$fontname.vf";
foreach my $fsuffix (".vf", ".tfm") {
if (-e "$fontname$fsuffix") {
print " Removing $fontname$fsuffix\n" if $verbose>1;
unlink "$fontname$fsuffix";
}
}
}
my @extra_deletes = ("config.$base", "$base.map");
push (@extra_deletes, "pdftex.cfg") if $also_pdftex;
foreach (@extra_deletes) {
if (-e $_) {
print " Removing $_\n" if $verbose>1;
unlink $_;
}
}
exit 0 if $cleanonly;
@fontlist = @old_fontlist;
}
# Convert each font in turn.
print "Creating *.tfm and *.vf files with ${xscale}X horizontal scaling\n" if $verbose;
my %allfonts;
while (@fontlist) {
my $fontname = shift @fontlist;
if ($skipfonts{$fontname}) {
print " Ignoring $fontname (as directed by the command line)\n" if $verbose>1;
next;
}
$allfonts{$fontname} = 1;
if (-e (set_ext $fontname, ".vf") || -e (set_ext $fontname, ".tfm")) {
print " Skipping $fontname (already converted)\n" if $verbose>1;
if (-e set_ext $fontname, ".vf") {
$fontname .= ".vf";
}
else {
$fontname .= ".tfm";
}
my ($fname, $fpath, $fsuffix) = fileparse $fontname, "\.[^.]*";
thin_font ($fname, $fpath, $fsuffix, 1); # Only search for new fonts.
}
else {
# Use a .vf file if available. If not, then use the .tfm file.
print " Processing $fontname\n" if $verbose>1;
my ($fname, $fpath, $fsuffix);
if (find_file "$fontname.vf") {
($fname, $fpath, $fsuffix) = fileparse find_file ("$fontname.vf"), ".vf";
}
elsif (find_file "$fontname.tfm") {
($fname, $fpath, $fsuffix) = fileparse find_file ("$fontname.tfm"), ".tfm";
}
else {
die "${progname}: I don't know anything about $fontname\n";
}
# Convert the font.
thin_font ($fname, $fpath, $fsuffix, 0);
}
}
# Acquire a list of .map files to process.
print "Reading dvips configuration files (config.*)\n" if $verbose;
foreach my $ext ("ps", @configexts) {
my $configfile = find_file '--format="dvips config"', "config.$ext";
die "${progname}: unable to find config.$ext\n" if !$configfile;
print " Searching for map files in $configfile\n" if $verbose>1;
open (CONFIGFILE, "<$configfile") || die "open(\"$configfile\"): $!\n";
while (<CONFIGFILE>) {
# Search for a PostScript font alias filename.
chomp;
s/\%.*//;
next if !/^\s*p\s+(\+?)(\S+)/;
# We found it -- adjust the list of .map files accordingly.
@mapfiles=() if $1 eq "";
my $map = find_file '--format="dvips config"', $2;
die "${progname}: unable to find $2\n" if !$map;
push @mapfiles, $map;
}
close CONFIGFILE;
}
# Merge the contents of all map files into @megamap.
print "Reading font maps (*.map)\n" if $verbose;
foreach my $mapfile ((map {split /,/, $_} @extramaps), @mapfiles) {
print " Reading font mappings from $mapfile\n" if $verbose>1;
open (MAPFILE, "<$mapfile") || die "open(\"$mapfile\"): $!\n";
chomp (my @mappings = <MAPFILE>);
close MAPFILE;
push @megamap, @mappings;
}
# Create a dvips configuration file.
print "Generating config.$base\n" if $verbose;
open (CONFIG, ">config.$base") || die "open(\"config.$base\"): $!\n";
print CONFIG <<"CONFIG_EOF";
% This file can be freely modified. It can also be
% redistributed, provided that it is not called "config.thin".
p +$base.map
CONFIG_EOF
close CONFIG;
# Create a dvips map file.
print "Generating $base.map\n" if $verbose;
open (FONTMAP, ">$base.map") || die "open(\"$base.map\"): $!\n";
print FONTMAP <<'FONTMAP_EOF';
% This file can be freely modified. It can also be
% redistributed, provided that it is not called "thin.map".
FONTMAP_EOF
my $num_maps = 0;
foreach my $fontname (sort {$a cmp $b} keys %allfonts) {
my $remapping = remap_font $fontname;
if ($remapping) {
print FONTMAP $remapping, "\n";
print " Wrote mapping for $fontname\n" if $verbose>1;
$num_maps++;
}
elsif (! -e "$fontname.vf") {
warn "${progname}: warning: no mapping was found for $fontname\n";
}
}
close FONTMAP;
warn "${progname}: warning: no fonts were written to $base.map\n" if !$num_maps;
# Create a pdfTeX config file.
if ($also_pdftex) {
print "Generating pdftex.cfg\n" if $verbose;
unlink "pdftex.cfg";
my $pdfcfg = find_file "--progname=pdftex", "pdftex.cfg";
die "${progname}: unable to find pdftex.cfg\n" if !$pdfcfg;
open (INCONFIG, "<$pdfcfg") || die "open(\"$pdfcfg\"): $!\n";
open (OUTCONFIG, ">pdftex.cfg") || die "open(\"pdftex.cfg\"): $!\n";
while (<INCONFIG>) {
next if /^\s*map\s/; # Discard all map lines.
print OUTCONFIG $_;
}
print OUTCONFIG "\n% The next line was added by $progname.\n";
print OUTCONFIG "map $base.map\n";
close OUTCONFIG;
close INCONFIG;
}
###########################################################################
__END__
=head1 NAME
makethin - make thinner versions of PostScript fonts for TeX
=head1 SYNOPSIS
makethin
[B<--verbose>]
[B<--xscale>=I<factor>]
[B<--cleanfirst>]
[B<--clean>]
[B<--config>=I<extension>]
[B<--pdftex>]
[B<--extramaps>=I<file>[,I<file>]...]
[B<--skipfonts>=I<font>[,I<font>]...]
[B<--basename>=I<string>]
[B<--extrafonts>=I<font>[,I<font>]...]
I<.dvi file>
makethin
[B<--verbose>]
B<--help>
makethin
B<--man>=I<man page> | B<--man-ps>=I<PostScript file>
=head1 DESCRIPTION
B<makethin> produces thinner versions of PostScript fonts for use with
TeX/LaTeX and Dvips. More precisely, it finds all of the F<.tfm>
and F<.vf> fonts referred to by a F<.dvi> file, scales the
character-width metrics by a given amount, and writes new F<.tfm> and
F<.vf> files to the current directory. B<makethin> then generates a
customized F<.map> and F<config> file for Dvips and, optionally, a
customized F<pdftex.cfg> file for pdfLaTeX.
The general procedure for using B<makethin> is as follows:
=over 4
=item 1.
Run B<latex> on your F<.tex> source file to produce a F<.dvi> file.
=item 2.
Run B<makethin> on the F<.dvi> file to create new F<.tfm>, F<.vf>,
F<.map>, and F<config> files.
=item 3.
Re-run B<latex> on your F<.tex> source file to typeset it with the new
fonts.
=item 4.
Run B<dvips> on the F<.dvi> file, specifying the newly generated
F<.map> and F<config> files, to produce a F<.ps> file.
=back
=head1 OPTIONS
The following are the command-line options that B<makethin> accepts:
=over 4
=item B<-v>, B<--verbose>
Increase the verbosity of the status output. B<--verbose> can be
specified multiple times on the same command line, with each
B<--verbose> futher increasing the verbosity. (Currently, two
B<--verbose>s have maximal impact.)
=item B<-h>, B<--help>
Display basic usage information. When combined with B<--verbose>,
additionally describes each of the command-line options. When
combined with a second B<--verbose>, B<--help> outputs the complete
B<makethin> manual page.
=item B<-x> I<factor>, B<--xscale>=I<factor>
Scale fonts horizontally by a factor of I<factor>. The default,
C<0.5>, produces nearly illegible fonts but is useful for verifying
that B<makethin> actually worked. Factors of C<0.90>-C<0.99> are more
reasonable.
=item B<-C>, B<--cleanfirst>
Delete all files generated by a previous run of B<makethin> before
generating new ones.
=item B<-c>, B<--clean>
Delete all files generated by a previous run of B<makethin> and then
exit.
=item B<-P> I<extension>, B<--config>=I<extension>
Process all of the F<.map> files named in F<config.>I<extension>
(found in Dvips's configuration directory). B<--config> can be
specified multiple times on the same command line. F<config.ps> is
processed implicitly. The same B<-P> arguments that you would
normally pass to B<dvips> to utilize entirely PostScript fonts (e.g.,
B<-Pcmz> and B<-Pamz>) should also be passed to B<makethin>.
=item B<-p>, B<--pdftex>
In addition to producing the files needed by Dvips, also produce a
F<pdftex.cfg> file that is usable by pdfLaTeX.
=item B<-m> I<file>[,I<file>]...], B<--extramaps>=I<file>[,I<file>]...]
Additionally process the named Dvips F<.map> files even if they're
not referred to by any of the F<config.>I<extension> files specified
with B<--config>. B<--extramaps> can be specified multiple times on
the same command line.
=item B<-k> I<font>[,I<font>]...], B<--skipfonts>=I<font>[,I<font>]...]
Don't make thin versions of the named fonts, even if they're listed in
the F<.dvi> file. Fonts are named using the Berry scheme (i.e.,
``C<pcrr8a>'' as opposed to ``C<COURB>'' or ``C<Courier-Bold>'').
B<--skipfonts> can be specified multiple times on the same command
line.
=item B<-b> I<string>, B<--basename>=I<string>
Tell B<makethin> to use I<string> as the base name for the Dvips
configuration files it generates. The default is ``C<thin>'', so
B<makethin> normally produces files named F<config.thin> and
F<thin.map>, but B<--basename> enables alternate filenames to be used.
=item B<-e> I<font>[,I<font>]...], B<--extrafonts>=I<font>[,I<font>]...]
Make thin versions of the named fonts, even if they're not listed in
the F<.dvi> file. Fonts are named using the Berry scheme (i.e.,
``C<pcrr8a>'' as opposed to ``C<COURB>'' or ``C<Courier-Bold>'').
B<--extrafonts> can be specified multiple times on the same command
line.
=item B<--man>=I<man page>
Create a Unix manual page for B<makethin> in the standard, *roff
format. Typical usage is:
makethin --man=/usr/man/man1/makethin.1
=item B<--man-ps>=I<PostScript file>
Create a Unix manual page for B<makethin> in PostScript format instead
of *roff format.
=back
In addition to the options listed above, B<makethin> has a required
argument, which is the name of a F<.dvi> file from which to read font
information.
=head1 EXAMPLES
The following are some examples of how to use B<makethin>.
=head2 A typical case
First, we need to produce F<myfile.dvi>, because that contains the
font information that B<makethin> will read:
latex myfile.tex
Next, we invoke B<makethin>, telling it to process F<config.cmz>
(which, in turn, causes F<psfonts.cmz> to be processed), This tells
B<makethin> to use PostScript versions of the Computer Modern fonts
instead of bitmapped versions. (B<makethin> can scale only PostScript
fonts.) We also specify maximal verbosity:
makethin -Pcmz --verbose --verbose myfile.dvi
The preceding line reads F<config.ps>, F<config.cmz>, various map
files, such as F<psfonts.map> and F<psfonts.cmz>, and all of the
F<.tfm> and F<.vf> files mentioned in F<myfile.dvi>. It then writes
F<config.thin>, F<thin.map>, and modified versions of all of the
F<.tfm> and F<.vf> files to the current directory.
We now need to re-run B<latex>, so it can produce a new F<myfile.dvi>
using the thinner metrics listed in the current directory's F<.tfm>
and F<.vf> files:
latex myfile.tex
Finally, we produce a PostScript file using the newly generated using
F<config.thin> and F<thin.map> files:
dvips -Pthin myfile.dvi -o myfile.ps
If all worked according to plan, F<myfile.ps> should be typeset using
extremely thin (half-width) versions of its original fonts.
=head2 Producing thin fonts for use in pdfLaTeX
Because B<makethin> can read only F<.dvi> files, not F<.pdf> files, we
first need to produce a F<.dvi> file:
latex too-long.tex
F<too-long.dvi> is typeset entirely using the Times family of fonts.
Therefore, we don't need to specify B<-Pcmz>. However, B<pdflatex>
normally embeds Times, thereby precluding B<makethin>'s ability to
scale it. (B<makethin> requires a F<.pfb> font file in order to scale
the corresponding font.) Fortunately,
F</usr/share/texmf/dvips/config/ar-std-urw-kb.map> already contains
the proper mapping of TeX names to F<.pfb> files for Times, Courier,
and Helvetica. We can tell B<makethin> to use that file:
makethin --cleanfirst -v -v too-long.dvi --pdftex --xscale=0.9
--extramaps=/usr/share/texmf/dvips/config/ar-std-urw-kb.map
In the preceding line, we changed the scaling factor from the default
of 0.5 to a more reasonable 0.9. Because we had some 0.5-scaled
F<.tfm> and F<.vf> files left over from the previous example, we
specified B<--cleanfirst> to delete those old font files. We
specified B<--pdftex> to make B<makethin> produce a local
F<pdftex.cfg> file. And we told B<makethin> where to find the extra
map file needed to force the usage of F<.pfb> files.
All that's left is to run B<pdflatex> to produce a F<.pdf> file:
pdflatex too-long.tex
B<pdflatex> will read the font metric files (F<.tfm> and F<.vf>) and
F<pdftex.cfg> from the current directory. This will tell it to load
F<thin.map>, which specifies the scaling factor. The result should be
a document with each character squeezed to 90% of its original width.
=head1 FILES
=over 4
=item B<perl>
interpreter/compiler needed to run the B<makethin> script
=item B<kpsewhich>
finds files within the TeX directory tree
=item B<dvitype>
outputs the typesetting commands contained within a F<.dvi> file
=item F<*.tfm> and F<*.vf>
TeX font metrics and virtual fonts--metrics specifying the width of
each character in a font
=item F<config.*>
Dvips configuration files, each containing (among other
information) a list of font-map files
=item F<psfonts.*>, F<*.map>
Dvips font-map files, which map TeX font names to PostScript font
names and F<.pfb> files
=item F<pdftex.cfg>
pdfTeX and pdfLaTeX configuration files, each containing (among other
information) a list of font-map files
=item B<groff>
used by B<--man-ps> to produce a PostScript version of the Unix manual
page for B<makethin>
=back
=head1 RESTRICTIONS
The most serious restriction is that B<makethin> doesn't work on
Computer Modern Roman 10pt. (F<cmr10>)--the default TeX/LaTeX font.
The reason, I believe, is that TeX and LaTeX preload that font's
metrics (F<cmr10.tfm>) and therefore ignore the scaled F<cmr10.tfm> on
disk. It may be possible to work around this limitation by copying
F<cmr10.tfm> to a new name and convincing LaTeX to use that name where
it would otherwise have used F<cmr10.tfm>. However, it's much easier
merely to use a different font family (e.g., with
``C<\usepackage{times}>'') for typesetting your document when you know
you want to run B<makethin>.
=head1 SEE ALSO
dvips(1),
latex(1),
pdflatex(1),
the LaTeX C<savetrees> package
=head1 AUTHOR
Scott Pakin, I<scott+st@pakin.org>
%VERBATIM_PERL
% \end{macrocode}
% \fi
%
% \begin{macrocode}
%</makethin>
% \end{macrocode}
%
% \Finale
\endinput