- 620 名前：名無しさん＠お腹いっぱい。 mailto:sage [2007/02/04(日) 16:33:00 ID:wsNHttRV0]
- 赤に近い色がある場所を取得したいのですが、どうやったら出来ますか？
chkimgだと〜に近い色という設定が出来ず、peekcolorで1ドットずつ調べるのは重いので。。。
while true
for i=0 to g_screen_w
for j=0 to g_screen_h
c=peekcolor(i,j)
red=c and $FF
green=(c and $FF00)/$100
blue=(c and $FF0000)/$10000
if red>$F0 and green<$10 and blue<$10 then print i+","+j
next
next
sleep(0.1)
wend
peekcolorを使うとこんな感じですが、重すぎてまともに動きません。
