input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
%   filenametemplate
%else:
%   outputtemplate :=
%fi
% "%j.eps";

beginfig(1)
pair zaaab ;
 zaaab = ( 0 , 1cm ) ;
pair zaaac ;
 zaaac = zaaab rotated 120.0 ;
pair zaaad ;
 zaaad = dir 0 ;
pair zaaae ;
 zaaae = dir 120.0 ;
path paaaf ;
 paaaf:=zaaab { zaaad }  .. tension 2.0 .. zaaac { zaaae }  ;
numeric xaaag ;
 numeric xaaah ;
 pair zaaai ;
 zaaai = ( xaaag , xaaah ) ;
path paaaj ;
 paaaj:=paaaf rotated 120.0 ;
pair zaaak ;
 zaaak = paaaf intersectiontimes paaaj ;
zaaai = zaaak;
numeric xaaal ;
 xaaal = xaaag - 0.019989013671875;
path paaam ;
 paaam:=subpath ( 0 , xaaal ) of paaaf ;
draw paaam     ;
 numeric xaaan ;
 xaaan = xaaag + 0.019989013671875;
path paaao ;
 paaao:=subpath ( xaaan , 1.0 ) of paaaf ;
draw paaao     ;
 path paaap ;
 paaap:=subpath ( 0 , xaaal ) of paaaj ;
draw paaap     ;
 path paaaq ;
 paaaq:=subpath ( xaaan , 1.0 ) of paaaj ;
draw paaaq     ;
 path paaar ;
 paaar:=paaaf rotated -120.0 ;
path paaas ;
 paaas:=subpath ( 0 , xaaal ) of paaar ;
draw paaas     ;
 path paaat ;
 paaat:=subpath ( xaaan , 1.0 ) of paaar ;
draw paaat     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;