|
|
CALL GINIT(600,600)
CALL BOXFULL(50,50,280,550,37,37,37)
CALL BOXFULL(320,50,550,550,204,204,204)
LET R=127
LET G=127
LET B=127
CALL BOXFULL(75,200,260,400,127,110,108)
CALL CIRCLEFULL(165,300,50,R,G,B)
CALL BOXFULL(340,200,530,400,255,230,230)
CALL CIRCLEFULL(435,300,50,R,G,B)
PAUSE
CALL BOXFULL(200,250,400,350,R,G,B)
END
EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET COLOR MIX(0) 0,0,0
SET COLOR MODE "NATIVE"
CLEAR
SET POINT STYLE 1
SET WINDOW 0,XSIZE-1,YSIZE-1,0
END SUB
EXTERNAL SUB CIRCLEFULL(X,Y,RR,R,G,B)
SET COLOR COLORINDEX(R/255,G/255,B/255)
DRAW DISK WITH SCALE(RR)*SHIFT(X,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
END SUB
|
|