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 ;
 pair zaaaj ;
 pair zaaak ;
 pair zaaal ;
 pair zaaam ;
 zaaam = zaaaf rotated -30.0 ;
pair zaaan ;
 zaaan = zaaam shifted zaaac ;
path paaao ;
 paaao:=zaaab -- zaaac -- zaaad;
path paaap ;
 paaap:=paaao rotated 0 ;
draw paaap     ;
 path paaaq ;
 paaaq:=zaaah -- zaaac -- zaaan;
path paaar ;
 paaar:=paaaq rotated 0 ;
draw paaar     ;
 pair zaaas ;
 zaaas = zaaac rotated 0 ;
pen qaaat ;
 qaaat = pencircle scaled 4bp ;
draw zaaas   withpen qaaat   ;
 pair zaaau ;
 zaaau = zaaah rotated 0 ;
pen qaaav ;
 draw zaaau   withpen qaaat   ;
 pair zaaaw ;
 zaaaw = zaaad rotated 0 ;
pen qaaax ;
 draw zaaaw   withpen qaaat   ;
 pair zaaay ;
 zaaay = zaaan rotated 0 ;
pen qaaaz ;
 draw zaaay   withpen qaaat   ;
 path paaba ;
 path paabb ;
 paabb:=paaao rotated 72.0 ;
draw paabb     ;
 path paabc ;
 path paabd ;
 paabd:=paaaq rotated 72.0 ;
draw paabd     ;
 pair zaabe ;
 zaabe = zaaac rotated 72.0 ;
pen qaabf ;
 draw zaabe   withpen qaaat   ;
 pair zaabg ;
 zaabg = zaaah rotated 72.0 ;
pen qaabh ;
 draw zaabg   withpen qaaat   ;
 pair zaabi ;
 zaabi = zaaad rotated 72.0 ;
pen qaabj ;
 draw zaabi   withpen qaaat   ;
 pair zaabk ;
 zaabk = zaaan rotated 72.0 ;
pen qaabl ;
 draw zaabk   withpen qaaat   ;
 path paabm ;
 path paabn ;
 paabn:=paaao rotated 144.0 ;
draw paabn     ;
 path paabo ;
 path paabp ;
 paabp:=paaaq rotated 144.0 ;
draw paabp     ;
 pair zaabq ;
 zaabq = zaaac rotated 144.0 ;
pen qaabr ;
 draw zaabq   withpen qaaat   ;
 pair zaabs ;
 zaabs = zaaah rotated 144.0 ;
pen qaabt ;
 draw zaabs   withpen qaaat   ;
 pair zaabu ;
 zaabu = zaaad rotated 144.0 ;
pen qaabv ;
 draw zaabu   withpen qaaat   ;
 pair zaabw ;
 zaabw = zaaan rotated 144.0 ;
pen qaabx ;
 draw zaabw   withpen qaaat   ;
 path paaby ;
 path paabz ;
 paabz:=paaao rotated 216.0 ;
draw paabz     ;
 path paaca ;
 path paacb ;
 paacb:=paaaq rotated 216.0 ;
draw paacb     ;
 pair zaacc ;
 zaacc = zaaac rotated 216.0 ;
pen qaacd ;
 draw zaacc   withpen qaaat   ;
 pair zaace ;
 zaace = zaaah rotated 216.0 ;
pen qaacf ;
 draw zaace   withpen qaaat   ;
 pair zaacg ;
 zaacg = zaaad rotated 216.0 ;
pen qaach ;
 draw zaacg   withpen qaaat   ;
 pair zaaci ;
 zaaci = zaaan rotated 216.0 ;
pen qaacj ;
 draw zaaci   withpen qaaat   ;
 path paack ;
 path paacl ;
 paacl:=paaao rotated 288.0 ;
draw paacl     ;
 path paacm ;
 path paacn ;
 paacn:=paaaq rotated 288.0 ;
draw paacn     ;
 pair zaaco ;
 zaaco = zaaac rotated 288.0 ;
pen qaacp ;
 draw zaaco   withpen qaaat   ;
 pair zaacq ;
 zaacq = zaaah rotated 288.0 ;
pen qaacr ;
 draw zaacq   withpen qaaat   ;
 pair zaacs ;
 zaacs = zaaad rotated 288.0 ;
pen qaact ;
 draw zaacs   withpen qaaat   ;
 pair zaacu ;
 zaacu = zaaan rotated 288.0 ;
pen qaacv ;
 draw zaacu   withpen qaaat   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;