EXEMPLE MACRO07

Courbe

Exemple

 MACRO "curve.mac"
 !
   DEG
   P2=PI/180
 ! Entrée de la position de la courbe
   DISP "Position ?"
   DIGITIZE X0,Y0
 ! Initialisation des paramètres de la courbe
   Rayon=10
   A0=-420
   A1=420
   Resol=10
 ! Tracé de la développante du cercle
   FOR T=A0 TO A1 STEP Resol
     X=Rayon*(COS(T)+T*SIN(T)*P2)+X0
     Y=Rayon*(SIN(T)-T*COS(T)*P2)+Y0
     PLOT X,Y
   NEXT T
   END
   END MACRO