input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
% filenametemplate
%else:
% outputtemplate :=
%fi
% "%j.eps";
beginfig(1)
pair zaaab ;
zaaab = ( 0 , 0 ) ;
pair zaaac ;
zaaac = 1cm * up;
pair zaaad ;
zaaad = 2cm * up;
pair zaaae ;
zaaae = -1.0 * zaaac;
pair zaaaf ;
zaaaf = zaaad shifted zaaae ;
pair zaaag ;
zaaag = zaaaf rotated 30.0 ;
pair zaaah ;
zaaah = zaaag shifted zaaac ;
pair zaaai ;
zaaai = zaaaf rotated -30.0 ;
pair zaaaj ;
zaaaj = zaaai shifted zaaac ;
path paaak ;
paaak:=zaaab -- zaaac -- zaaad;
path paaal ;
paaal:=paaak rotated 0 ;
draw paaal ;
path paaam ;
paaam:=zaaah -- zaaac -- zaaaj;
path paaan ;
paaan:=paaam rotated 0 ;
draw paaan ;
pair zaaao ;
zaaao = zaaac rotated 0 ;
pen qaaap ;
qaaap = pencircle scaled 4bp ;
draw zaaao withpen qaaap ;
pair zaaaq ;
zaaaq = zaaah rotated 0 ;
draw zaaaq withpen qaaap ;
pair zaaar ;
zaaar = zaaad rotated 0 ;
draw zaaar withpen qaaap ;
pair zaaas ;
zaaas = zaaaj rotated 0 ;
draw zaaas withpen qaaap ;
path paaat ;
paaat:=paaak rotated 72.0 ;
draw paaat ;
path paaau ;
paaau:=paaam rotated 72.0 ;
draw paaau ;
pair zaaav ;
zaaav = zaaac rotated 72.0 ;
draw zaaav withpen qaaap ;
pair zaaaw ;
zaaaw = zaaah rotated 72.0 ;
draw zaaaw withpen qaaap ;
pair zaaax ;
zaaax = zaaad rotated 72.0 ;
draw zaaax withpen qaaap ;
pair zaaay ;
zaaay = zaaaj rotated 72.0 ;
draw zaaay withpen qaaap ;
path paaaz ;
paaaz:=paaak rotated 144.0 ;
draw paaaz ;
path paaba ;
paaba:=paaam rotated 144.0 ;
draw paaba ;
pair zaabb ;
zaabb = zaaac rotated 144.0 ;
draw zaabb withpen qaaap ;
pair zaabc ;
zaabc = zaaah rotated 144.0 ;
draw zaabc withpen qaaap ;
pair zaabd ;
zaabd = zaaad rotated 144.0 ;
draw zaabd withpen qaaap ;
pair zaabe ;
zaabe = zaaaj rotated 144.0 ;
draw zaabe withpen qaaap ;
path paabf ;
paabf:=paaak rotated 216.0 ;
draw paabf ;
path paabg ;
paabg:=paaam rotated 216.0 ;
draw paabg ;
pair zaabh ;
zaabh = zaaac rotated 216.0 ;
draw zaabh withpen qaaap ;
pair zaabi ;
zaabi = zaaah rotated 216.0 ;
draw zaabi withpen qaaap ;
pair zaabj ;
zaabj = zaaad rotated 216.0 ;
draw zaabj withpen qaaap ;
pair zaabk ;
zaabk = zaaaj rotated 216.0 ;
draw zaabk withpen qaaap ;
path paabl ;
paabl:=paaak rotated 288.0 ;
draw paabl ;
path paabm ;
paabm:=paaam rotated 288.0 ;
draw paabm ;
pair zaabn ;
zaabn = zaaac rotated 288.0 ;
draw zaabn withpen qaaap ;
pair zaabo ;
zaabo = zaaah rotated 288.0 ;
draw zaabo withpen qaaap ;
pair zaabp ;
zaabp = zaaad rotated 288.0 ;
draw zaabp withpen qaaap ;
pair zaabq ;
zaabq = zaaaj rotated 288.0 ;
draw zaabq withpen qaaap ;
currentpicture := currentpicture shifted
-llcorner currentpicture shifted (1cm,2cm);
endfig;
end;