OPTION ANGLE DEGREES
DEF f(x)=SIN(x)+SIN(k*x)
SET WINDOW -2160,2160,-3,3
DRAW grid
FOR k=1 TO 2 STEP 0.001
   SET DRAW mode hidden ! ちらつき防止の特殊処理(1)
   CLEAR
   DRAW grid
   FOR x=-2160 TO 2160
      PLOT LINES: x,f(x);
   NEXT x
   IF k=1.001 THEN
      PRINT " 1"
      WAIT DELAY 2
   ELSEIF k=1.066 OR k=1.111 OR k=1.125 OR k=1.185 OR k=1.2 OR k=1.25 OR k=1.333 OR k=1.35 OR k=1.406 THEN
      PRINT k
      WAIT DELAY 2
   ELSEIF k=1.4222 OR k=1.481 OR k=1.5 OR k=1.6 OR k=1.666 OR k=1.777 OR k=1.8 OR k=1.875 OR k=2 THEN
      PRINT k
      WAIT DELAY 2
   ELSE 
      WAIT DELAY 1/100
   END IF
   SET DRAW mode explicit ! ちらつき防止の特殊処理(2)
NEXT k
END