EXEMPLE MACRO18

Figure géométrique

Exemple

 MACRO "drawing2d.mac"
 !
   DELETE ALL
   LIMIT -1,1,-1,1
   DEG
   GRAPHICS OFF
   PLOT AXES OFF
   FOR X=0.01 TO 1 STEP 0.01
   Y=0.15*SIN(540*X)
   D=SQR(X*X+Y*Y)
   H=ATN(Y/X)
   FOR T=1 TO 7
   PLOT SIN(H)*D,COS(H)*D
   H=H+60
   NEXT T
   PENUP
   NEXT X
   GRAPHICS ON
   REDRAW
   END
   END MACRO