|
|
CALL GINIT(600,600)
CALL BOXFULL(0,0,300,600,1)
CALL BOXFULL(300,0,600,600,6)
CALL BOXFULL(0,100,600,250,2)
CALL BOXFULL(0,350,600,500,4)
LET S=10
FOR X=0 TO 300 STEP 2*S
CALL BOXFULL(X,0,X+S,600,6)
CALL BOXFULL(300+X,0,300+X+S,600,1)
NEXT X
PAUSE
CLEAR
CALL BOXFULL(0,0,300,600,1)
CALL BOXFULL(300,0,600,600,6)
CALL BOXFULL(0,100,600,250,2)
CALL BOXFULL(0,350,600,500,4)
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 BOXFULL(X1,Y1,X2,Y2,C)
SET COLOR C
PLOT AREA:X1,Y1;X2,Y1;X2,Y2;X1,Y2;X1,Y1
END SUB
|
|