|
|
長方形が点滅した瞬間、丸の位置がずれて見える
CALL GINIT(600,600)
LOCATE VALUE NOWAIT,RANGE 0 TO .08:SPEED
DO
FOR X=50 TO 550 STEP 10
LOCATE VALUE NOWAIT:SPEED
SET DRAW MODE HIDDEN
CLEAR
CALL CIRCLEFULL(X,100,50,7)
IF X=300 THEN
CALL BOXFULL(250,200,350,500,7)
!' STOP !' ← 確かに丸の真下に長方形がある
END IF
SET DRAW MODE EXPLICIT
WAIT DELAY SPEED
NEXT X
LOOP
END
EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET POINT STYLE 1
SET COLOR MODE "REGULAR"
SET COLOR MIX(0) 0,0,0
SET COLOR MIX(1) 0,0,1
SET COLOR MIX(2) 1,0,0
SET COLOR MIX(3) 1,0,1
SET COLOR MIX(4) 0,1,0
SET COLOR MIX(5) 0,1,1
SET COLOR MIX(6) 1,1,0
SET COLOR MIX(7) 1,1,1
CLEAR
END SUB
EXTERNAL SUB CIRCLEFULL(X,Y,RR,C)
SET COLOR C
DRAW DISK WITH SCALE(RR)*SHIFT(X,Y)
END SUB
EXTERNAL SUB BOXFULL(X1,Y1,X2,Y2,C)
SET COLOR C
PLOT AREA:X1,Y1;X2,Y1;X2,Y2;X1,Y2;X1,Y1
END SUB
|
|