Box/Circle collisions

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|714\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Collisions and Physics

Jayenkai	Created : 06 March 2009 Language : Blitz Box/Circle collisions Really really simple bog standard collisions..
Graphics 800,600,32,2 SetBuffer BackBuffer() Repeat Cls Oval MouseX()-32,MouseY()-32,65,65,0 Rect MouseX()-32,MouseY()-32,65,65,0 Color 255,255,255 If Sqr(((100-MouseX())(100-MouseX())) +((400-MouseY())(400-MouseY())) )<65 Then Color 255,0,0 Oval 100-32,400-32,65,65,0 Color 255,255,255 If Abs(700-MouseX())<65 And Abs(400-MouseY())<65 Then Color 0,0,255 Rect 700-32,400-32,65,65,0 Flip Until KeyDown(1) --v Just your basic bog standard collision stuff. Box vs Box = Abs(x) and Abs(y) checks. Circle vs Circle = Sqr((xx)+(yy)) check. (Pythagoras) Probably useful for folk!

Comments