input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
% filenametemplate
%else:
% outputtemplate :=
%fi
% "%j.eps";
beginfig(1)
picture Paaab ;
Paaab:= nullpicture;
picture Paaac ;
Paaac:= nullpicture;
Paaab := currentpicture;
currentpicture := nullpicture;
path paaad ;
paaad:=makepath pencircle ;
path paaae ;
paaae:=paaad scaled 1cm ;
path paaaf ;
paaaf:=paaad scaled 5mm ;
draw paaae ;
pair zaaag ;
zaaag = dir 45.0 ;
pair zaaah ;
zaaah = 1cm * zaaag;
path paaai ;
paaai:=paaaf shifted zaaah ;
draw paaai ;
pair zaaaj ;
zaaaj = dir 135.0 ;
pair zaaak ;
zaaak = 1cm * zaaaj;
path paaal ;
paaal:=paaaf shifted zaaak ;
draw paaal ;
Paaac := currentpicture;
currentpicture := Paaab ;
pair zaaam ;
zaaam = ( 0 , 0 ) ;
pair zaaan ;
zaaan = ( 1mm , 1mm ) ;
pair zaaao ;
zaaao = ( 2mm , 2mm ) ;
picture Paaap ;
Paaap:=Paaac shifted zaaam ;
draw Paaap ;
picture Paaaq ;
Paaaq:=Paaac shifted zaaan ;
draw Paaaq ;
picture Paaar ;
Paaar:=Paaac shifted zaaao ;
draw Paaar ;
currentpicture := currentpicture shifted
-llcorner currentpicture shifted (1cm,2cm);
endfig;
end;