#include "hspcv.as"

sname="stage.png"	; 保存するファイル名

buffer 1:picload "kabew.png"
screen 0,512,512
picload "stage.png"


repeat 128
a=cnt
repeat 128
gsel 1
b=cnt
pget a,b
if ginfo_r==255{//流体部分は必ず塗りつぶし
	gsel 0
	color 255,255,255
	repeat 16
	pset a*4+cnt\4,b*4+cnt/4
	loop
}
loop
loop

gsel 0

cvbuffer 0,512,512	; 空のCVバッファを作成
cvputimg 0		; HSPの画面をバッファに転送
cvsave sname,0		; CVバッファの内容を保存

delete "obj"
delete "hsptmp"
end