texlive[56772] Master/texmf-dist: fgruler (26oct20)

commits+karl at tug.org commits+karl at tug.org
Mon Oct 26 21:58:53 CET 2020


Revision: 56772
          http://tug.org/svn/texlive?view=revision&revision=56772
Author:   karl
Date:     2020-10-26 21:58:52 +0100 (Mon, 26 Oct 2020)
Log Message:
-----------
fgruler (26oct20)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/latex/fgruler/fgruler.pdf
    trunk/Master/texmf-dist/source/latex/fgruler/fgruler.dtx
    trunk/Master/texmf-dist/tex/latex/fgruler/fgruler.sty

Modified: trunk/Master/texmf-dist/doc/latex/fgruler/fgruler.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/source/latex/fgruler/fgruler.dtx
===================================================================
--- trunk/Master/texmf-dist/source/latex/fgruler/fgruler.dtx	2020-10-26 20:58:40 UTC (rev 56771)
+++ trunk/Master/texmf-dist/source/latex/fgruler/fgruler.dtx	2020-10-26 20:58:52 UTC (rev 56772)
@@ -21,7 +21,7 @@
 \ProvidesFile{fgruler.dtx}
 %</driver>
 %<package>\NeedsTeXFormat{LaTeX2e}[2020/10/01]
-%<package>\ProvidesPackage{fgruler}[2020/10/22 v1.1 Package for drawing rulers on the foreground or in the text]
+%<package>\ProvidesPackage{fgruler}[2020/10/26 v1.2 Package for drawing rulers on the foreground or in the text]
 %
 %<*driver>
 \documentclass{ltxdoc}
@@ -42,7 +42,11 @@
 belowskip=\bigskipamount,
 basicstyle=\ttfamily,
 backgroundcolor=\color{black!10},
+frame=trbl,
+framesep=3pt,
 columns=fullflexible,
+xleftmargin=3.4pt,
+xrightmargin=3.4pt,
 keepspaces}}{}
 
 \newcommand{\commandinline}{\lstinline[
@@ -60,7 +64,7 @@
 %
 % \GetFileInfo{fgruler.sty}
 %
-% \title{The {\bfseries\sffamily fgruler} package\\{\large v1.1 (2020/10/22)}}
+% \title{The {\bfseries\sffamily fgruler} package\\{\large v1.2 (2020/10/26)}}
 % \author{Tibor T\'{o}m\'{a}cs\\{\normalsize\url{tomacs.tibor at uni-eszterhazy.hu}}}
 % \date{}
 % \maketitle
@@ -113,41 +117,42 @@
 % \commandinline|upperright| Origin: upper right corner. Directions: down and left.\\
 % \commandinline|lowerleft | Origin: lower left corner. Directions: up and right.\\
 % \commandinline|lowerright| Origin: lower right corner. Directions: up and left.\\
-% \commandinline|none      | Not drawing ruler.
+% \commandinline|none      | Not drawing ruler.\\
+% \commandinline|user      | Each \commandinline|!<unit>!|--\commandinline|!<type name>!| pair activates an \commandinline|\fgruler@!<unit>!@!<type name>!@fg| command. You can control the effect of this option by redefining the \commandinline|\fgruler@!<unit>!@user at fg| commands, which are empty in the default case. (See \ref{example:user1}, \ref{example:user2} and \ref{example:user3} examples.)
 % \end{description}
 % 
 % \item\commandinline|hshift=!<length>!|\\
 % Horizontal shift.
-% The shift direction is right, if the \commandinline|!<type name>!| is \verb|upperleft| or \verb|lowerleft|, otherwise it is left.
-% Default: \verb|hshift=0cm|
+% The shift direction is right, if the \commandinline|!<type name>!| is \verb|upperleft| or \verb|lowerleft|, otherwise it is left.\\
+% Default: \verb|hshift=0cm|.\\ The \commandinline|!<length>!| is saved in \commandinline|\fgruler at hshift|.
 % 
 % \item\commandinline|vshift=!<length>!|\\
 % Vertical shift.
-% The shift direction is down, if the \commandinline|!<type name>!| is \verb|upperleft| or \verb|upperright|, otherwise it is up.
-% Default: \verb|vshift=0cm|
+% The shift direction is down, if the \commandinline|!<type name>!| is \verb|upperleft| or \verb|upperright|, otherwise it is up.\\
+% Default: \verb|vshift=0cm|.\\ The \commandinline|!<length>!| is saved in \commandinline|\fgruler at vshift|.
 % 
 % \item\commandinline|color=!<color name>!|\\
-% Ruler color (see \texttt{xcolor} package).
-% Default: \verb|color=black|
+% Ruler color (see \texttt{xcolor} package).\\
+% Default: \verb|color=black|.\\ The \commandinline|!<color name>!| is saved in \commandinline|\fgruler at color|.
 % 
 % \item\commandinline|numsep=!<length>!|\\
-% Separation between number and ruler.
-% Default: \verb|numsep=3pt|
+% Separation between number and ruler.\\
+% Default: \verb|numsep=3pt|.\\ The \commandinline|!<length>!| is saved in \commandinline|\fgruler at numsep|.
 % 
 % \item\commandinline|markthick=!<length>!|\\
-% Mark thickness.
-% Default: \verb|markthick=0.4pt|
+% Mark thickness.\\
+% Default: \verb|markthick=0.4pt|.\\ The \commandinline|!<length>!| is saved in \commandinline|\fgruler at markthick|.
 % 
 % \item\commandinline|marklength=!<length>!|\\
 % Mark length at integer units:
-% {\fgrulernoborderline\fgrulercaptioncm{}\fgrulerthickcm{}{}{1pt}\fgrulercolorcm{}{}{red}\ruler{rightup}{3cm}}\quad
-% Default: \verb|marklength=2mm|\\
+% {\fgrulernoborderline\fgrulercaptioncm{}\fgrulerthickcm{}{}{1pt}\fgrulercolorcm{}{}{red}\ruler{rightup}{3cm}}\\
+% Default: \verb|marklength=2mm|.\\ The \commandinline|!<length>!| is saved in \commandinline|\fgruler at marklength|.\\
 % See the length of the other marks in Section \ref{sec:additional}.
 % 
 % \item\commandinline|numfont=!<font type>!|\\
-% Number font type.
+% Number font type.\\
 % You can use this option only in \verb|\setfgruler| command.\\
-% Default: \verb|numfont=\scriptsize\sffamily|
+% Default: \verb|numfont=\scriptsize\sffamily|.\\ The \commandinline|!<font type>!| is saved in \commandinline|\fgruler at numfont|.
 % 
 % \item\commandinline|showframe| or \commandinline|showframe=true|\\
 % It draws visible frames for the text and margin area, and lines for the head and foot.
@@ -521,66 +526,166 @@
 % \documentclass{article}
 % \usepackage{fgruler}
 % \begin{document}
-% % ...
+% ...
 % \end{document}
 % \end{examplelst}
 % 
 % \newpage\fgrulerreset
-% \subsection{The showframe option}
+% \subsection{The `showframe' option}
 % \setfgruler{color=red,showframe}
 % \begin{examplelst}
 % \documentclass{article}
 % \usepackage[color=red,showframe]{fgruler}
 % \begin{document}
-% % ...
+% ...
 % \end{document}
 % \end{examplelst}
 % 
 % \newpage\fgrulerreset
-% \subsection{Shifting}
+% \subsection{Shifting in default case}
 % \setfgruler{hshift=1cm,vshift=2cm}
 % \begin{examplelst}
 % \documentclass{article}
 % \usepackage[hshift=1cm,vshift=2cm]{fgruler}
 % \begin{document}
-% % ...
+% ...
 % \end{document}
 % \end{examplelst}
 % 
 % \newpage\fgrulerreset
-% \subsection{Shifting in case type=upperright}
+% \subsection{Shifting in case `type=upperright' option}
 % \setfgruler{type=upperright,hshift=1cm,vshift=2cm}
 % \begin{examplelst}
 % \documentclass{article}
 % \usepackage[type=upperright,hshift=1cm,vshift=2cm]{fgruler}
 % \begin{document}
-% % ...
+% ...
 % \end{document}
 % \end{examplelst}
 % 
 % \newpage\fgrulerreset
-% \subsection{Shifting in case type=lowerleft}
+% \subsection{Shifting in case `type=lowerleft' option}
 % \setfgruler{type=lowerleft,hshift=1cm,vshift=2cm}
 % \begin{examplelst}
 % \documentclass{article}
 % \usepackage[type=lowerleft,hshift=1cm,vshift=2cm]{fgruler}
 % \begin{document}
-% % ...
+% ...
 % \end{document}
 % \end{examplelst}
 % 
 % \newpage\fgrulerreset
-% \subsection{Shifting in case type=lowerright}
+% \subsection{Shifting in case `type=lowerright' option}
 % \setfgruler{type=lowerright,hshift=1cm,vshift=2cm}
 % \begin{examplelst}
 % \documentclass{article}
 % \usepackage[type=lowerright,hshift=1cm,vshift=2cm]{fgruler}
 % \begin{document}
-% % ...
+% ...
 % \end{document}
 % \end{examplelst}
 % 
 % \newpage\fgrulerreset
+% \subsection{An example for the `type=user' option}\label{example:user1}
+% \setfgruler{type=none}
+% \begin{examplelst}
+% \documentclass{article}
+% \usepackage[type=user]{fgruler}
+% \makeatletter
+% \def\fgruler at cm@user at fg{%
+%     \ifodd\value{page}\fgruler at cm@upperright at fg%
+%       \else\fgruler at cm@upperleft at fg\fi}
+% \def\fgruler at in@user at fg{%
+%     \ifodd\value{page}\fgruler at in@upperright at fg%
+%       \else\fgruler at in@upperleft at fg\fi}
+% \makeatother
+% \begin{document}
+% ...
+% \end{document}
+% \end{examplelst}
+% In this case the \texttt{type=upperright} option will be activated, if the page number is odd. Otherwise \texttt{type=upperleft} will be activated.
+% 
+% \newpage\fgrulerreset
+% \subsection{An other example for the `type=user' option}\label{example:user2}
+% \setfgruler{type=user,color=red}
+%\makeatletter
+%\newlength{\fgruler at tempdim}
+%\renewcommand{\fgruler at cm@user at fg}{\AtTextLowerLeft{\ignorespaces%
+%\settowidth{\fgruler at tempdim}{\ruler{downleft}{\textheight}}%
+%\rulerparams{}{}{\fgruler at color}{}{}%
+%\put(-\fgruler at tempdim,0){\ignorespaces%
+%\rulernorotatenum\fgrulercaptioncm{}\ruler{downleft}{\textheight}}%
+%\put(0,\textheight){\ignorespaces\ruler{rightup}{\textwidth}}}}
+%\makeatother
+% \begin{examplelst}
+% \documentclass{article}
+% \usepackage[type=user,color=red]{fgruler}
+% \makeatletter
+% \newlength{\fgruler at tempdim}
+% \newcommand{\fgruler at user}[1]{%
+%   \AtTextLowerLeft{% See eso-pic package!
+%     \rulerparams{\fgruler at markthick}{\fgruler at numfont}{\fgruler at color}%
+%       {\fgruler at marklength}{\fgruler at numsep}%
+%     \settowidth{\fgruler at tempdim}{\ruler[#1]{downleft}{\textheight}}%
+%     \put(-\fgruler at tempdim,0){%
+%       \rulernorotatenum%
+%       \fgrulercaptioncm{}%
+%       \fgrulercaptionin{}%
+%       \ruler[#1]{downleft}{\textheight}%
+%     }%
+%     \put(0,\textheight){%
+%       \ruler[#1]{rightup}{\textwidth}%
+%     }%
+%   }%
+% }
+% \renewcommand{\fgruler at cm@user at fg}{\fgruler at user{cm}}
+% \renewcommand{\fgruler at in@user at fg}{\fgruler at user{in}}
+% \makeatother
+% \begin{document}
+% ...
+% \end{document}
+% \end{examplelst}
+% This code places rulers at the left and the top border of the body. In this case the \texttt{hshift} and \texttt{vshift} options don't work.
+% 
+% \newpage\fgrulerreset
+% \subsection{The third example for the `type=user' option}\label{example:user3}
+% \setfgruler{type=user,color=blue}
+%\makeatletter
+%\renewcommand{\fgruler at cm@user at fg}{\fgruler at cm@upperleft at fg\AtTextLowerLeft{\ignorespaces%
+%\rulerparams{}{}{\fgruler at color}{}{}%
+%\put(\textwidth,0){\ignorespaces%
+%\rulernorotatenum\fgrulercaptioncm{}\ruler{downright}{\textheight}}%
+%\put(0,\textheight){\ignorespaces\ruler{rightup}{\textwidth}}}}
+%\makeatother
+% \begin{examplelst}
+% \documentclass{article}
+% \usepackage[type=user,color=blue]{fgruler}
+% \makeatletter
+% \newcommand{\fgruler at user}[1]{%
+%   \AtTextLowerLeft{% See eso-pic package!
+%     \rulerparams{\fgruler at markthick}{\fgruler at numfont}{\fgruler at color}%
+%       {\fgruler at marklength}{\fgruler at numsep}%
+%     \put(\textwidth,0){%
+%       \rulernorotatenum%
+%       \fgrulercaptioncm{}%
+%       \fgrulercaptionin{}%
+%       \ruler[#1]{downright}{\textheight}%
+%     }%
+%     \put(0,\textheight){%
+%       \ruler[#1]{rightup}{\textwidth}%
+%     }%
+%   }%
+% }
+% \renewcommand{\fgruler at cm@user at fg}{\fgruler at cm@upperleft at fg\fgruler at user{cm}}
+% \renewcommand{\fgruler at in@user at fg}{\fgruler at in@upperleft at fg\fgruler at user{in}}
+% \makeatother
+% \begin{document}
+% ...
+% \end{document}
+% \end{examplelst}
+% In this code the effect of \texttt{type=user} is similar to \texttt{type=upperleft}, but it places further rulers at the right and the top border of the body.
+%
+% \newpage\fgrulerreset
 % \subsection{Rulers on the foreground of a given page, and in text}
 % \setfgruler{color=blue}
 % \fgruler{upperleft}{1cm}{1.5cm}
@@ -768,6 +873,37 @@
 % \end{document}
 % \end{examplelst}
 %
+% \newpage\fgrulerreset
+% \subsection{A new square ruler}
+% \setfgruler{type=none}
+% 
+% \makeatletter
+% \newcommand{\usersquareruler}[2]{
+% \begin{picture}(#1+1em+\fgruler at marklength,#2+1em+\fgruler at marklength)
+% {\fgrulercaptioncm{}
+% \ruler{downleft}{#2}}
+% \put(0,#2){\ruler{rightup}{#1}}
+% \end{picture}}
+% \makeatother
+% \usersquareruler{3cm}{5cm}
+% 
+% \bigskip
+% \begin{examplelst}
+% \documentclass{article}
+% \usepackage[type=none]{fgruler}
+% \makeatletter
+% \newcommand{\usersquareruler}[2]{%
+%     \begin{picture}(#1+1em+\fgruler at marklength,#2+1em+\fgruler at marklength)%
+%         {\fgrulercaptioncm{}%
+%          \ruler{downleft}{#2}}%
+%         \put(0,#2){\ruler{rightup}{#1}}%
+%     \end{picture}}
+% \makeatother
+% \begin{document}
+% \usersquareruler{3cm}{5cm}
+% \end{document}
+% \end{examplelst}
+%
 % \StopEventually
 %
 %    \begin{macrocode}
@@ -833,7 +969,8 @@
 \def\fgruler at check{lowerleft}\ifx\fgruler at type\fgruler at check\else%
 \def\fgruler at check{lowerright}\ifx\fgruler at type\fgruler at check\else%
 \def\fgruler at check{none}\ifx\fgruler at type\fgruler at check\else%
-\@latexerr{Undefined type: \fgruler at type\space(Defined types: upperleft, upperright, lowerleft, lowerright, none)}{}\fi\fi\fi\fi\fi%
+\def\fgruler at check{user}\ifx\fgruler at type\fgruler at check\else%
+\@latexerr{Undefined type: \fgruler at type\space(Defined types: upperleft, upperright, lowerleft, lowerright, user, none)}{}\fi\fi\fi\fi\fi\fi%
 \def\fgruler at output{\csname fgruler@\fgruler at unit @\fgruler at type @fg\endcsname}}
 
 \def\fgrulerratiocm#1#2{%
@@ -902,10 +1039,13 @@
 
 \def\setfgruler#1{\setkeys{fgruler}{#1}\fgruler at activate@type\ignorespaces}
 
+\newdimen\fgruler at tempdima
+\newdimen\fgruler at tempdimb
+
 \newcommand\fgruler at div[2]{%
-\@tempdima=#1\relax\@tempdimb=\unitlength\relax
-\@tempdimb=#2\@tempdimb\divide\@tempdima by \@tempdimb
-\@tempcnta\@tempdima\advance\@tempcnta\@ne}
+\fgruler at tempdima=#1\relax\fgruler at tempdimb=\unitlength\relax
+\fgruler at tempdimb=#2\fgruler at tempdimb\divide\fgruler at tempdima by \fgruler at tempdimb
+\@tempcnta\fgruler at tempdima\advance\@tempcnta\@ne}
 
 \def\fgruler at check@param#1#2{%
 \def\fgruler at param{#1}%
@@ -970,8 +1110,6 @@
 
 \def\fgruler at ifodd#1{\ifodd\value{fgrulernum}#1\fi\stepcounter{fgrulernum}}
 
-\def\fgruler at lentounit#1{\strip at pt\dimexpr#1*\p@/\unitlength}
-
 \def\fgrulerstartnum#1{\def\fgruler at startnum{#1}\ignorespaces}
 \def\fgruler at startnum{0}
 
@@ -1048,8 +1186,7 @@
 
 \iffgruler at nonefgrulers
 
-\renewcommand{\fgruler}[4][cm]{}
-\providecommand{\AtPageLowerLeft}[1]{#1}
+\renewcommand{\fgruler}[4][]{}
 
 \else
 
@@ -1061,26 +1198,26 @@
     \fgruler at rulercolor%
     \fgruler at markthickness%
     \AtPageLowerLeft{%
-      \framebox(\fgruler at lentounit{\paperwidth},\fgruler at lentounit{\paperheight}){}}%
+      \framebox(\paperwidth,\paperheight){}}%
     \AtTextLowerLeft{%
-      \framebox(\fgruler at lentounit{\textwidth},\fgruler at lentounit{\textheight}){}}%
+      \framebox(\textwidth,\textheight){}}%
     \AtTextUpperLeft{%
-      \put(0,\fgruler at lentounit{\headsep}){%
-        \framebox(\fgruler at lentounit{\textwidth},\fgruler at lentounit{\headheight}){}}}%
+      \put(0,\headsep){%
+        \framebox(\textwidth,\headheight){}}}%
     \AtTextLowerLeft{%
-      \put(0,\fgruler at lentounit{-\footskip}){%
-        \line(1,0){\fgruler at lentounit{\textwidth}}}}%
+      \put(0,-\footskip){%
+        \line(1,0){\textwidth}}}%
     \AtTextLowerLeft{%
-      \@tempdima=\textwidth\advance\@tempdima\marginparsep%
+      \fgruler at tempdima=\textwidth\advance\fgruler at tempdima\marginparsep%
       \if at twoside
         \ifodd\c at page\else
           \if at mparswitch
-            \@tempdima=-\marginparsep\advance\@tempdima-\marginparwidth
+            \fgruler at tempdima=-\marginparsep\advance\fgruler at tempdima-\marginparwidth
           \fi
         \fi
       \fi
-      \put(\fgruler at lentounit{\@tempdima},0)%
-        {\framebox(\fgruler at lentounit{\marginparwidth},\fgruler at lentounit{\textheight}){}}%
+      \put(\fgruler at tempdima,0)%
+        {\framebox(\marginparwidth,\textheight){}}%
     }%
   \endgroup
 }
@@ -1092,8 +1229,7 @@
     \ESO at MEMOIR@corr
     \put(\ESO at tempdima,\ESO at tempdimb){%
       \iffgruler at showframe\fgruler at frame\fi%
-      \fgruler at output%
-      \fgruler at output@%
+      \fgruler at output\fgruler at output@%
       \global\let\fgruler at output@\@empty%
     }%
   }%
@@ -1101,8 +1237,7 @@
   \AddToHook{shipout/foreground}{%
     \put(0,\ESO at yoffsetI){%
       \iffgruler at showframe\fgruler at frame\fi%
-      \fgruler at output%
-      \fgruler at output@%
+      \fgruler at output\fgruler at output@%
       \global\let\fgruler at output@\@empty%
     }%
   }%
@@ -1119,23 +1254,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,-1){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,-1){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,-1){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,-1){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,-1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,-1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(10,-\fgruler at lentounit{\fgruler at sep})(10,0){\@tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(10,-\fgruler at sep)(10,0){\fgruler at tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at cm@rightdown@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(0,-\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)(0,-\fgruler at width)%
 \fgruler at cm@rightdown{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5cm\put(5,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\put(0,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5cm\put(5,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@rightdown@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at cm@rightdown@{#1}}}
@@ -1146,29 +1281,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,-1){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,-1){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,-1){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,-1){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,-1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,-1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(16,-\fgruler at lentounit{\fgruler at sep})(16,0){\@tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(16,-\fgruler at sep)(16,0){\fgruler at tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at in@rightdown@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(0,-\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)(0,-\fgruler at width)%
 \fgruler at in@rightdown{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5in\put(8,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
+\put(0,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5in\put(8,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@rightdown@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at in@rightdown@{#1}}}
@@ -1179,23 +1314,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,1){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,1){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,1){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,1){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(10,\fgruler at lentounit{\fgruler at sep})(10,0){\@tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(10,\fgruler at sep)(10,0){\fgruler at tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at cm@rightup@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)%
 \fgruler at cm@rightup{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5cm\put(5,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\put(0,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5cm\put(5,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@rightup@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at cm@rightup@{#1}}}
@@ -1206,29 +1341,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,1){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,1){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,1){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,1){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(16,\fgruler at lentounit{\fgruler at sep})(16,0){\@tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(16,\fgruler at sep)(16,0){\fgruler at tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at in@rightup@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)%
 \fgruler at in@rightup{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5in\put(8,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
+\put(0,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5in\put(8,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@rightup@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at in@rightup@{#1}}}
@@ -1239,23 +1374,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,-1){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,-1){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,-1){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(-5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,-1){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(-10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,-1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(-1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(-10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,-1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(-1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-10,-\fgruler at lentounit{\fgruler at sep})(-10,0){\@tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(-10,-\fgruler at sep)(-10,0){\fgruler at tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at cm@leftdown@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(-\fgruler at lentounit{#1},-\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)(-#1,-\fgruler at width)%
 \fgruler at cm@leftdown{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5cm\put(-5,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\put(0,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5cm\put(-5,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@leftdown@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at cm@leftdown@{#1}}}
@@ -1266,29 +1401,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,-1){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(-2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,-1){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(-4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,-1){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(-8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,-1){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(-16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,-1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(-1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(-16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,-1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(-1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-16,-\fgruler at lentounit{\fgruler at sep})(-16,0){\@tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(-16,-\fgruler at sep)(-16,0){\fgruler at tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at in@leftdown@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(-\fgruler at lentounit{#1},-\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)(-#1,-\fgruler at width)%
 \fgruler at in@leftdown{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5in\put(-8,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
+\put(0,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5in\put(-8,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@leftdown@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at in@leftdown@{#1}}}
@@ -1299,23 +1434,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,1){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,1){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,1){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(-5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,1){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(-10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(-1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(-10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(-1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-10,\fgruler at lentounit{\fgruler at sep})(-10,0){\@tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(-10,\fgruler at sep)(-10,0){\fgruler at tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at cm@leftup@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(-\fgruler at lentounit{#1},0)%
+\begin{picture}(#1,\fgruler at width)(-#1,0)%
 \fgruler at cm@leftup{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5cm\put(-5,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\put(0,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5cm\put(-5,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@leftup@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at cm@leftup@{#1}}}
@@ -1326,29 +1461,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,1){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(-2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,1){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(-4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,1){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(-8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,1){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(-16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(-1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(-16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(-1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-16,\fgruler at lentounit{\fgruler at sep})(-16,0){\@tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(-16,\fgruler at sep)(-16,0){\fgruler at tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at in@leftup@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(-\fgruler at lentounit{#1},0)%
+\begin{picture}(#1,\fgruler at width)(-#1,0)%
 \fgruler at in@leftup{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5in\put(-8,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
+\put(0,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5in\put(-8,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@leftup@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at in@leftup@{#1}}}
@@ -1359,23 +1494,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(1,0){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(1,0){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(1,0){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(1,0){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(0,-10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,-1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,-10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,-1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(\fgruler at lentounit{\fgruler at sep},-10)(0,-10){\@tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(\fgruler at sep,-10)(0,-10){\fgruler at tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at cm@downright@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(0,-\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)(0,-#1)%
 \fgruler at cm@downright{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5cm\put(\fgruler at lentounit{\fgruler at sep},-5){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
+\put(\fgruler at sep,0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5cm\put(\fgruler at sep,-5){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@downright@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at cm@downright@{#1}}}
@@ -1386,29 +1521,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(1,0){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(1,0){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(1,0){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(0,-8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(1,0){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(0,-16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,-1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,-16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,-1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(\fgruler at lentounit{\fgruler at sep},-16)(0,-16){\@tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(\fgruler at sep,-16)(0,-16){\fgruler at tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at in@downright@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(0,-\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)(0,-#1)%
 \fgruler at in@downright{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5in\put(\fgruler at lentounit{\fgruler at sep},-8){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@in}}}\fi%
+\put(\fgruler at sep,0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5in\put(\fgruler at sep,-8){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@in}}}\fi%
 \end{picture}}
 
 \def\fgruler at in@downright@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at in@downright@{#1}}}
@@ -1419,23 +1554,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(-1,0){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(-1,0){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(-1,0){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(-1,0){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(0,-10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(-1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,-1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,-10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(-1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,-1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-\fgruler at lentounit{\fgruler at sep},-10)(0,-10){\@tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(-\fgruler at sep,-10)(0,-10){\fgruler at tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at cm@downleft@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(-\fgruler at lentounit{\fgruler at width},-\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)(-\fgruler at width,-#1)%
 \fgruler at cm@downleft{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(-\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5cm\put(-\fgruler at lentounit{\fgruler at sep},-5){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
+\put(-\fgruler at sep,0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5cm\put(-\fgruler at sep,-5){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@downleft@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at cm@downleft@{#1}}}
@@ -1446,29 +1581,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(-1,0){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(-1,0){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(-1,0){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(0,-8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(-1,0){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(0,-16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(-1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,-1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,-16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(-1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,-1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-\fgruler at lentounit{\fgruler at sep},-16)(0,-16){\@tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(-\fgruler at sep,-16)(0,-16){\fgruler at tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at in@downleft@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(-\fgruler at lentounit{\fgruler at width},-\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)(-\fgruler at width,-#1)%
 \fgruler at in@downleft{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(-\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5in\put(-\fgruler at lentounit{\fgruler at sep},-8){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@in}}}\fi%
+\put(-\fgruler at sep,0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5in\put(-\fgruler at sep,-8){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@in}}}\fi%
 \end{picture}}
 
 \def\fgruler at in@downleft@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at in@downleft@{#1}}}
@@ -1479,23 +1614,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(1,0){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(1,0){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(1,0){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(1,0){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(0,10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(\fgruler at lentounit{\fgruler at sep},10)(0,10){\@tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(\fgruler at sep,10)(0,10){\fgruler at tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at cm@upright@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)%
 \fgruler at cm@upright{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5cm\put(\fgruler at lentounit{\fgruler at sep},5){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
+\put(\fgruler at sep,0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5cm\put(\fgruler at sep,5){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@upright@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at cm@upright@{#1}}}
@@ -1506,29 +1641,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(1,0){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(1,0){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(0,4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(1,0){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(0,8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(1,0){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(0,16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(\fgruler at lentounit{\fgruler at sep},16)(0,16){\@tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(\fgruler at sep,16)(0,16){\fgruler at tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at in@upright@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)%
 \fgruler at in@upright{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5in\put(\fgruler at lentounit{\fgruler at sep},8){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@in}}}\fi%
+\put(\fgruler at sep,0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5in\put(\fgruler at sep,8){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@in}}}\fi%
 \end{picture}}
 
 \def\fgruler at in@upright@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at in@upright@{#1}}}
@@ -1539,23 +1674,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(-1,0){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(-1,0){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(-1,0){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(-1,0){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(0,10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(-1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(-1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-\fgruler at lentounit{\fgruler at sep},10)(0,10){\@tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(-\fgruler at sep,10)(0,10){\fgruler at tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at cm@upleft@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(-\fgruler at lentounit{\fgruler at width},0)%
+\begin{picture}(\fgruler at width,#1)(-\fgruler at width,0)%
 \fgruler at cm@upleft{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(-\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5cm\put(-\fgruler at lentounit{\fgruler at sep},5){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
+\put(-\fgruler at sep,0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5cm\put(-\fgruler at sep,5){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@upleft@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at cm@upleft@{#1}}}
@@ -1566,29 +1701,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(-1,0){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(-1,0){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(0,4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(-1,0){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(0,8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(-1,0){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(0,16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(-1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(-1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-\fgruler at lentounit{\fgruler at sep},16)(0,16){\@tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(-\fgruler at sep,16)(0,16){\fgruler at tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at in@upleft@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(-\fgruler at lentounit{\fgruler at width},0)%
+\begin{picture}(\fgruler at width,#1)(-\fgruler at width,0)%
 \fgruler at in@upleft{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(-\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5in\put(-\fgruler at lentounit{\fgruler at sep},8){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@in}}}\fi%
+\put(-\fgruler at sep,0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5in\put(-\fgruler at sep,8){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@in}}}\fi%
 \end{picture}}
 
 \def\fgruler at in@upleft@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at in@upleft@{#1}}}
@@ -1596,10 +1731,10 @@
 %% UPPERLEFT CM
 \def\fgruler at cm@upperleft@#1#2{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(0,-\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)(0,-#2)%
 \fgruler at cm@rightdown{#1}%
 \fgruler at cm@downright{#2}%
-\ifdim#1>.5cm\put(5,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\ifdim#1>.5cm\put(5,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@upperleft@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at cm@upperleft@{#1}{#2}}}
@@ -1611,7 +1746,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(\fgruler at lentounit{#1},0){%
+\AtPageLowerLeft{\put(#1,0){%
 \fgruler at cm@upperleft@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -1620,10 +1755,10 @@
 %% UPPERLEFT IN
 \def\fgruler at in@upperleft@#1#2{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(0,-\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)(0,-#2)%
 \fgruler at in@rightdown{#1}%
 \fgruler at in@downright{#2}%
-\ifdim#1>.5in\put(8,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
+\ifdim#1>.5in\put(8,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@upperleft@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at in@upperleft@{#1}{#2}}}
@@ -1635,7 +1770,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(\fgruler at lentounit{#1},0){%
+\AtPageLowerLeft{\put(#1,0){%
 \fgruler at in@upperleft@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -1644,10 +1779,10 @@
 %% UPPERRIGHT CM
 \def\fgruler at cm@upperright@#1#2{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(-\fgruler at lentounit{#1},-\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)(-#1,-#2)%
 \fgruler at cm@leftdown{#1}%
 \fgruler at cm@downleft{#2}%
-\ifdim#1>.5cm\put(-5,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\ifdim#1>.5cm\put(-5,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@upperright@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at cm@upperright@{#1}{#2}}}
@@ -1667,10 +1802,10 @@
 %% UPPERRIGHT IN
 \def\fgruler at in@upperright@#1#2{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(-\fgruler at lentounit{#1},-\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)(-#1,-#2)%
 \fgruler at in@leftdown{#1}%
 \fgruler at in@downleft{#2}%
-\ifdim#1>.5in\put(-8,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
+\ifdim#1>.5in\put(-8,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@upperright@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at in@upperright@{#1}{#2}}}
@@ -1690,10 +1825,10 @@
 %% LOWERLEFT CM
 \def\fgruler at cm@lowerleft@#1#2{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)%
 \fgruler at cm@rightup{#1}%
 \fgruler at cm@upright{#2}%
-\ifdim#1>.5cm\put(5,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\ifdim#1>.5cm\put(5,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@lowerleft@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at cm@lowerleft@{#1}{#2}}}
@@ -1705,7 +1840,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(\fgruler at lentounit{#1},\fgruler at lentounit{#2}){%
+\AtPageLowerLeft{\put(#1,#2){%
 \fgruler at cm@lowerleft@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -1714,10 +1849,10 @@
 %% LOWERLEFT IN
 \def\fgruler at in@lowerleft@#1#2{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)%
 \fgruler at in@rightup{#1}%
 \fgruler at in@upright{#2}%
-\ifdim#1>.5in\put(8,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
+\ifdim#1>.5in\put(8,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@lowerleft@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at in@lowerleft@{#1}{#2}}}
@@ -1729,7 +1864,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(\fgruler at lentounit{#1},\fgruler at lentounit{#2}){%
+\AtPageLowerLeft{\put(#1,#2){%
 \fgruler at in@lowerleft@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -1738,10 +1873,10 @@
 %% LOWERRIGHT CM
 \def\fgruler at cm@lowerright@#1#2{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(-\fgruler at lentounit{#1},0)%
+\begin{picture}(#1,#2)(-#1,0)%
 \fgruler at cm@leftup{#1}%
 \fgruler at cm@upleft{#2}%
-\ifdim#1>.5cm\put(-5,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\ifdim#1>.5cm\put(-5,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@lowerright@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at cm@lowerright@{#1}{#2}}}
@@ -1753,7 +1888,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(0,\fgruler at lentounit{#2}){%
+\AtPageLowerLeft{\put(0,#2){%
 \fgruler at cm@lowerright@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -1762,10 +1897,10 @@
 %% LOWERRIGHT IN
 \def\fgruler at in@lowerright@#1#2{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(-\fgruler at lentounit{#1},0)%
+\begin{picture}(#1,#2)(-#1,0)%
 \fgruler at in@leftup{#1}%
 \fgruler at in@upleft{#2}%
-\ifdim#1>.5in\put(-8,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
+\ifdim#1>.5in\put(-8,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@lowerright@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at in@lowerright@{#1}{#2}}}
@@ -1777,11 +1912,15 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(0,\fgruler at lentounit{#2}){%
+\AtPageLowerLeft{\put(0,#2){%
 \fgruler at in@lowerright@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
 \def\fgruler at in@lowerright at fg{\fgruler at in@lowerright at fg@{\fgruler at hshift}{\fgruler at vshift}}
+
+%% USER
+\def\fgruler at cm@user at fg{}
+\def\fgruler at in@user at fg{}
 %    \end{macrocode}
 % \Finale
 \endinput
\ No newline at end of file

Modified: trunk/Master/texmf-dist/tex/latex/fgruler/fgruler.sty
===================================================================
--- trunk/Master/texmf-dist/tex/latex/fgruler/fgruler.sty	2020-10-26 20:58:40 UTC (rev 56771)
+++ trunk/Master/texmf-dist/tex/latex/fgruler/fgruler.sty	2020-10-26 20:58:52 UTC (rev 56772)
@@ -22,7 +22,7 @@
 %% The Current Maintainer of this work is Tibor Tomacs.
 %% 
 \NeedsTeXFormat{LaTeX2e}[2020/10/01]
-\ProvidesPackage{fgruler}[2020/10/22 v1.1 Package for drawing rulers on the foreground or in the text]
+\ProvidesPackage{fgruler}[2020/10/26 v1.2 Package for drawing rulers on the foreground or in the text]
 %%
 \@ifpackageloaded{kvoptions}{}{\RequirePackage{kvoptions}}
 \@ifpackageloaded{etoolbox}{}{\RequirePackage{etoolbox}}
@@ -85,7 +85,8 @@
 \def\fgruler at check{lowerleft}\ifx\fgruler at type\fgruler at check\else%
 \def\fgruler at check{lowerright}\ifx\fgruler at type\fgruler at check\else%
 \def\fgruler at check{none}\ifx\fgruler at type\fgruler at check\else%
-\@latexerr{Undefined type: \fgruler at type\space(Defined types: upperleft, upperright, lowerleft, lowerright, none)}{}\fi\fi\fi\fi\fi%
+\def\fgruler at check{user}\ifx\fgruler at type\fgruler at check\else%
+\@latexerr{Undefined type: \fgruler at type\space(Defined types: upperleft, upperright, lowerleft, lowerright, user, none)}{}\fi\fi\fi\fi\fi\fi%
 \def\fgruler at output{\csname fgruler@\fgruler at unit @\fgruler at type @fg\endcsname}}
 
 \def\fgrulerratiocm#1#2{%
@@ -154,10 +155,13 @@
 
 \def\setfgruler#1{\setkeys{fgruler}{#1}\fgruler at activate@type\ignorespaces}
 
+\newdimen\fgruler at tempdima
+\newdimen\fgruler at tempdimb
+
 \newcommand\fgruler at div[2]{%
-\@tempdima=#1\relax\@tempdimb=\unitlength\relax
-\@tempdimb=#2\@tempdimb\divide\@tempdima by \@tempdimb
-\@tempcnta\@tempdima\advance\@tempcnta\@ne}
+\fgruler at tempdima=#1\relax\fgruler at tempdimb=\unitlength\relax
+\fgruler at tempdimb=#2\fgruler at tempdimb\divide\fgruler at tempdima by \fgruler at tempdimb
+\@tempcnta\fgruler at tempdima\advance\@tempcnta\@ne}
 
 \def\fgruler at check@param#1#2{%
 \def\fgruler at param{#1}%
@@ -222,8 +226,6 @@
 
 \def\fgruler at ifodd#1{\ifodd\value{fgrulernum}#1\fi\stepcounter{fgrulernum}}
 
-\def\fgruler at lentounit#1{\strip at pt\dimexpr#1*\p@/\unitlength}
-
 \def\fgrulerstartnum#1{\def\fgruler at startnum{#1}\ignorespaces}
 \def\fgruler at startnum{0}
 
@@ -300,8 +302,7 @@
 
 \iffgruler at nonefgrulers
 
-\renewcommand{\fgruler}[4][cm]{}
-\providecommand{\AtPageLowerLeft}[1]{#1}
+\renewcommand{\fgruler}[4][]{}
 
 \else
 
@@ -313,26 +314,26 @@
     \fgruler at rulercolor%
     \fgruler at markthickness%
     \AtPageLowerLeft{%
-      \framebox(\fgruler at lentounit{\paperwidth},\fgruler at lentounit{\paperheight}){}}%
+      \framebox(\paperwidth,\paperheight){}}%
     \AtTextLowerLeft{%
-      \framebox(\fgruler at lentounit{\textwidth},\fgruler at lentounit{\textheight}){}}%
+      \framebox(\textwidth,\textheight){}}%
     \AtTextUpperLeft{%
-      \put(0,\fgruler at lentounit{\headsep}){%
-        \framebox(\fgruler at lentounit{\textwidth},\fgruler at lentounit{\headheight}){}}}%
+      \put(0,\headsep){%
+        \framebox(\textwidth,\headheight){}}}%
     \AtTextLowerLeft{%
-      \put(0,\fgruler at lentounit{-\footskip}){%
-        \line(1,0){\fgruler at lentounit{\textwidth}}}}%
+      \put(0,-\footskip){%
+        \line(1,0){\textwidth}}}%
     \AtTextLowerLeft{%
-      \@tempdima=\textwidth\advance\@tempdima\marginparsep%
+      \fgruler at tempdima=\textwidth\advance\fgruler at tempdima\marginparsep%
       \if at twoside
         \ifodd\c at page\else
           \if at mparswitch
-            \@tempdima=-\marginparsep\advance\@tempdima-\marginparwidth
+            \fgruler at tempdima=-\marginparsep\advance\fgruler at tempdima-\marginparwidth
           \fi
         \fi
       \fi
-      \put(\fgruler at lentounit{\@tempdima},0)%
-        {\framebox(\fgruler at lentounit{\marginparwidth},\fgruler at lentounit{\textheight}){}}%
+      \put(\fgruler at tempdima,0)%
+        {\framebox(\marginparwidth,\textheight){}}%
     }%
   \endgroup
 }
@@ -344,8 +345,7 @@
     \ESO at MEMOIR@corr
     \put(\ESO at tempdima,\ESO at tempdimb){%
       \iffgruler at showframe\fgruler at frame\fi%
-      \fgruler at output%
-      \fgruler at output@%
+      \fgruler at output\fgruler at output@%
       \global\let\fgruler at output@\@empty%
     }%
   }%
@@ -353,8 +353,7 @@
   \AddToHook{shipout/foreground}{%
     \put(0,\ESO at yoffsetI){%
       \iffgruler at showframe\fgruler at frame\fi%
-      \fgruler at output%
-      \fgruler at output@%
+      \fgruler at output\fgruler at output@%
       \global\let\fgruler at output@\@empty%
     }%
   }%
@@ -371,23 +370,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,-1){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,-1){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,-1){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,-1){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,-1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,-1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(10,-\fgruler at lentounit{\fgruler at sep})(10,0){\@tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(10,-\fgruler at sep)(10,0){\fgruler at tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at cm@rightdown@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(0,-\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)(0,-\fgruler at width)%
 \fgruler at cm@rightdown{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5cm\put(5,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\put(0,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5cm\put(5,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@rightdown@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at cm@rightdown@{#1}}}
@@ -398,29 +397,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,-1){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,-1){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,-1){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,-1){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,-1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,-1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(16,-\fgruler at lentounit{\fgruler at sep})(16,0){\@tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(16,-\fgruler at sep)(16,0){\fgruler at tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at in@rightdown@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(0,-\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)(0,-\fgruler at width)%
 \fgruler at in@rightdown{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5in\put(8,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
+\put(0,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5in\put(8,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@rightdown@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at in@rightdown@{#1}}}
@@ -431,23 +430,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,1){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,1){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,1){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,1){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(10,\fgruler at lentounit{\fgruler at sep})(10,0){\@tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(10,\fgruler at sep)(10,0){\fgruler at tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at cm@rightup@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)%
 \fgruler at cm@rightup{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5cm\put(5,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\put(0,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5cm\put(5,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@rightup@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at cm@rightup@{#1}}}
@@ -458,29 +457,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,1){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,1){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,1){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,1){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(16,\fgruler at lentounit{\fgruler at sep})(16,0){\@tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(16,\fgruler at sep)(16,0){\fgruler at tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at in@rightup@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)%
 \fgruler at in@rightup{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5in\put(8,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
+\put(0,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5in\put(8,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@rightup@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at in@rightup@{#1}}}
@@ -491,23 +490,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,-1){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,-1){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,-1){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(-5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,-1){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(-10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,-1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(-1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(-10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,-1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(-1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-10,-\fgruler at lentounit{\fgruler at sep})(-10,0){\@tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(-10,-\fgruler at sep)(-10,0){\fgruler at tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at cm@leftdown@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(-\fgruler at lentounit{#1},-\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)(-#1,-\fgruler at width)%
 \fgruler at cm@leftdown{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5cm\put(-5,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\put(0,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5cm\put(-5,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@leftdown@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at cm@leftdown@{#1}}}
@@ -518,29 +517,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,-1){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(-2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,-1){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(-4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,-1){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,-1){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(-8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,-1){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(-16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,-1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(-1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(-16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,-1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(-1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-16,-\fgruler at lentounit{\fgruler at sep})(-16,0){\@tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(-16,-\fgruler at sep)(-16,0){\fgruler at tempdima}{\makebox(0,0)[t]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at in@leftdown@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(-\fgruler at lentounit{#1},-\fgruler at lentounit{\fgruler at width})%
+\begin{picture}(#1,\fgruler at width)(-#1,-\fgruler at width)%
 \fgruler at in@leftdown{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5in\put(-8,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
+\put(0,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5in\put(-8,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@leftdown@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at in@leftdown@{#1}}}
@@ -551,23 +550,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,1){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(0,1){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,1){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(-5,0){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(0,1){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(-10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(-1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(-10,0){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(0,1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(-1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-10,\fgruler at lentounit{\fgruler at sep})(-10,0){\@tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(-10,\fgruler at sep)(-10,0){\fgruler at tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at cm@leftup@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(-\fgruler at lentounit{#1},0)%
+\begin{picture}(#1,\fgruler at width)(-#1,0)%
 \fgruler at cm@leftup{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5cm\put(-5,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\put(0,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5cm\put(-5,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@leftup@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at cm@leftup@{#1}}}
@@ -578,29 +577,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(-1,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(0,1){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(-2,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(0,1){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(-4,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(0,1){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(-8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,1){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(-8,0){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(0,1){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(-16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,1){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(-1,0){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(-16,0){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(0,1){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(-1,0){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-16,\fgruler at lentounit{\fgruler at sep})(-16,0){\@tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
+\multiput(-16,\fgruler at sep)(-16,0){\fgruler at tempdima}{\makebox(0,0)[b]{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}
 
 \def\fgruler at in@leftup@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{\fgruler at width})(-\fgruler at lentounit{#1},0)%
+\begin{picture}(#1,\fgruler at width)(-#1,0)%
 \fgruler at in@leftup{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(0,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
-\ifdim#1>.5in\put(-8,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
+\put(0,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\thefgrulernum}}%
+\ifdim#1>.5in\put(-8,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@leftup@@#1{\leavevmode\hbox{}\lower\fgruler at width\hbox{\fgruler at in@leftup@{#1}}}
@@ -611,23 +610,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(1,0){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(1,0){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(1,0){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(1,0){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(0,-10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,-1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,-10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,-1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(\fgruler at lentounit{\fgruler at sep},-10)(0,-10){\@tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(\fgruler at sep,-10)(0,-10){\fgruler at tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at cm@downright@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(0,-\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)(0,-#1)%
 \fgruler at cm@downright{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5cm\put(\fgruler at lentounit{\fgruler at sep},-5){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
+\put(\fgruler at sep,0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5cm\put(\fgruler at sep,-5){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@downright@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at cm@downright@{#1}}}
@@ -638,29 +637,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(1,0){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(1,0){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(1,0){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(0,-8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(1,0){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(0,-16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,-1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,-16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,-1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(\fgruler at lentounit{\fgruler at sep},-16)(0,-16){\@tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(\fgruler at sep,-16)(0,-16){\fgruler at tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at in@downright@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(0,-\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)(0,-#1)%
 \fgruler at in@downright{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5in\put(\fgruler at lentounit{\fgruler at sep},-8){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@in}}}\fi%
+\put(\fgruler at sep,0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5in\put(\fgruler at sep,-8){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@in}}}\fi%
 \end{picture}}
 
 \def\fgruler at in@downright@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at in@downright@{#1}}}
@@ -671,23 +670,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(-1,0){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(-1,0){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(-1,0){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(-1,0){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(0,-10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(-1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,-1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,-10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(-1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,-1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-\fgruler at lentounit{\fgruler at sep},-10)(0,-10){\@tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(-\fgruler at sep,-10)(0,-10){\fgruler at tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at cm@downleft@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(-\fgruler at lentounit{\fgruler at width},-\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)(-\fgruler at width,-#1)%
 \fgruler at cm@downleft{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(-\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5cm\put(-\fgruler at lentounit{\fgruler at sep},-5){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
+\put(-\fgruler at sep,0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5cm\put(-\fgruler at sep,-5){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@downleft@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at cm@downleft@{#1}}}
@@ -698,29 +697,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,-1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(-1,0){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(-1,0){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(0,-4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(-1,0){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,-8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(0,-8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(-1,0){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(0,-16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(-1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,-1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,-16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(-1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,-1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-\fgruler at lentounit{\fgruler at sep},-16)(0,-16){\@tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(-\fgruler at sep,-16)(0,-16){\fgruler at tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at in@downleft@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(-\fgruler at lentounit{\fgruler at width},-\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)(-\fgruler at width,-#1)%
 \fgruler at in@downleft{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(-\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5in\put(-\fgruler at lentounit{\fgruler at sep},-8){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@in}}}\fi%
+\put(-\fgruler at sep,0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5in\put(-\fgruler at sep,-8){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@in}}}\fi%
 \end{picture}}
 
 \def\fgruler at in@downleft@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at in@downleft@{#1}}}
@@ -731,23 +730,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(1,0){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(1,0){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(1,0){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(1,0){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(0,10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(\fgruler at lentounit{\fgruler at sep},10)(0,10){\@tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(\fgruler at sep,10)(0,10){\fgruler at tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at cm@upright@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)%
 \fgruler at cm@upright{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5cm\put(\fgruler at lentounit{\fgruler at sep},5){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
+\put(\fgruler at sep,0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5cm\put(\fgruler at sep,5){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@upright@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at cm@upright@{#1}}}
@@ -758,29 +757,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(1,0){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(1,0){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(0,4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(1,0){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(1,0){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(0,8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(1,0){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(0,16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(\fgruler at lentounit{\fgruler at sep},16)(0,16){\@tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(\fgruler at sep,16)(0,16){\fgruler at tempdima}{\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at in@upright@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})%
+\begin{picture}(\fgruler at width,#1)%
 \fgruler at in@upright{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5in\put(\fgruler at lentounit{\fgruler at sep},8){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@in}}}\fi%
+\put(\fgruler at sep,0){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5in\put(\fgruler at sep,8){\makebox(0,0)[l]{\fgruler at rotatebox{90}{\fgruler at font@\fgruler at caption@in}}}\fi%
 \end{picture}}
 
 \def\fgruler at in@upright@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at in@upright@{#1}}}
@@ -791,23 +790,23 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(-1,0){\fgruler at lentounit{\fgruler at cm@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifnot@divisible at five{\fgruler at cm@thick at i\fgruler at cm@color at i\line(-1,0){\fgruler at cm@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{5}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(-1,0){\fgruler at lentounit{\fgruler at cm@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,5){\@tempcnta}{\fgruler at ifodd{\fgruler at cm@thick at ii\fgruler at cm@color at ii\line(-1,0){\fgruler at cm@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{10}%
-\multiput(0,0)(0,10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(-1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,10){\@tempcnta}{\fgruler at cm@thick at iii\fgruler at cm@color at iii\line(-1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-\fgruler at lentounit{\fgruler at sep},10)(0,10){\@tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(-\fgruler at sep,10)(0,10){\fgruler at tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at cm@upleft@#1{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(-\fgruler at lentounit{\fgruler at width},0)%
+\begin{picture}(\fgruler at width,#1)(-\fgruler at width,0)%
 \fgruler at cm@upleft{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(-\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5cm\put(-\fgruler at lentounit{\fgruler at sep},5){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
+\put(-\fgruler at sep,0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5cm\put(-\fgruler at sep,5){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@cm}}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@upleft@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at cm@upleft@{#1}}}
@@ -818,29 +817,29 @@
 \fgruler at markthickness%
 \fgruler at div{#1}{1}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at i\fgruler at marklth}}}}%
+\multiput(0,0)(0,1){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at i\fgruler at in@color at i\line(-1,0){\fgruler at in@ratio at i\fgruler at marklth}}}%
 \fgruler at div{#1}{2}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at ii\fgruler at marklth}}}}%
+\multiput(0,0)(0,2){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at ii\fgruler at in@color at ii\line(-1,0){\fgruler at in@ratio at ii\fgruler at marklth}}}%
 \fgruler at div{#1}{4}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at iii\fgruler at marklth}}}}%
+\multiput(0,0)(0,4){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iii\fgruler at in@color at iii\line(-1,0){\fgruler at in@ratio at iii\fgruler at marklth}}}%
 \fgruler at div{#1}{8}%
 \setcounter{fgrulernum}{0}%
-\multiput(0,0)(0,8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(-1,0){\fgruler at lentounit{\fgruler at in@ratio at iv\fgruler at marklth}}}}%
+\multiput(0,0)(0,8){\@tempcnta}{\fgruler at ifodd{\fgruler at in@thick at iv\fgruler at in@color at iv\line(-1,0){\fgruler at in@ratio at iv\fgruler at marklth}}}%
 \fgruler at div{#1}{16}%
-\multiput(0,0)(0,16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(-1,0){\fgruler at lentounit{\fgruler at marklth}}}%
-\iffgruler at borderline\put(0,0){\line(0,1){\fgruler at lentounit{#1}}}\fi%
+\multiput(0,0)(0,16){\@tempcnta}{\fgruler at in@thick at v\fgruler at in@color at v\line(-1,0){\fgruler at marklth}}%
+\iffgruler at borderline\put(0,0){\line(0,1){#1}}\fi%
 \setcounter{fgrulernum}{\fgruler at startnum}\stepcounter{fgrulernum}%
-\multiput(-\fgruler at lentounit{\fgruler at sep},16)(0,16){\@tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
+\multiput(-\fgruler at sep,16)(0,16){\fgruler at tempdima}{\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum\stepcounter{fgrulernum}}}}}
 
 \def\fgruler at in@upleft@#1{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{\fgruler at width},\fgruler at lentounit{#1})(-\fgruler at lentounit{\fgruler at width},0)%
+\begin{picture}(\fgruler at width,#1)(-\fgruler at width,0)%
 \fgruler at in@upleft{#1}%
 \setcounter{fgrulernum}{\fgruler at startnum}%
-\put(-\fgruler at lentounit{\fgruler at sep},0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
-\ifdim#1>.5in\put(-\fgruler at lentounit{\fgruler at sep},8){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@in}}}\fi%
+\put(-\fgruler at sep,0){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\thefgrulernum}}}%
+\ifdim#1>.5in\put(-\fgruler at sep,8){\makebox(0,0)[r]{\fgruler at rotatebox{-90}{\fgruler at font@\fgruler at caption@in}}}\fi%
 \end{picture}}
 
 \def\fgruler at in@upleft@@#1{\leavevmode\hbox{}\lower#1\hbox{\fgruler at in@upleft@{#1}}}
@@ -848,10 +847,10 @@
 %% UPPERLEFT CM
 \def\fgruler at cm@upperleft@#1#2{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(0,-\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)(0,-#2)%
 \fgruler at cm@rightdown{#1}%
 \fgruler at cm@downright{#2}%
-\ifdim#1>.5cm\put(5,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\ifdim#1>.5cm\put(5,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@upperleft@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at cm@upperleft@{#1}{#2}}}
@@ -863,7 +862,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(\fgruler at lentounit{#1},0){%
+\AtPageLowerLeft{\put(#1,0){%
 \fgruler at cm@upperleft@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -872,10 +871,10 @@
 %% UPPERLEFT IN
 \def\fgruler at in@upperleft@#1#2{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(0,-\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)(0,-#2)%
 \fgruler at in@rightdown{#1}%
 \fgruler at in@downright{#2}%
-\ifdim#1>.5in\put(8,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
+\ifdim#1>.5in\put(8,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@upperleft@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at in@upperleft@{#1}{#2}}}
@@ -887,7 +886,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(\fgruler at lentounit{#1},0){%
+\AtPageLowerLeft{\put(#1,0){%
 \fgruler at in@upperleft@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -896,10 +895,10 @@
 %% UPPERRIGHT CM
 \def\fgruler at cm@upperright@#1#2{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(-\fgruler at lentounit{#1},-\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)(-#1,-#2)%
 \fgruler at cm@leftdown{#1}%
 \fgruler at cm@downleft{#2}%
-\ifdim#1>.5cm\put(-5,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\ifdim#1>.5cm\put(-5,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@upperright@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at cm@upperright@{#1}{#2}}}
@@ -919,10 +918,10 @@
 %% UPPERRIGHT IN
 \def\fgruler at in@upperright@#1#2{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(-\fgruler at lentounit{#1},-\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)(-#1,-#2)%
 \fgruler at in@leftdown{#1}%
 \fgruler at in@downleft{#2}%
-\ifdim#1>.5in\put(-8,-\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
+\ifdim#1>.5in\put(-8,-\fgruler at sep){\makebox(0,0)[t]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@upperright@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at in@upperright@{#1}{#2}}}
@@ -942,10 +941,10 @@
 %% LOWERLEFT CM
 \def\fgruler at cm@lowerleft@#1#2{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)%
 \fgruler at cm@rightup{#1}%
 \fgruler at cm@upright{#2}%
-\ifdim#1>.5cm\put(5,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\ifdim#1>.5cm\put(5,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@lowerleft@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at cm@lowerleft@{#1}{#2}}}
@@ -957,7 +956,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(\fgruler at lentounit{#1},\fgruler at lentounit{#2}){%
+\AtPageLowerLeft{\put(#1,#2){%
 \fgruler at cm@lowerleft@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -966,10 +965,10 @@
 %% LOWERLEFT IN
 \def\fgruler at in@lowerleft@#1#2{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})%
+\begin{picture}(#1,#2)%
 \fgruler at in@rightup{#1}%
 \fgruler at in@upright{#2}%
-\ifdim#1>.5in\put(8,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
+\ifdim#1>.5in\put(8,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@lowerleft@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at in@lowerleft@{#1}{#2}}}
@@ -981,7 +980,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(\fgruler at lentounit{#1},\fgruler at lentounit{#2}){%
+\AtPageLowerLeft{\put(#1,#2){%
 \fgruler at in@lowerleft@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -990,10 +989,10 @@
 %% LOWERRIGHT CM
 \def\fgruler at cm@lowerright@#1#2{%
 \setlength{\unitlength}{1mm}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(-\fgruler at lentounit{#1},0)%
+\begin{picture}(#1,#2)(-#1,0)%
 \fgruler at cm@leftup{#1}%
 \fgruler at cm@upleft{#2}%
-\ifdim#1>.5cm\put(-5,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
+\ifdim#1>.5cm\put(-5,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@cm}}\fi%
 \end{picture}}
 
 \def\fgruler at cm@lowerright@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at cm@lowerright@{#1}{#2}}}
@@ -1005,7 +1004,7 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(0,\fgruler at lentounit{#2}){%
+\AtPageLowerLeft{\put(0,#2){%
 \fgruler at cm@lowerright@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
@@ -1014,10 +1013,10 @@
 %% LOWERRIGHT IN
 \def\fgruler at in@lowerright@#1#2{%
 \setlength{\unitlength}{.0625in}%
-\begin{picture}(\fgruler at lentounit{#1},\fgruler at lentounit{#2})(-\fgruler at lentounit{#1},0)%
+\begin{picture}(#1,#2)(-#1,0)%
 \fgruler at in@leftup{#1}%
 \fgruler at in@upleft{#2}%
-\ifdim#1>.5in\put(-8,\fgruler at lentounit{\fgruler at sep}){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
+\ifdim#1>.5in\put(-8,\fgruler at sep){\makebox(0,0)[b]{\fgruler at font@\fgruler at caption@in}}\fi%
 \end{picture}}
 
 \def\fgruler at in@lowerright@@#1#2{\leavevmode\hbox{}\lower#2\hbox{\fgruler at in@lowerright@{#1}{#2}}}
@@ -1029,11 +1028,15 @@
 \setlength{\fgruler at fg@height}{\paperheight}%
 \addtolength{\fgruler at fg@height}{-#2}%
 \fgruler at fgsetting%
-\AtPageLowerLeft{\put(0,\fgruler at lentounit{#2}){%
+\AtPageLowerLeft{\put(0,#2){%
 \fgruler at in@lowerright@{\fgruler at fg@width}{\fgruler at fg@height}}}%
 \endgroup}
 
 \def\fgruler at in@lowerright at fg{\fgruler at in@lowerright at fg@{\fgruler at hshift}{\fgruler at vshift}}
+
+%% USER
+\def\fgruler at cm@user at fg{}
+\def\fgruler at in@user at fg{}
 \endinput
 %%
 %% End of file `fgruler.sty'.



More information about the tex-live-commits mailing list.