CollideImage Function?

BlitzMax Forums/BlitzMax Beginners Area/CollideImage Function?

They're not quad tests, they ARE pixel perfect tests. Even the docs say this and it doesn't take long to test it...

Graphics 640,480

Global box:TImage=CreateImage(64,64)
Global circle:TImage=CreateImage(64,64)

SetColor 255,0,0
DrawRect 0,0,64,64
GrabImage box,0,0

Cls
SetColor 0,255,0
DrawOval 0,0,64,64
GrabImage circle,0,0

SetColor 255,255,255

While Not KeyHit(key_escape)
	Local mx:Int=MouseX(),my:Int=MouseY()
	Cls
	DrawImage box,288,208
	DrawImage circle,mx-32,my-32
	If ImagesCollide(box,288,208,0,circle,mx-32,my-32,0) Then DrawText "Collision",10,10
	Flip;FlushMem
Wend