どっちの円が明るい?

 投稿者:しばっち  投稿日:2013年12月15日(日)19時01分10秒
  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
 

戻る