\setlength{\unitlength}{0.008750in}%
%
\begingroup\makeatletter
% extract first six characters in \fmtname
\def\x#1#2#3#4#5#6#7\relax{\def\x{#1#2#3#4#5#6}}%
\expandafter\x\fmtname xxxxxx\relax \def\y{splain}%
\ifx\x\y   % LaTeX or SliTeX?
\gdef\SetFigFont#1#2#3{%
  \ifnum #1<17\tiny\else \ifnum #1<20\small\else
  \ifnum #1<24\normalsize\else \ifnum #1<29\large\else
  \ifnum #1<34\Large\else \ifnum #1<41\LARGE\else
     \huge\fi\fi\fi\fi\fi\fi
  \csname #3\endcsname}%
\else
\gdef\SetFigFont#1#2#3{\begingroup
  \count@#1\relax \ifnum 25<\count@\count@25\fi
  \def\x{\endgroup\@setsize\SetFigFont{#2pt}}%
  \expandafter\x
    \csname \romannumeral\the\count@ pt\expandafter\endcsname
    \csname @\romannumeral\the\count@ pt\endcsname
  \csname #3\endcsname}%
\fi
\endgroup
\begin{picture}(320,221)(51,560)
\thicklines
\put(100,760){\vector( 1, 0){150}}
\put(250,760){\vector( 1, 0){ 10}}
\put(260,760){\vector( 1, 0){ 60}}
\put(100,760){\vector( 0,-1){120}}
\put(100,640){\vector( 1, 0){150}}
\put(250,640){\vector( 1, 0){ 10}}
\put(260,760){\vector( 0,-1){110}}
\put(260,650){\vector( 0,-1){ 10}}
\put(100,580){\vector( 1, 0){210}}
\put(310,580){\vector( 1, 0){ 10}}
\put(320,760){\vector( 0,-1){170}}
\put(320,590){\vector( 0,-1){ 10}}
\put(260,640){\vector( 1,-1){ 50}}
\multiput(310,590)(0.58824,-0.58824){18}{\makebox(0.6349,0.9524){\SetFigFont{7}{8.4}{rm}.}}
\put(320,580){\vector( 1,-1){0}}
\put(100,640){\vector( 0,-1){ 60}}
\put(100,640){\vector( 0,-1){ 50}}
\put(180,770){\makebox(0,0)[b]{\smash{\SetFigFont{8}{9.6}{rm}$P^*$}}}
\put( 70,700){\makebox(0,0)[b]{\smash{\SetFigFont{8}{9.6}{rm}$P_1$}}}
\put(180,650){\makebox(0,0)[b]{\smash{\SetFigFont{8}{9.6}{rm}$Q_1$}}}
\put(350,665){\makebox(0,0)[b]{\smash{\SetFigFont{8}{9.6}{rm}$Q^*/u$}}}
\put(280,700){\makebox(0,0)[b]{\smash{\SetFigFont{8}{9.6}{rm}$Q^*$}}}
\put( 70,610){\makebox(0,0)[b]{\smash{\SetFigFont{8}{9.6}{rm}$F'_R$}}}
\put(290,620){\makebox(0,0)[b]{\smash{\SetFigFont{8}{9.6}{rm}$F_R$}}}
\put(290,770){\makebox(0,0)[b]{\smash{\SetFigFont{8}{9.6}{rm}$u$}}}
\put(200,560){\makebox(0,0)[b]{\smash{\SetFigFont{8}{9.6}{rm}$Q_1/F'_R$}}}
\end{picture}
