07/09/07 21:36:31
allrgb = (ginfo_r + ginfo_g + ginfo_b)/3
質問とは関係ないが、なぜこうしなかったのか気になるな
picload "適当な画像ファイルパス"
SZx = double(ginfo_winx)
SZy = double(ginfo_winy)
y = 0
repeat SZy
x = 0
repeat SZx
pget x,y
allrgb = ginfo_r + ginfo_g + ginfo_b
color allrgb / 3, allrgb / 3, allrgb / 3
await 0
pset x,y
x++
loop
y++
loop
こんな感じ？物凄く遅いけど