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;