gdd-arc.mp

   1 if unknown Pi: input gdd-fct; fi;
   2
   3 %%% --------------------------------------------------------------------------
   4 %%% Arcs de cercles
   5 %%% --------------------------------------------------------------------------
   6
   7 vardef Arc(expr c,r,a,b) =
   8   save centre, pas; pair centre; centre = PairImp(c); pas =(b-a)/10;
   9   (centre+r*(cos(a),sin(a))) for i=0 upto 10: .. (centre+r*(cos(a+i*pas),sin(a+i*pas))) endfor
  10 enddef;
  11
  12
  13 endinput