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 ;
pen qaaaj ;
 qaaaj = pencircle scaled 4bp ;
draw zaaai   withpen qaaaj   ;
 numeric xaaak ;
 xaaak = 0.0999908447265625 * xaaag;
pair zaaal ;
 zaaal = point xaaak of paaaf ;
draw zaaal   withpen qaaaj   ;
 numeric xaaam ;
 xaaam = 0.1999969482421875 * xaaag;
pair zaaan ;
 zaaan = point xaaam of paaaf ;
draw zaaan   withpen qaaaj   ;
 numeric xaaao ;
 xaaao = 0.29998779296875 * xaaag;
pair zaaap ;
 zaaap = point xaaao of paaaf ;
draw zaaap   withpen qaaaj   ;
 numeric xaaaq ;
 xaaaq = 0.399993896484375 * xaaag;
pair zaaar ;
 zaaar = point xaaaq of paaaf ;
draw zaaar   withpen qaaaj   ;
 numeric xaaas ;
 xaaas = 0.5 * xaaag;
pair zaaat ;
 zaaat = point xaaas of paaaf ;
draw zaaat   withpen qaaaj   ;
 numeric xaaau ;
 xaaau = 0.5999908447265625 * xaaag;
pair zaaav ;
 zaaav = point xaaau of paaaf ;
draw zaaav   withpen qaaaj   ;
 numeric xaaaw ;
 xaaaw = 0.6999969482421875 * xaaag;
pair zaaax ;
 zaaax = point xaaaw of paaaf ;
draw zaaax   withpen qaaaj   ;
 numeric xaaay ;
 xaaay = 0.79998779296875 * xaaag;
pair zaaaz ;
 zaaaz = point xaaay of paaaf ;
draw zaaaz   withpen qaaaj   ;
 numeric xaaba ;
 xaaba = 0.899993896484375 * xaaag;
pair zaabb ;
 zaabb = point xaaba of paaaf ;
draw zaabb   withpen qaaaj   ;
 numeric xaabc ;
 xaabc = 1.0 * xaaag;
pair zaabd ;
 zaabd = point xaabc of paaaf ;
draw zaabd   withpen qaaaj   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;