#uselib "wave.hpi"
#func wave_init		wave_init	2
#func wave_setsrc	wave_setsrc	2
#func wave_do		wave_do		2
#func wave_pop		wave_pop	2
#func wave_wall		wave_wall	2
#func wave_bye		wave_bye	$100

	buffer 2,200,150,0:palcolor 55:boxf
;	picload "e:\\hsp\\sample\\demo\\hsp2ttl.jpg",1
;	dialog "JPG",16:if stat :picload refstr,1
	picload "back.jpg",1
	wave_setsrc

	screen 0,winx,winy,0
	wave_init 80

	repeat
		stick bt,768;512
		if bt&256 : wave_pop mousex,mousey
		if bt&512 : {
			mx=mousex:my=mousey
			wave_wall mx,my,1
			wave_wall mx-1,my,1
			wave_wall mx+1,my,1
			wave_wall mx,my-1,1
			wave_wall mx,my+1,1
		}
		wave_do
		redraw 1:await 15
	loop
stop