%--------------------------------------------------------------------------
%                    [Ugo's]MYPHYX.TEX
%
%	Modifications to PHYZZX to make it UW specific
% 		-includes: a new memo header
%			   a new letter head (HEP, not Department)
%			   a UW HEP publication number
%
%	And also Bob March specific:
%		-includes: \elevenpoint type font
%			   \blank and \bll macros to put underlined
%			    blanks in  exam texts
%
%---------------------------------------------------------------------------
%
%
% Miscellaneous stuff
%
%
\catcode`@=11	%This allows me to modify PLAIN and PHYZZX macros
\showboxbreadth=1000 %
\showboxdepth=5
%
%
% Font definitions
%
%
\font\tenss=cmss10
\font\tenssbx=cmssbx10
\font\twelvessbx=cmssbx10 scaled \magstep2
\font\fortssbx=cmssbx10 scaled \magstep2
\font\dunhill=cmdunh10 scaled \magstep2
\font\tenssi=cmssi10
\font\littless=cmssq8
\font\ss=cmss10
\font\bfss=cmssbx10
\font\fourteenss=cmss10 scaled \magstep2
\font\fourteenss=cmss10 scaled \magstep1
\font\fortssbx=cmssbx10 scaled \magstep2
\font\llogo=uwlogo scaled \magstep0
%
% Define an eleven-point font
%
\font\elevenrm=cmr10 scaled\magstephalf
\font\elevenbf=cmbx10 scaled\magstephalf
\font\eleveni=cmmi10 scaled\magstephalf     \skewchar\eleveni='177
\font\elevensy=cmsy10 scaled\magstephalf    \skewchar\elevensy='60
\font\elevenex=cmex10 scaled\magstephalf
\font\elevensl=cmsl10 scaled\magstephalf
\font\elevenit=cmti10 scaled\magstephalf
\font\eleventt=cmtt10 scaled\magstephalf
\font\elevencp=cmcsc10 scaled\magstephalf
%
\def\elevenpoint{\relax
    \textfont0=\elevenrm          \scriptfont0=\ninerm
    \scriptscriptfont0=\sixrm
     \def\rm{\fam0 \elevenrm \f@ntkey=0 }\relax
    \textfont1=\eleveni           \scriptfont1=\ninei
    \scriptscriptfont1=\sixi
     \def\oldstyle{\fam1 \eleveni\f@ntkey=1 }\relax
    \textfont2=\elevensy          \scriptfont2=\ninesy
    \scriptscriptfont2=\sixsy
    \textfont3=\elevenex          \scriptfont3=\elevenex
    \scriptscriptfont3=\tenex
    \def\it{\fam\itfam \elevenit \f@ntkey=4 }\textfont\itfam=\elevenit
    \def\sl{\fam\slfam \elevensl \f@ntkey=5 }\textfont\slfam=\elevensl
    \scriptfont\slfam=\ninesl
    \def\bf{\fam\bffam \elevenbf \f@ntkey=6 }\textfont\bffam=\elevenbf
    \scriptfont\bffam=\ninebf     \scriptscriptfont\bffam=\sixbf
    \def\tt{\fam\ttfam \eleventt \f@ntkey=7 }\textfont\ttfam=\eleventt
    \def\caps{\fam\cpfam \elevencp \f@ntkey=8 }\textfont\cpfam=\elevencp
    \setbox\strutbox=\hbox{\vrule height 9.5pt depth 3.5pt width\z@}
    \samef@nt}
%         Modifications to suit my personal taste
%         ---------------------------------------
%
\Pubnum={$\caps WISC - EX - 88 - \the\pubnum $}
%
%
% Make the journal macro PHYS REV compatible
\def\journal#1&#2,#3(#4){\unskip, \sl #1~\bf #2,\rm  #3 (19#4)}
%
%
% Define a macro for putting underlined blanks in running text
%	Argument is length in cm, i.e. "\blank 1" produces
%	a 1 cm underlined blank, "blank {2.5}" gives a 2.5 cm blank
%
    \def\blank#1{\underbar{\hskip #1cm}}
%
% An even more personal one for multiple-choice questions (1 cm blank at left)
%
    \def\bll{\itemitem{\blank 1}}
\catcode`@=12	
% at signs are no longer letter, making mistakes more difficult
\newbox\ustrutbox
\setbox\ustrutbox=\hbox{\vrule height20pt depth10pt width0.0pt}
\def\ustrut{\relax\ifmmode\copy\strutbox\else\unhcopy\strutbox\fi}
%
% Make a box around text
%
\def\boxit#1{\vbox{\hrule\hbox{\strut\vrule\kern6pt
\vbox{\kern6pt#1\kern6pt}\kern6pt\vrule}\hrule}}
%
% 
% definitions for decays
\def\decay#1{\hbox{\kern#1em\raise1.2ex\hbox{$\vert$}\kern-.2em 
  $\longrightarrow\;$}}
%     
%                                                               
\def\decaylow#1{\hbox{\kern#1em\raise3.5ex\hbox{$\Biggm|$}\kern-.275em
  $\longrightarrow\;$}}
%
%
\def\decaylower#1{\hbox{\kern#1em\raise7.5ex\hbox{$\Biggm|$}\kern-.3em
  $\longrightarrow\;$}}
%
%
\def\answer #1{\moveright 8.5cm \vbox{$#1 =$\ \vbox{\hrule width 4cm}}}
\def\banswer #1{
\hskip 8.5cm
\boxit{\vbox
{\hbox{\hsize 7cm{\ \ }}}
\vskip 1pt
{\hbox{\hsize 7cm{$#1 = $ \vbox{\hrule width 5cm}}}}
\vskip 1pt
{\hbox{\hsize 7cm{\ \ }}}}}
%

\parindent=.8cm
\font\ssfa=cmr10
\font\ssfb=cmr10 scaled\magstep1
\font\ssfc=cmr10 scaled\magstep2

\def\NAME1{
\ssfc
\hskip 2.0cm\boxit{\vbox
{\hbox{\hsize 15cm{\ \ }}}
\vskip 3pt
{\hbox{\hsize 15cm{\ \ \ \ \ \ \ NAME: \vbox{\hrule width 10cm}}}}
\vskip 0.5cm}}

%

\def\MAME{
\ssfc
\boxit{\vbox
{\hbox{\hsize 15cm{\ \ }}}
\vskip 3pt
{\hbox{\hsize 15cm{\ \ \ \ \ \ \ NAME: \vbox{\hrule width 10cm}}}}
\vskip 3pt
{\hbox{\hsize 15cm{  \ TA NAME: \vbox{\hrule width 10cm}}}}
\vskip 3pt
{\hbox{\hsize 15cm{DISC SECT: \vbox{\hrule width 10cm}}}}
\vskip 0.5cm}}
%
%
\def\topnums{\headline={\ifnum\pageno<2 \hfil \else \hss\number\pageno\hss
\fi}}
%
%
