//512	256
//92	46

siro=170+241+255
ofst=80
arfa=0

	buffer 1:picload "0.png"
	buffer 2,512,92
	gsel 0

	repeat 512
	ccnt=cnt
		repeat 92
		gsel 1
		pget ccnt,cnt
		arfa=(siro+ofst-(ginfo_r+ginfo_g+ginfo_b))*4/5
		if arfa<0:arfa=0
		gsel 2
		tmpx=1.0*ccnt      -256:tmpx/=1.34
		tmpy=1.0*cnt/46*256-256:tmpy/=1.0
		tmp=sqrt(tmpx*tmpx+tmpy*tmpy)
		leng=limitf((256.0-tmp)*1.35,0.0,350.0)
		leng=leng*arfa/190.0
		leng=limitf(leng,0.0,255.0)
		color leng,leng,leng
		pset ccnt,cnt
		loop
	loop

	gsel 2
	bmpsave "arf.bmp"
	end