% Demo der verschiedenen Kraeuselungen eines Bogens
prologues := 1;
beginfig(1);
   for c = 0 step 1 until 10:
      draw (0,0){curl c} .. (-0.5in,1in) .. {curl c}(0,2in);
   endfor
endfig;
end.