
figure(1) 
h = animatedline;
h.LineStyle = 'none';
h.Marker='.'; 
h.MarkerSize=2;
h.Color='b';
axis([-10 10 -10 10]);

[x(1) y(1) bb]=ginput(1);
addpoints(h,x(1),y(1))

while bb<2,
   for n=2:500
      [x(n),y(n)]=gingermap(x(n-1),y(n-1));
      addpoints(h,x(n),y(n))
      drawnow update
   end
   [x(1) y(1) bb]=ginput(1);
end
