トップ 差分 一覧 Farm ソース 検索 ヘルプ PDF RSS ログイン

checkColor.hsp

*disclaimer
305829

[HSP]

checkColor.hsp


checkColor.hsp(9)

checkColor.exe(7)

; 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