; check color ; copyleft 2022-06-14 sugiura@nagoya-u.jp color 220, 255, 255: boxf 0,0, 640, 480 color 0, 0, 0: boxf 0,0, 322, 242 R = 255 G = 255 B = 255 gosub *paint pos 322, 242 color 0,0,0 mes "暗い 0 < 色 < 255 明るい pos 390, 260 mes " Red " : input R: mes "" mes "Green": input G: mes "" mes "Blue": input B: mes "" button gosub "Paint", *paint stop *paint color R, G, B: boxf 0,0, 320, 240 return