Pepper Proton

Miscellaneous Forums/Blitz Showcase/Pepper Proton

hmmm.. thats a problem, works on some but not on others. I'm trying to locate the problem. Jeroen, did you unpack the entire folder and its sub-directories?

Ah, i think i found out the problem
For dog = 0 To height
	For cat = 0 To width
		pix = ReadPixelFast(cat,dog)
		red = rcolor(pix,16)
		green = rcolor(pix,8)
		blue = rcolor(pix,0)
		
		dist = Sqr((red-r)*(red-r)+(green-g)*(green-g)+(blue-b)*(blue-b))
		
		If dist <= thres
			Color r,g,b
			pix = intcolor(0,255,0)
			WritePixelFast(cat,dog,pix)
		EndIf
	Next
Next


Shouldn't it be this?
For dog = 0 To height-1 ;Change this too?
	For cat = 0 To width-1 ;Change this right?
		pix = ReadPixelFast(cat,dog)
		red = rcolor(pix,16)
		green = rcolor(pix,8)
		blue = rcolor(pix,0)
		
		dist = Sqr((red-r)*(red-r)+(green-g)*(green-g)+(blue-b)*(blue-b))
		
		If dist <= thres
			Color r,g,b
			pix = intcolor(0,255,0)
			WritePixelFast(cat,dog,pix)
		EndIf
	Next
Next


I'll update the executable as soon as possible