|
|
CALL GINIT(600,600)
LOCATE VALUE NOWAIT,RANGE -100 TO 100 ,AT 50: Y
LET XX=5
LET X=50
DO
LET X=X+XX
SET DRAW MODE HIDDEN
CLEAR
LOCATE VALUE NOWAIT:Y
PLOT AREA:300,150;X,150-Y;X,450+Y;300,450
SET DRAW MODE EXPLICIT
WAIT DELAY 1/50
IF X<50 THEN LET XX=-XX
IF X>550 THEN LET XX=-XX
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) 1,1,1
SET COLOR MIX(1) 0,0,0
CLEAR
END SUB
|
|