%-------------------------------------------------------------------
% Declare new font families PLATAN + Euler (Type 1)
% PLATAN - text fonts, Euler - math fonts
% %-----------------------------------------------------------------
\def\P{pt}% %%
\font\tenrm=QPLR at10\P \font\ninerm=QPLR at9\P \font\eightrm=QPLR at8\P
\font\sevenrm=QPLR at8\P \font\sixrm=QPLR at6\P
\font\tenit=QPLRI at10\P \font\nineit=QPLRI at9\P
\font\eightit=QPLRI at8\P
\font\tensy=CMSY10 \font\ninesy=CMSY9 \font\eightsy=CMSY8
\font\sevensy=CMSY7\font\sixsy=CMSY6  \font\tenex = CMEX10
\font\tenbf=QPLB at10\P \font\ninebf=QPLB at9\P
\font\eightbf=QPLB at8\P \font\sevenbf=QPLB at 8\P
\font\sixbf=QPLB at 8\P
%%
\font\teni=EURM10 at10\P \skewchar\teni='177
\font\ninei=EURM10 at9\P \skewchar\ninei='177
\font\eighti=EURM10 at8\P \skewchar\eighti='177
\font\seveni=EURM10 at7\P \skewchar\seveni='177
\font\sixi=EURM10 at6\P \skewchar\sixi='177
\font\fivei=EURM10 at5\P \skewchar\fivei='177

\font\teneuex=EUEX10 \font\nineeuex=EUEX10 at9\P
\font\eighteuex=EUEX10 at8\P

\font\teneufm=EUFM10 at10\P  \font\nineeufm=EUFM10 at9\P
\font\eighteufm=EUFM10 at8\P  \font\seveneufm=EUFM10 at7\P
\font\sixeufm=EUFM10 at6\P  \font\fiveeufm=EUFM10 at5\P

% -------------------------------------------------------------------

\catcode`@=11 % borrow the private macros of PLAIN (with care)
\def\hexnumber@#1{\ifcase#1 \z@
 \or \@ne \or \tw@ \or \thr@@
 \or 4\or 5\or 6\or 7\or 8\or
 9\or A\or B\or C\or D\or E\or F\fi}

\newfam\eufm \newfam\euex

\edef\@tempa{\hexnumber@\euex}
\mathcode`\{="4\@tempa 66
\mathcode`\}="5\@tempa 67

\mathchardef\infty="0\@tempa 31
\mathchardef\ointop="1\@tempa 48 \def\oint{\ointop\nolimits}
\mathchardef\intop="1\@tempa 52 \def\int{\intop\nolimits}
\mathchardef\sum="1\@tempa 50
\mathchardef\prod="1\@tempa 51
\mathchardef\coprod="1\@tempa 60

\mathchardef\braceld="\@tempa 7A \mathchardef\bracerd="\@tempa 7B
\mathchardef\bracelu="\@tempa 7C \mathchardef\braceru="\@tempa 7D

\mathchardef\nearrow="3\@tempa 25
\mathchardef\searrow="3\@tempa 26
\mathchardef\nwarrow="3\@tempa 2D
\mathchardef\swarrow="3\@tempa 2E

\mathchardef\leftarrow="3\@tempa 20 \let\gets=\leftarrow
\mathchardef\rightarrow="3\@tempa 21 \let\to=\rightarrow
\mathchardef\leftrightarrow="3\@tempa 24
\mathchardef\Leftarrow="3\@tempa 28
\mathchardef\Rightarrow="3\@tempa 29
\mathchardef\Leftrightarrow="3\@tempa 2C

\mathchardef\leftharpoonup="3\@tempa 18
\mathchardef\leftharpoondown="3\@tempa 19
\mathchardef\rightharpoonup="3\@tempa 1A
\mathchardef\rightharpoondown="3\@tempa 1B

\edef\lgroup{\delimiter"4000\@tempa 3A } % extensible ( with sharper tips
\edef\rgroup{\delimiter"5000\@tempa 3B } % extensible ) with sharper tips
\edef\arrowvert{\delimiter"\@tempa 3C000 } % arrow without arrowheads
\edef\Arrowvert{\delimiter"\@tempa 3D000 } % double arrow without arrowheads
\edef\bracevert{\delimiter"\@tempa 3E000 } % the vertical bar that extends
%braces
\edef\rbrace{\delimiter"5267\@tempa 09 } \let\}=\rbrace
\edef\lbrace{\delimiter"4266\@tempa 08 } \let\{=\lbrace

\edef\uparrow{\delimiter"3\@tempa 22378 }
\edef\downarrow{\delimiter"3\@tempa 23379 }
\edef\Uparrow{\delimiter"3\@tempa 2A37E }
\edef\Downarrow{\delimiter"3\@tempa 2B37F }
\edef\updownarrow{\delimiter"3\@tempa 6C33F }
\edef\Updownarrow{\delimiter"3\@tempa 6D377 }

\let\leq=\xleq \let\xgeq=\geq %% polish |\leq| |\geq|

\edef\@tempa{\hexnumber@\eufm}
\mathcode`\(="4\@tempa 28
\mathcode`\)="4\@tempa 29
\mathcode`\[="4\@tempa 5B
\mathcode`\]="5\@tempa 5D
\delcode`\(="\@tempa 28300
\delcode`\)="\@tempa 29301
\delcode`\[="\@tempa 5B302
\delcode`\]="\@tempa 5D303

\mathcode`\0="7130
\mathcode`\1="7131
\mathcode`\2="7132
\mathcode`\3="7133
\mathcode`\4="7134
\mathcode`\5="7135
\mathcode`\6="7136
\mathcode`\7="7137
\mathcode`\8="7138
\mathcode`\9="7139

%% bold characters
\mathchardef\alpha="710B
\mathchardef\beta="710C
\mathchardef\gamma="710D
\mathchardef\delta="710E
\mathchardef\epsilon="710F
\mathchardef\zeta="7110
\mathchardef\eta="7111
\mathchardef\theta="7112
\mathchardef\iota="7113
\mathchardef\kappa="7114
\mathchardef\lambda="7115
\mathchardef\mu="7116
\mathchardef\nu="7117
\mathchardef\xi="7118
\mathchardef\pi="7119
\mathchardef\rho="711A
\mathchardef\sigma="711B
\mathchardef\tau="711C
\mathchardef\upsilon="711D
\mathchardef\phi="711E
\mathchardef\chi="711F
\mathchardef\psi="7120
\mathchardef\omega="7121
\mathchardef\varepsilon="7122
\mathchardef\vartheta="7123
\mathchardef\varpi="7124
\mathchardef\varrho="7125
\mathchardef\varsigma="7126
\mathchardef\varphi="7127
%%
\mathchardef\Gamma="7100
\mathchardef\Delta="7101
\mathchardef\Theta="7102
\mathchardef\Lambda="7103
\mathchardef\Xi="7104
\mathchardef\Pi="7105
\mathchardef\Sigma="7106
\mathchardef\Upsilon="7107
\mathchardef\Phi="7108
\mathchardef\Psi="7109
\mathchardef\Omega="710A

\catcode`@=12 %% restore previous value

%
% 8point-----------------------------------------------------------
%
\def\eightpoint{\def\rm{\fam0\eightrm}%
\textfont0\eightrm\scriptfont0=\sixrm\textfont1\eighti\scriptfont1=\sixi
\textfont2\eightsy\scriptfont2=\sixsy%\textfont3\eightex
\textfont\itfam=\eightit%
\def\it{\fam\itfam\eightit}%
\textfont\bffam=\eightbf \scriptfont\bffam=\sixbf%
\def\bf{\fam\bffam\eightbf}%
%%
\textfont\euex=\eighteuex \scriptfont\euex=\eighteuex
\textfont\eufm=\eighteufm \scriptfont\eufm=\sixeufm
%%
\normalbaselineskip=9.85\P%%
\setbox\strutbox=\hbox{\vrule height7.2\P depth 2.6\P width0pt}%
\normalbaselines\rm}
%
%9point-------------------------------------------------------------
%
\def\ninepoint{\def\rm{\fam0\ninerm}%9-point type
\textfont0=\ninerm\scriptfont0=\sixrm\textfont1=\ninei\scriptfont1=\sixi
\textfont2=\ninesy \scriptfont2=\sixsy%\textfont3=\nineex%
\textfont\itfam=\nineit \def\it{\fam\itfam\nineit}%
\textfont\bffam=\ninebf \scriptfont\bffam=\sixbf
\def\bf{\fam\bffam\ninebf}%
%%
\textfont\euex=\nineeuex \scriptfont\euex=\nineeuex
\textfont\eufm=\nineeufm \scriptfont\eufm=\seveneufm
%%
\normalbaselineskip=11.15\P%
\setbox\strutbox=\hbox{\vrule height8.25\P depth3\P width0pt}%
\normalbaselines\rm}
%
%10point------------------------------------------------------------
%
\def\tenpoint{\def\rm{\fam0\tenrm}%10-point type
\textfont0=\tenrm\scriptfont0=\sevenrm\textfont1=\teni\scriptfont1=\seveni
\textfont2=\tensy \scriptfont2=\sevensy\textfont3=\tenex
\textfont\itfam=\tenit\def\it{\fam\itfam\tenit}%
\textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf%
%%
\textfont\euex=\teneuex \scriptfont\euex=\teneuex
\textfont\eufm=\teneufm \scriptfont\eufm=\eighteufm
%%
\def\bf{\fam\bffam\tenbf}%
\normalbaselineskip=12.40\P%
\setbox\strutbox=\hbox{\vrule height8.8\P depth3.6\P width0pt}%
\normalbaselines\rm}
\tenpoint
\endinput
