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 ;
path paaag ;
paaag:=paaad scaled 5mm ;
draw paaae ;
pair zaaah ;
zaaah = dir 45.0 ;
pair zaaai ;
zaaai = 1cm * zaaah;
path paaaj ;
paaaj:=paaag shifted zaaai ;
draw paaaj ;
pair zaaak ;
zaaak = dir 135.0 ;
pair zaaal ;
zaaal = 1cm * zaaak;
path paaam ;
paaam:=paaag shifted zaaal ;
draw paaam ;
Paaac := currentpicture;
currentpicture := Paaab ;
pair zaaan ;
zaaan = ( 0 , 0 ) ;
pair zaaao ;
zaaao = ( 1mm , 1mm ) ;
pair zaaap ;
zaaap = ( 2mm , 2mm ) ;
picture Paaaq ;
Paaaq:=Paaac shifted zaaan ;
draw Paaaq ;
picture Paaar ;
Paaar:=Paaac shifted zaaao ;
draw Paaar ;
picture Paaas ;
Paaas:=Paaac shifted zaaap ;
draw Paaas ;
currentpicture := currentpicture shifted
-llcorner currentpicture shifted (1cm,2cm);
endfig;
end;