Lsystems/tmp0.mp

49 lines
1.5 KiB
Plaintext

% tmp0.mp, generated by Mfpic, v0.9 2006/05/26,
% from TeX source "Lsystem" on 2011/03/16 at 13:50
numeric mfpicversion; mfpicversion:=90;
if unknown mode: mode = localfont; fi
if unknown mag: mag = 1000/1000; fi
if unknown grafbase: input grafbase; fi
if unknown grafbaseversion: grafbaseversion = 0; fi
if grafbaseversion <> mfpicversion :
GBmsg "Bad mfpic installation: mfpic and grafbase versions do not match.";
fi
if unknown Apricot: input dvipsnam.mp; fi
verbatimtex
\gdef \mpxshipout {\afterassignment \middlempxshipout \setbox 0=\hbox }%
\gdef \middlempxshipout {\aftergroup \finishmpxshipout }%
\gdef \finishmpxshipout {\dimen 1=\ht 0 \dimen 2=\dp 0
\dimen 0=\dimen 1 \advance \dimen 0\dimen 2
\setbox 0=\hbox {\hbox {\box 0
\ifnum \dimen 0>0 \vrule width1sp height\dimen 1 depth\dimen 2
\else \vrule width1sp height1sp depth0sp\relax
\fi }}%
\ht 0=0pt \dp 0=0pt \shipout \hbox {\box 0}}%
\def \MFPtext #1{\vbox {\def \\{\cr }\MFPcfont \everylabel
\halign {##\hfil \cr #1\crcr }}}%
\def \everylabel {}
etex;
setvariable (boolean) (truebbox) true;
%----------------------------<1>
unitlen := 1.0pt#;
xscale := 1; yscale := 1;
bounds (0, 20, 0, 20);
beginmfpic(1); % line 665 in the TeX source.
verbatimtex \bgroup \font \MFPcfont =ecrm1095\relax etex;
draw (0,0)--(10,10)--(20,0)--(10,-10)--cycle ;
draw (0,-10)--(20,-10)--(20,10)--(0,10)--cycle ;
verbatimtex \egroup etex;
endmfpic; % (1) line 670 in the TeX source.
%------------------------------------------
end.