#-- Generate the .svg files for the animation
#-- Animation: variation of the shape of the serpenoid
#--  curver when the alpha parameter is changed from 0
#--  to 120

for alpha = [0:5:120]
  [x,y]=serp(alpha,2,1,0);
  plot(x,y);
  axis([-0.1,1.1,-0.3,0.3])
  axis equal; axis off;
  name = strcat("serp_alpha/alpha_",int2str(alpha),".svg");
  print(name, "-dsvg");
endfor



