%%%
%%%  File: mfpic.tex
%%%  Version:  0.25
%%%
%%%  Principal Author:  Thomas Leathrum
%%%  Assistants:  Bryan Green, Geoffrey Tobin
%%%

% preliminary version of macros
% save catcode, as Michael Downes of AMS recommends.
\chardef\oldatcatcode=\catcode`@
\catcode`@=11 % letter
\def\@wout{\immediate\write16\relax}
\@wout {}
\@wout
 {mfpic version 0.25 - 19:20 GMT +10:00 Wed 13 Oct 93}
\@wout
 {fixes for TFM, LaTeX (picture), fractions, catcode, sharp.}
\@wout
 {tests for bad label options, mf char codes out of range (0 - 255).}
\@wout
 {localised short-range declarations.}
\@wout {}
% test whether mfpic is used in LaTeX.
\newif\if@inlatex
% idea from _The TeXbook_ (1986), p. 384:
% \@mfundefined must remain undefined.
\ifx\picture\@mfundefined
 \@inlatexfalse
 \@wout {MFPIC: not in latex}
\else
 \@inlatextrue
 \@wout {MFPIC: in latex}
\fi
\@wout {}
% local declarations
\wlog {MFPIC: local declarations}
\newwrite\@outx
\newbox\@labeledgraph
\newdimen\@graphwd
\newcount\@code
% dimension parameters
\wlog {}
\wlog {MFPIC: dimension parameters}
\newdimen\mfpicunit
\newdimen\pointsize
\newdimen\shadespace
\newdimen\headlen
\newdimen\axisheadlen
\newdimen\hashlen
\newdimen\dashlen
\newdimen\dashspace
% default dimension settings
\mfpicunit=1pt
\pointsize=2pt
\shadespace=1pt
\headlen=3pt
\axisheadlen=5pt
\hashlen=4pt
\dashlen=4pt
\dashspace=4pt
% standard setting macros
\def\darkershade{%
 \multiply\shadespace by 5
 \divide\shadespace by 6}
\def\lightershade{%
 \multiply\shadespace by 6
 \divide\shadespace by 5}
\def\dashlineset{%
 \dashlen=4pt
 \dashspace=4pt}
\def\dotlineset{%
 \dashlen=1pt
 \dashspace=2pt}
% direct output to Metafont file
% only valid b/w \open- and \close- graphsfile.
\def\mfcmd#1{%
 \immediate\write\@outx{#1}}
% pen size setting
\def\@pickup{%
 \mfcmd{pickup pencircle scaled penwd;}}
\def\pen#1{%
 \mfcmd{interim penwd:=#1;}
 \@pickup}
% arrowhead shape setting
\def\headshape#1#2{%
 \mfcmd{interim hdwdr:=#1;
        interim hdten:=#2;}}
% open and close file
\def\opengraphsfile#1%
{%
 \@code33 % first graphic is `!'
 \immediate\openout\@outx=#1.mf
 \batchmode
 \font\@graph=#1
 \errorstopmode
 \immediate\write16 {}
 \ifx\@graph\nullfont
   \font\@graph=dummy
   \immediate\write16
     {MFPIC: ** Graphic's TFM file #1.tfm not found. **}
   \immediate\write16
     {MFPIC: ** Process #1.mf! Then reprocess this file. **}
   \immediate\write16
     {MFPIC: `Missing character' messages will log the graphic characters.}
 \else
   \immediate\write16
     {MFPIC: Graphic's TFM file found.}
   \immediate\write16
     {MFPIC: Nevertheless, if PK font's changed, reprocess #1.mf.}
   \immediate\write16
     {MFPIC: If TFM's changed, reprocess #1.mf, and then this TeX file.}
 \fi
 \immediate\write16 {}
 \mfcmd{mag:=\number\mag/1000;}
 \mfcmd{input graphbase.mf;}
 % set global defaults
 \mfcmd{mfpicenv;}
 \headshape{1}{1}
 \pen{0.5 pt}%
}% -- end \opengraphsfile
\def\closegraphsfile
{%
 \mfcmd{}
 \mfcmd{endmfpicenv;}
 \mfcmd{end.}
 \immediate\closeout\@outx
}% -- end \closegraphsfile
% a useful macro not in plain TeX.
\def\mf@gobble#1{}
% for output of #  (c/o Donald Arseneau).
\def\mf@s{\expandafter\mf@gobble\string\#}
% beginning mfpicture environment
\def\@mfpicture#1#2#3#4#5#6{%
 % dimension conversion: ##1 is a dimen.
 \def\@xconv##1{%
   \global\advance ##1 by -#3 \mfpicunit
   \global ##1 = #1 ##1}
 \def\@yconv##1{%
   \global\advance ##1 by -#5 \mfpicunit
   \global ##1 = -#2 ##1}
 % set up TeX
 \global\font\@tcurr=\fontname\font
 \relax
 \bgroup
 \nullfont
 \global\@graphwd = #4 \mfpicunit
 \@xconv\@graphwd
 \global\setbox\@labeledgraph=\vtop
   {\hbox{\@graph\char\@code}}
 % set up Metafont file
 \mfcmd{}
 \mfcmd{unitlen:=\the\mfpicunit\mf@s;}
 \mfcmd{xscale:=#1*unitlen; yscale:=#2*unitlen;
   xneg:=#3; xpos:=#4;
   yneg:=#5; ypos:=#6;}
 \mfcmd{beginchar (\the\@code,
   (xpos-xneg)*xscale,
   (ypos-yneg)*yscale,
   0);}
 \mfcmd{setztr;}
 \@pickup
 % metafont drawing macros
 % points, lines, and arrows
 \def\point##1{%
   \mfcmd{pointd(##1, \the\pointsize);}}
 \def\line##1{%
   \mfcmd{line(##1);}}
 \def\arrow##1{%
   \mfcmd{arrow(##1, \the\headlen);}}
 \def\dottedline##1{%
   \mfcmd{dottedline(##1, \the\dashlen,
     \the\dashspace);}}
 \def\dottedarrow##1{%
   \mfcmd{dottedarrow(##1, \the\dashlen,
     \the\dashspace, \the\headlen);}}
 % axes and axis marks
 \def\axes
   {\mfcmd{axes(\the\axisheadlen);}}
 \def\xmarks##1{%
   \mfcmd{xmarks(\the\hashlen, ##1);}}
 \def\ymarks##1{%
   \mfcmd{ymarks(\the\hashlen, ##1);}}
 % polygons
 \def\rect##1{%
   \mfcmd{rect(##1);}}
 \def\dottedrect##1{%
   \mfcmd{dottedrect(##1,
     \the\dashlen, \the\dashspace);}}
 \def\block##1{%
   \mfcmd{block(##1);}}
 \def\rectshade##1{%
   \mfcmd{rectshade(\the\shadespace, ##1);}}
 \def\polygon##1{%
   \mfcmd{curve(false, true, ##1);}}
 \def\polyshade##1{%
   \mfcmd{cycleshade(\the\shadespace,
     false, ##1);}}
 \def\polyfill##1{%
   \mfcmd{cycleshade(0, false, ##1);}}
 % circles and ellipses
 \def\circle##1{%
   \mfcmd{circle(##1);}}
 \def\ellipse##1{%
   \mfcmd{ellipse(##1, 0);}}
 \def\rotatedellipse##1{%
   \mfcmd{ellipse(##1);}}
 \def\circshade##1{%
   \mfcmd{circshade(\the\shadespace, ##1);}}
 \def\ellshade##1{%
   \mfcmd{ellshade(\the\shadespace, ##1, 0);}}
 \def\rotatedellshade##1{%
   \mfcmd{ellshade(\the\shadespace, ##1);}}
 \def\cdisk##1{%
   \mfcmd{circshade(0, ##1);}}
 \def\edisk##1{%
   \mfcmd{ellshade(0, ##1, 0);}}
 \def\rotatededisk##1{%
   \mfcmd{ellshade(0, ##1);}}
 % circular arcs
 \def\arc##1{%
   \mfcmd{arc(##1);}}
 \def\arcarrow##1{%
   \mfcmd{arcarrow(\the\headlen, ##1);}}
 \def\arcshade##1{%
   \mfcmd{arcshade(\the\shadespace, ##1);}}
 \def\arcfill##1{%
   \mfcmd{arcshade(0, ##1);}}
 % polar coordinates
 \def\linedir##1{%
   \mfcmd{linedir(##1);}}
 \def\arrowdir##1{%
   \mfcmd{arrowdir(\the\headlen, ##1);}}
 \def\arcth##1{%
   \mfcmd{arcth(##1);}}
 \def\arctharrow##1{%
   \mfcmd{arctharrow(\the\headlen, ##1);}}
 \def\wedgeshade##1{%
   \mfcmd{wedgeshade(\the\shadespace, ##1);}}
 \def\wedgefill##1{%
   \mfcmd{wedgeshade(0, ##1);}}
 % curves
 \def\curve##1{%
   \mfcmd{curve(true, false, ##1);}}
 \def\polyline##1{%
   \mfcmd{curve(false, false, ##1);}}
 \let\polycurve=\polyline
 \def\curvedarrow##1{%
   \mfcmd{curvedarrow(true,
     \the\headlen, ##1);}}
 \def\polyarrow##1{%
   \mfcmd{curvedarrow(false,
     \the\headlen, ##1);}}
 % cyclic curves
 \def\cyclic##1{%
   \mfcmd{curve(true, true, ##1);}}
 \def\cycleshade##1{%
   \mfcmd{cycleshade(\the\shadespace,
     true, ##1);}}
 \def\cyclefill##1{%
   \mfcmd{cycleshade(0, true, ##1);}}
 % functions
 \def\function##1{%
   \mfcmd{function(true, ##1);}}
 \def\polyfunction##1{%
   \mfcmd{function(false, ##1);}}
 \def\parafcn##1{%
   \mfcmd{parafcn(true, ##1);}}
 \def\polyparafcn##1{%
   \mfcmd{parafcn(false, ##1);}}
 \def\shadefcn##1##2##3{%
   \mfcmd{shadefcn(\the\shadespace, ##1)
     (##2) (##3);}}
 % labels
 \def\@mflabel[##1##2]##3##4##5{%
   % compute width of graph with label
   % and reset size if necessary
   {% local env. for \@btemp.
     \chardef\@btemp=255\relax
     \setbox\@btemp=\hbox{\@tcurr##5}
     {% local env. for \@xtemp.
       \dimendef\@xtemp=0\relax
       \@xtemp = ##3 \mfpicunit
       \@xconv\@xtemp
       \advance\@xtemp by\wd\@btemp
       \ifdim\@xtemp>\@graphwd
         \global\@graphwd=\@xtemp\fi
     }% end local env.
     % set label onto picture
     \global\setbox\@labeledgraph=
     \vtop{\unvbox\@labeledgraph
       \vbox to 0 pt{%
         \if##1t\relax\else
         \if##1c\kern-0.5\ht\@btemp\else
         \if##1b\kern-\ht\@btemp\else
           \immediate\write16 {}
           \immediate\write16
             {MFPIC: label: vertical option `##1' unknown, will treat as `b'}
           \immediate\write16 {}
           \kern-\ht\@btemp
         \fi\fi\fi
         {% local env. for \@ytemp.
           \dimendef\@ytemp=0\relax
           \@ytemp = ##4 \mfpicunit
           \@yconv\@ytemp
           \kern\@ytemp
         }% end local env.
         \hbox{%
           \if##2l\relax\else
           \if##2c\kern-0.5\wd\@btemp\else
           \if##2r\kern-\wd\@btemp\else
             \immediate\write16 {}
             \immediate\write16
               {MFPIC: label: horizontal option `##2' unknown, will treat as `l'}
             \immediate\write16 {}
           \fi\fi\fi
           {% local env. for \@xtemp.
             \dimendef\@xtemp=0\relax
             \@xtemp = ##3 \mfpicunit
             \@xconv\@xtemp
             \kern\@xtemp
           }% end local env.
           \box\@btemp}% -- end \hbox
         \vss}% -- end \vbox
       \nointerlineskip}% -- end \vtop
   }% end local env.
 }% -- end \@mflabel
 \def\@labeldefault{\@mflabel[bl]}
 \def\@dolabel{%
   \if[\@nchr\expandafter\@mflabel
   \else\expandafter\@labeldefault\fi}
 \def\mflabel{\futurelet\@nchr\@dolabel}
 % captions
 % \@docaption is called by \endmfpicture
 \def\@docaption{}
 \def\mfcaption##1{%
   % redefine to set caption
   \def\@docaption{%
     % allow forced line breaks
     \def\\{%
       \global\font\@curr=\fontname\font
       \relax\egroup \hbox\bgroup\@curr}
     % compute adjustments to center
     \chardef\@btemp=255\relax
     \setbox\@btemp=\vbox
       {\hbox{\@tcurr##1}}
     \ifdim\wd\@btemp>\@graphwd
     \global\@graphwd=\wd\@btemp\fi
     % set caption onto picture
     \global\setbox\@labeledgraph=\vbox
     {\unvbox\@labeledgraph
       \medskip\hbox
       {\noindent
         \dimendef\@centerskip=0\relax
         \@centerskip=\@graphwd
         \advance\@centerskip -\wd\@btemp
         \divide\@centerskip by 2\relax
         \kern\@centerskip
         \box\@btemp
       }% -- end \hbox
       \vss
     }% -- end \vbox
   }% -- end \@docaption
 }% -- end \mfcaption
 % backward compatibility:
 \let\label=\mflabel
 \let\caption=\mfcaption
 % end of object macros
}% -- end \@mfpicture
% setting up optional arguments
\def\@piciii#1#2#3#4{%
 \@mfpicture{\@param}{\@param}%
   {#1}{#2}{#3}{#4}}
\def\@picii[#1]#2#3#4#5{%
 \@mfpicture{\@param}{#1}%
   {#2}{#3}{#4}{#5}}
\def\@pici{%
 \if[\@nchr\expandafter\@picii
 \else\expandafter\@piciii\fi}
\def\mfpicture [#1]{%
 {% local env. for \@outrange.
   \def\@outrange {%
     \immediate\write16 {}
     \immediate\write16
       {MFPIC: ** Sorry, mfpic makes characters between 0 and 255, inclusive;}
     \immediate\write16
       {MFPIC: ** if you want more, then I suggest you start another graphics font;}
     \immediate\write16
       {MFPIC: * in the meantime mfpic will use the dummy font for new graphics.}
     \immediate\write16 {}
     \font\@graph=dummy\relax
   }% -- end \@outrange
   \ifx \@code <  0 \@outrange \else
   \ifx \@code > 255 \@outrange \fi\fi
 }% end local env.
 \def\@param{#1}%
 \futurelet\@nchr\@pici
}% -- end \mfpicture
% ending mfpicture environment:
\def\endmfpicture{%
 \mfcmd{endchar;}
 \@docaption\egroup
 \hbox to\@graphwd{%
   \box\@labeledgraph\hss}
 \global\advance\@code1
}% -- end \endmfpicture
%
% Abbreviations:
\let\mfpic=\mfpicture
\let\endmfpic=\endmfpicture
%
\if@inlatex
 \relax
\else % NOT in LaTeX.
 % backward compatibility:
 \let\picture=\mfpicture
 \let\endpicture=\endmfpicture
\fi
% restore catcode.
\catcode`@=\oldatcatcode
%
% end mfpic.tex

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.