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 = dir 60.0 ;
pair zaaad ;
 zaaad = 1cm * zaaac;
pair zaaae ;
 zaaae = dir -60.0 ;
pair zaaaf ;
 zaaaf = 1cm * zaaae;
numeric xaaag ;
 xaaag = 2.0 * 1cm;
pair zaaah ;
 zaaah = ( xaaag , 0 ) ;
pen qaaai ;
 qaaai = pencircle scaled 4bp ;
draw zaaab   withpen qaaai   ;
 draw zaaad   withpen qaaai   ;
 draw zaaaf   withpen qaaai   ;
 draw zaaah   withpen qaaai   ;
 path paaaj ;
 paaaj:=zaaab -- zaaah -- zaaad -- zaaah -- zaaaf;
draw paaaj     ;
 path paaak ;
 paaak:=zaaab { up }  .. zaaad ;
path paaal ;
 paaal:=zaaab { down }  .. zaaaf ;
pair zaaam ;
 zaaam = dir 30.0 ;
path paaan ;
 paaan:=zaaab { zaaam }  .. zaaad ;
pair zaaao ;
 zaaao = dir -30.0 ;
path paaap ;
 paaap:=zaaab { zaaao }  .. zaaaf ;
draw paaak     ;
 draw paaal     ;
 draw paaan     ;
 draw paaap     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;