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 ;
pair zaaaj ;
 zaaaj = direction xaaah of paaaf ;
pair zaaak ;
 zaaak = unitvector zaaaj ;
pair zaaal ;
 zaaal = 1cm * zaaak;
pair zaaam ;
 zaaam = zaaal shifted zaaai ;
path paaan ;
 paaan:=zaaai -- zaaam;
drawarrow paaan     ;
 numeric xaaao ;
 xaaao = 0.0999908447265625 * xaaag;
pair zaaap ;
 zaaap = point xaaao of paaaf ;
pair zaaaq ;
 zaaaq = direction xaaao of paaaf ;
pair zaaar ;
 zaaar = unitvector zaaaq ;
pair zaaas ;
 zaaas = 1cm * zaaar;
pair zaaat ;
 zaaat = zaaas shifted zaaap ;
path paaau ;
 paaau:=zaaap -- zaaat;
drawarrow paaau     ;
 numeric xaaav ;
 xaaav = 0.1999969482421875 * xaaag;
pair zaaaw ;
 zaaaw = point xaaav of paaaf ;
pair zaaax ;
 zaaax = direction xaaav of paaaf ;
pair zaaay ;
 zaaay = unitvector zaaax ;
pair zaaaz ;
 zaaaz = 1cm * zaaay;
pair zaaba ;
 zaaba = zaaaz shifted zaaaw ;
path paabb ;
 paabb:=zaaaw -- zaaba;
drawarrow paabb     ;
 numeric xaabc ;
 xaabc = 0.29998779296875 * xaaag;
pair zaabd ;
 zaabd = point xaabc of paaaf ;
pair zaabe ;
 zaabe = direction xaabc of paaaf ;
pair zaabf ;
 zaabf = unitvector zaabe ;
pair zaabg ;
 zaabg = 1cm * zaabf;
pair zaabh ;
 zaabh = zaabg shifted zaabd ;
path paabi ;
 paabi:=zaabd -- zaabh;
drawarrow paabi     ;
 numeric xaabj ;
 xaabj = 0.399993896484375 * xaaag;
pair zaabk ;
 zaabk = point xaabj of paaaf ;
pair zaabl ;
 zaabl = direction xaabj of paaaf ;
pair zaabm ;
 zaabm = unitvector zaabl ;
pair zaabn ;
 zaabn = 1cm * zaabm;
pair zaabo ;
 zaabo = zaabn shifted zaabk ;
path paabp ;
 paabp:=zaabk -- zaabo;
drawarrow paabp     ;
 numeric xaabq ;
 xaabq = 0.5 * xaaag;
pair zaabr ;
 zaabr = point xaabq of paaaf ;
pair zaabs ;
 zaabs = direction xaabq of paaaf ;
pair zaabt ;
 zaabt = unitvector zaabs ;
pair zaabu ;
 zaabu = 1cm * zaabt;
pair zaabv ;
 zaabv = zaabu shifted zaabr ;
path paabw ;
 paabw:=zaabr -- zaabv;
drawarrow paabw     ;
 numeric xaabx ;
 xaabx = 0.5999908447265625 * xaaag;
pair zaaby ;
 zaaby = point xaabx of paaaf ;
pair zaabz ;
 zaabz = direction xaabx of paaaf ;
pair zaaca ;
 zaaca = unitvector zaabz ;
pair zaacb ;
 zaacb = 1cm * zaaca;
pair zaacc ;
 zaacc = zaacb shifted zaaby ;
path paacd ;
 paacd:=zaaby -- zaacc;
drawarrow paacd     ;
 numeric xaace ;
 xaace = 0.6999969482421875 * xaaag;
pair zaacf ;
 zaacf = point xaace of paaaf ;
pair zaacg ;
 zaacg = direction xaace of paaaf ;
pair zaach ;
 zaach = unitvector zaacg ;
pair zaaci ;
 zaaci = 1cm * zaach;
pair zaacj ;
 zaacj = zaaci shifted zaacf ;
path paack ;
 paack:=zaacf -- zaacj;
drawarrow paack     ;
 numeric xaacl ;
 xaacl = 0.79998779296875 * xaaag;
pair zaacm ;
 zaacm = point xaacl of paaaf ;
pair zaacn ;
 zaacn = direction xaacl of paaaf ;
pair zaaco ;
 zaaco = unitvector zaacn ;
pair zaacp ;
 zaacp = 1cm * zaaco;
pair zaacq ;
 zaacq = zaacp shifted zaacm ;
path paacr ;
 paacr:=zaacm -- zaacq;
drawarrow paacr     ;
 numeric xaacs ;
 xaacs = 0.899993896484375 * xaaag;
pair zaact ;
 zaact = point xaacs of paaaf ;
pair zaacu ;
 zaacu = direction xaacs of paaaf ;
pair zaacv ;
 zaacv = unitvector zaacu ;
pair zaacw ;
 zaacw = 1cm * zaacv;
pair zaacx ;
 zaacx = zaacw shifted zaact ;
path paacy ;
 paacy:=zaact -- zaacx;
drawarrow paacy     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;