🚀 go-pugleaf

-------------------------------------cut cut cut--------------------------
@echo off
rem        mfpic.bat - process a tex file including mfpic graphs

rem Vars  needed: set emtexdrv=c      (assuming usual emtex installation)
rem Files needed: c:\emtex\texinput\mfpic.tex c:\emtex\mfinput\graphbas.mf

rem               first tex pass creates what.mf and an incomplete what.dvi
if "%1"=="" goto :usage
tex %1
del %1.dvi

rem               metafont pass generates what.300gf and what.tfm
for %%f in (*.mf) do mf.exe &plain \mode=hplaser; input %%f
rem               gftopk pass converts what.300gf to what.pk
for %%f in (*.300gf *.329gf *.360gf *.432gf *.518 *.622 *.746) do gftopk %%f

rem               second tex pass creates final what.dvi, using .\what.tfm
set textfm=c:\emtex\tfm;.
tex %1
set textfm=

rem               call previewer with the following paths
rem  % lj.cnf (300x300 DPI using LJ fonts)
rem  /pd={,c:\emtex\doc\{english,latex}\,$DVIDRVINPUT:}@i
rem  /pl={c:\texfonts\,$DVIDRVFONTS:}lj_{0,h,1,2,3,4,5a,5b,sli}
rem  /pf={,{c:\texfonts\,$DVIDRVFONTS:}pixel.lj\@Rrdpi\}@f{.pk,.pxl}
dvidrv dviscr @lj.cnf /fl=-1 /ocr=1 /o4 /pt %1 %2 %3 %4 %5 %6 %7 %8 %9

goto :end
:usage
echo  Usage:  mfpic  what
echo ------------------------------------------start of what.tex-------------
echo \input mfpic
echo   \opengraphsfile{what1}
echo     \picture[20]{-3}{3}{-3}{3}
echo        \axes
echo        \function{-2,2,0.1,(x**3-x)/3}
echo     \endpicture
echo   \closegraphsfile
echo The first line opens up the picture environment and
echo establishes the coordinate system.  The coordinate scale
echo is 20 points per coordinate unit (x- and y-axis scales
echo the same in this case), with bounds on both axes being -3 and 3.
echo The second line draws the axes.  The third line
echo plots a smooth Bezier interpolation of the function
echo $f(x)=(x^3-x)/3$ on the domain $-2<=x<=2$, through points
echo with x values 0.1 units apart.
echo The fourth line closes the picture environment.
echo Regards, Tom Leathrum, moth@dartmouth.edu
echo \bye
echo ------------------------------------------end  of what.tex-------------
:end
rem                                 J. Gelinas, 9 sept 1992, gelinas@cmr.ca
-------------------------------------cut cut cut--------------------------

--
Jacques Ge'linas, Ph.D., Maths,             BITNET: gelinasj@cmr001
Colle`ge Militaire Royal de Saint-Jean,   INTERNET: gelinas@cmr.ca
Que'bec, Canada.                             PHONE: used for modem