|
|
!'MoirePattern
SET WINDOW -1,1,-1,1
DO
FOR T=2*PI TO 0 STEP -PI/180*15
SET DRAW MODE EXPLICIT
DRAW BOX WITH ROTATE(0)
DRAW BOX WITH ROTATE(T)
WAIT DELAY .1
SET DRAW MODE HIDDEN
CLEAR
NEXT T
LOOP
END
EXTERNAL PICTURE BOX
FOR X=-.3 TO .3 STEP 1/128
PLOT LINES:X,-.6;X,.6
NEXT X
END PICTURE
|
|