
\font\tenss=csss10
\font\sevenss=csss7
\font\tenrm=csr10
\font\sevenrm=csr7
\font\tenti=csti10
\font\seventi=csti7
\font\tenmi=cmmi10
%\font\tengr=gr10

\font\tengr    gr10 scaled 975
\font\sevengr  gr7  scaled 975
\font\fivegr   gr5  scaled 975

\font\tenve=ugrot at 10pt
\font\eightve=ugrot at 8pt
\font\sixve=ugrot at 6pt
\newfam\vefam
\textfont\vefam=\tenve \scriptfont\vefam=\eightve \scriptscriptfont\vefam=\sixve
\def\ve{\fam\vefam\tenve}

\newfam\tifam
\textfont\tifam=\tenti \scriptfont\tifam=\seventi
\def\ti{\fam\tifam\tenti}

\newfam\ssfam
\textfont\ssfam=\tenss \scriptfont\ssfam=\sevenss
\def\ss{\fam\ssfam\tenss}

\def\spic#1{#1}
\def\subfig#1{\spic{#1}}
\def\vpic#1{{\ve #1}}
\def\opic#1{{\tenmi #1}}
%\def\tpic#1{{\ss #1}}
\def\tpic#1{{\rm #1}}
%\def\ppic#1{{\ti #1}}
\def\ppic#1{{\tenmi #1}}
\def\cpic#1{{\rm #1}}
%\def\footnotesizetpic#1{{\sevenss #1}}
\def\footnotesizetpic#1{{\sevenrm #1}}

\def\mugr{\mathchoice{\hbox{\tengr m}}{\hbox{\tengr m}}{\hbox{\sevengr m}}{\hbox{\fivegr m}}}
\def\pigr{\mathchoice{\hbox{\tengr p}}{\hbox{\tengr p}}{\hbox{\sevengr p}}{\hbox{\fivegr p}}}

\def\,{\ifmmode\mskip\thinmuskip\else\thinspace\fi}

\def\myrho{\varrho}
\def\mytheta{\vartheta}
\def\myphi{\varphi}

\def\celsius{\,^\circ{\rm C}}

\def\frac#1#2{{#1\over#2}}
\def\frc#1#2{%
  \mathchoice{%
    {\textstyle\mathstrut#1\over\textstyle\mathstrut#2}}%
    {{\textstyle\mathstrut#1\over\textstyle\mathstrut#2}}%
    {{\scriptstyle\mathstrut#1\over\scriptstyle\mathstrut#2}}%
    {{\mathstrut#1\over\mathstrut#2}%
  }%
}

