% [macros.mac]
% CONTENTS OF THE THREE *.MAC FILES
% [format.mac] shortcuts for horizontal and vertical spacings (\th,\mni), special symbols (\club)
% [macros.mac] boxes, time stamp, fractions
% [fonts.mac] fonts
%
% %%%%%%%%%%%%%%%%%%%% THICKNESS OF RULES %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% THICKNESS CAN CHANGE
\newdimen\hruledefaultheight \hruledefaultheight = 1.1pt
\newdimen\hruledefaultdepth \hruledefaultdepth = 0.0pt
\newdimen\vruledefaultwidth \vruledefaultwidth = 1.1pt
\def\ehrule{\hrule height\hruledefaultheight depth\hruledefaultdepth}%
\def\evrule{\vrule width\vruledefaultwidth}%
% %%%%%%%%%%%%%%%%%%%% BOXING MACROS%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%
% % DEF \BOXIT CAN CHANGE SPACE AROUND||
% MACRO: \boxit, taken from the TeXbook, trivially generalized to allow
% something other than 3pt around the TeX box being boxed.
%
\newdimen\boxitspace \boxitspace = 8pt %13pt too much % WAS 3PT,
\long\def\boxit#1{% % DEF \BOXIT
\vbox{%
\ehrule
\hbox{%
\evrule
\kern\boxitspace
\vbox{\kern\boxitspace \parindent = 0pt #1\kern\boxitspace}%
\kern\boxitspace
\evrule
}%
\ehrule
}%
}%
% MACRO: my_boxD, based on \boxit withspace = 8pt, line thickness 1.1pt
%
\def\my_boxD#1{ % start defn
$$\hbox{
\boxit{\hbox{\bf #1}}
} $$ % end hbox with $$
} % end of def
% TEST EXAMPLE
%\my_boxD{this is my\_boxD using the built-in macro with 13pt around, 1.1pt line thickness}
% MACRO: \info_box, uses \info_box#1 and \my_box
%
\def\info_box#1{
\my_boxD{\bolditalicstwelve #1} % I took out See the sheet, inflexible
} % end of def %
% %%%%%%%%%%%%%%%%%%%% PRINTDATE %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% MACRO: for printing the date on preliminary versions
\def\printdate{
%
\count255 = \year
\count254 = \month
\count253 = \day
%
\count252 =\time % from midnight
\count251 = \count252 % copy: from midnight
\divide \count252 by 60 % integer hours from midnight
\count250 = \count252 % print: integer hours from midnight
\count249 = \count252 % use to multiply by 60
\multiply\count249 by 60 % whole hour minutes from midnight
\advance\count251 by -\count249
\count249 = \count251 % print: integer minutes after hour
{\tt This text was printed:\quad
%
DATE:\hskip 1.5pt \number\count255.\number\count254.\number\count253\quad
%
TIME:\hskip 1.5pt \number\count250:\hskip 1.5pt \number\count249
\vskip 1truecm
} % end \tt
} % end \def
% END OF \printd
% %%%%%%%%%%%%%%%%%%%% MACROS FOR FRACTIONS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% macro 1: \fract. This produces true fractions by typing: \fract{a/b}
% for complicated fractions use {}: \fraction {group1} {group2}
\def\fract #1/#2{$#1\over #2$}
%
% macro 2: produce slashed fractions by typing:
% FR + F# = {\frac a/b}. NO GOOD FOR letters. use FRI
% (italic)
% for complicated use \fraction {group1} {group2}
% this is from page 294 \frac #1/#2 "1/2" doesn't quite look
% right.
% note how type in / because want print ! not clear
%\def\frac#1 #2 %why do you need /??
% I am sure [think] that it is to make things stand out; see
% macro #1
%
% see sect-10; doesn't work well with ( ) too much space
% may need negative space
\def\frac#1/#2{\leavevmode
\kern-.15em \lower .25ex \hbox{\the\scriptfont0 #2}
}%
%
%