|
|
LET R=120
LET G=120
LET B=120
CALL GINIT(600,600)
CALL TILE(0,0,300,600,150,206,206,206,R,G,B)
CALL TILE(300,0,600,600,150,62,62,62,R,G,B)
CALL SYMBOL(75,225,"A",255,255,255)
CALL SYMBOL(525,375,"B",255,255,255)
PAUSE
CALL BOXFULL(150,150,600,300,R,G,B)
END
EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET COLOR MODE "NATIVE"
CLEAR
SET POINT STYLE 1
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET TEXT HEIGHT 30
SET TEXT JUSTIFY "CENTER","HALF"
END SUB
EXTERNAL SUB TILE(X0,Y0,X1,Y1,SIZE,R1,G1,B1,R2,G2,B2)
FOR Y=Y0 TO Y1
FOR X=X0 TO X1
LET I=INT(X/SIZE)
LET J=INT(Y/SIZE)
IF MOD(I+J,2)=0 THEN
SET COLOR COLORINDEX(R1/255,G1/255,B1/255)
ELSE
SET COLOR COLORINDEX(R2/255,G2/255,B2/255)
END IF
PLOT POINTS:X,Y
NEXT X
NEXT Y
END SUB
EXTERNAL SUB BOXFULL(X0,Y0,X1,Y1,R,G,B)
SET COLOR COLORINDEX(R/255,G/255,B/255)
PLOT AREA:X0,Y0;X1,Y0;X1,Y1;X0,Y1;X0,Y0
END SUB
EXTERNAL SUB SYMBOL(X,Y,A$,R,G,B)
SET COLOR COLORINDEX(R/255,G/255,B/255)
PLOT TEXT,AT X,Y:A$
END SUB
|
|