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 , 2cm ) ;
pair zaaad ;
 zaaad = ( 2cm , 1cm ) ;
pair zaaae ;
 zaaae = ( 1cm , 0 ) ;
path paaaf ;
 paaaf:=zaaab .. zaaac .. zaaad .. zaaae;
numeric xaaag ;
 xaaag = length paaaf ;
draw paaaf     ;
 numeric xaaah ;
 xaaah = 0 * xaaag;
pair zaaai ;
 zaaai = point xaaah of paaaf ;
numeric xaaaj ;
 pair zaaak ;
 zaaak = direction xaaah of paaaf ;
pair zaaal ;
 zaaal = unitvector zaaak ;
pair zaaam ;
 zaaam = 1cm * zaaal;
pair zaaan ;
 zaaan = zaaam shifted zaaai ;
path paaao ;
 paaao:=zaaai -- zaaan;
drawarrow paaao     ;
 numeric xaaap ;
 xaaap = 0.0999908447265625 * xaaag;
pair zaaaq ;
 zaaaq = point xaaap of paaaf ;
numeric xaaar ;
 pair zaaas ;
 zaaas = direction xaaap of paaaf ;
pair zaaat ;
 zaaat = unitvector zaaas ;
pair zaaau ;
 zaaau = 1cm * zaaat;
pair zaaav ;
 zaaav = zaaau shifted zaaaq ;
path paaaw ;
 paaaw:=zaaaq -- zaaav;
drawarrow paaaw     ;
 numeric xaaax ;
 xaaax = 0.1999969482421875 * xaaag;
pair zaaay ;
 zaaay = point xaaax of paaaf ;
numeric xaaaz ;
 pair zaaba ;
 zaaba = direction xaaax of paaaf ;
pair zaabb ;
 zaabb = unitvector zaaba ;
pair zaabc ;
 zaabc = 1cm * zaabb;
pair zaabd ;
 zaabd = zaabc shifted zaaay ;
path paabe ;
 paabe:=zaaay -- zaabd;
drawarrow paabe     ;
 numeric xaabf ;
 xaabf = 0.29998779296875 * xaaag;
pair zaabg ;
 zaabg = point xaabf of paaaf ;
numeric xaabh ;
 pair zaabi ;
 zaabi = direction xaabf of paaaf ;
pair zaabj ;
 zaabj = unitvector zaabi ;
pair zaabk ;
 zaabk = 1cm * zaabj;
pair zaabl ;
 zaabl = zaabk shifted zaabg ;
path paabm ;
 paabm:=zaabg -- zaabl;
drawarrow paabm     ;
 numeric xaabn ;
 xaabn = 0.399993896484375 * xaaag;
pair zaabo ;
 zaabo = point xaabn of paaaf ;
numeric xaabp ;
 pair zaabq ;
 zaabq = direction xaabn of paaaf ;
pair zaabr ;
 zaabr = unitvector zaabq ;
pair zaabs ;
 zaabs = 1cm * zaabr;
pair zaabt ;
 zaabt = zaabs shifted zaabo ;
path paabu ;
 paabu:=zaabo -- zaabt;
drawarrow paabu     ;
 numeric xaabv ;
 xaabv = 0.5 * xaaag;
pair zaabw ;
 zaabw = point xaabv of paaaf ;
numeric xaabx ;
 pair zaaby ;
 zaaby = direction xaabv of paaaf ;
pair zaabz ;
 zaabz = unitvector zaaby ;
pair zaaca ;
 zaaca = 1cm * zaabz;
pair zaacb ;
 zaacb = zaaca shifted zaabw ;
path paacc ;
 paacc:=zaabw -- zaacb;
drawarrow paacc     ;
 numeric xaacd ;
 xaacd = 0.5999908447265625 * xaaag;
pair zaace ;
 zaace = point xaacd of paaaf ;
numeric xaacf ;
 pair zaacg ;
 zaacg = direction xaacd of paaaf ;
pair zaach ;
 zaach = unitvector zaacg ;
pair zaaci ;
 zaaci = 1cm * zaach;
pair zaacj ;
 zaacj = zaaci shifted zaace ;
path paack ;
 paack:=zaace -- zaacj;
drawarrow paack     ;
 numeric xaacl ;
 xaacl = 0.6999969482421875 * xaaag;
pair zaacm ;
 zaacm = point xaacl of paaaf ;
numeric xaacn ;
 pair zaaco ;
 zaaco = direction xaacl of paaaf ;
pair zaacp ;
 zaacp = unitvector zaaco ;
pair zaacq ;
 zaacq = 1cm * zaacp;
pair zaacr ;
 zaacr = zaacq shifted zaacm ;
path paacs ;
 paacs:=zaacm -- zaacr;
drawarrow paacs     ;
 numeric xaact ;
 xaact = 0.79998779296875 * xaaag;
pair zaacu ;
 zaacu = point xaact of paaaf ;
numeric xaacv ;
 pair zaacw ;
 zaacw = direction xaact of paaaf ;
pair zaacx ;
 zaacx = unitvector zaacw ;
pair zaacy ;
 zaacy = 1cm * zaacx;
pair zaacz ;
 zaacz = zaacy shifted zaacu ;
path paada ;
 paada:=zaacu -- zaacz;
drawarrow paada     ;
 numeric xaadb ;
 xaadb = 0.899993896484375 * xaaag;
pair zaadc ;
 zaadc = point xaadb of paaaf ;
numeric xaadd ;
 pair zaade ;
 zaade = direction xaadb of paaaf ;
pair zaadf ;
 zaadf = unitvector zaade ;
pair zaadg ;
 zaadg = 1cm * zaadf;
pair zaadh ;
 zaadh = zaadg shifted zaadc ;
path paadi ;
 paadi:=zaadc -- zaadh;
drawarrow paadi     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;