原点の穴から出てきた線が目的地に向かってまっすぐ這っていくアニメです。

SET WINDOW -22,22,-22,22 DRAW GRID (10,10) SET AREA COLOR 4 FOR t=0 TO 20 STEP 0.01 DRAW disk WITH SCALE(0.1)*SHIFT(t,(1/2)*t) IF t>5 THEN SET AREA COLOR 0 DRAW disk WITH SCALE(0.1)*SHIFT(t-5,(1/2)*(t-5)) END IF SET AREA COLOR 4 WAIT DELAY 1/100 NEX t

人工衛星が２公転するアニメです。

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*4 STEP 0.01 DRAW disk WITH SCALE(0.02)*SHIFT(COS(t),SIN(t)) IF t>=0.06 THEN SET AREA COLOR 0 DRAW disk WITH SCALE(0.02)*SHIFT(COS(t-0.06),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