回転しながら原点からの距離を振動させる点が描く図形です。

SET WINDOW -1.2,1.2,-1.2,1.2 SET AREA COLOR 4 FOR t=0 TO 0.06 STEP 0.1 DRAW disk WITH SCALE(0.02)*SHIFT(COS(t),SIN(t)) NEXT t WAIT DELAY 1/10 FOR t=0 TO PI*2 STEP 0.005 DRAW disk WITH SCALE(0.02)*SHIFT(SQR(COS(4*t)^2)*COS(t),SQR(COS(4*t)^2)*SIN(t)) DRAW circle WITH SCALE(1)*SHIFT(0,0) WAIT DELAY 1/100 NEXT t END

　　　

SET WINDOW -1.2,1.2,-1.2,1.2 SET AREA COLOR 4 FOR t=0 TO 0.06 STEP 0.1 DRAW disk WITH SCALE(0.02)*SHIFT(COS(t),SIN(t)) NEXT t WAIT DELAY 1/10 FOR t=0 TO PI*2 STEP 0.005 DRAW disk WITH SCALE(0.02)*SHIFT(SQR(COS(4*t)^2)*COS(t),SQR(COS(4*t)^2)*SIN(t)) IF t>=0.06 THEN SET AREA COLOR 0 DRAW disk WITH SCALE(0.02)*SHIFT(SQR(COS(4*(t-0.06))^2)*COS(t-0.06),SQR(COS(4*(t-0.06))^2)*SIN(t-0.06)) DRAW circle WITH SCALE(1)*SHIFT(0,0) END IF SET AREA COLOR 4 WAIT DELAY 1/100 NEXT t END