if unknown Pi: input gdd-fct; fi; %%% -------------------------------------------------------------------------- %%% Arcs de cercles %%% -------------------------------------------------------------------------- vardef Arc(expr c,r,a,b) = save centre, pas; pair centre; centre = PairImp(c); pas =(b-a)/10; (centre+r*(cos(a),sin(a))) for i=0 upto 10: .. (centre+r*(cos(a+i*pas),sin(a+i*pas))) endfor enddef; endinput