Faster collision detections

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|429\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Faster collision detections
Sun, 18 Mar 2007, 13:38
mike_g	Heres something I just came up with. It cuts out some unecessary checks when doing collision detections. Its only a rough start and I imagine that it can be made quite a bit faster but it goes to show how many duplicate collison checks get done by using the simple collision detection method. Graphics 400, 400, 32, 2 SetBuffer BackBuffer() Global count, count2 Type thing Field x, y End Type For i = 1 To 400 t.thing = New thing t\x=Rand(0, 390): t\y=Rand(0, 390) Next ;Run fast collision detection for one frame For t.thing = Each thing Color Rand(100, 200), Rand(100, 200), Rand(100, 200) Rect t\x, t\y, 10, 10, 1 Next time = MilliSecs() FAST_COLLISION_DETECT_EXAMPLE() time2 = MilliSecs()-time Color 255, 255, 255 Text 10, 10, "FAST COLLISION DETECTION" Text 10, 20, "There are "+count+" collisions" Text 10, 30, "This took "+time2+" millisecs" Flip WaitKey Cls ;Run normal collision detection for one frame count =0 For t.thing = Each thing Color Rand(100, 200), Rand(100, 200), Rand(100, 200) Rect t\x, t\y, 10, 10, 1 Next time = MilliSecs() NORMAL_COLLISION_DETECT_EXAMPLE() time2 = MilliSecs()-time Color 255, 255, 255 Text 10, 10, "NORMAL COLLISION DETECTION" Text 10, 20, "There are "+count+" collisions" Text 10, 30, "This took "+time2+" millisecs" Flip WaitKey ;////////////////////////////////////////////////// Function NORMAL_COLLISION_DETECT_EXAMPLE() For t.thing = Each thing For t2.thing = Each thing If RectsOverlap(t\x, t\y, 10, 10, t2\x, t2\y, 10, 10) Then count = count + 1 Next Next End Function ;///////////////////////////////////////////////// Function FAST_COLLISION_DETECT_EXAMPLE() For t.thing = Each thing go = 0 For t2.thing = Each thing If go = 1 If RectsOverlap(t\x, t\y, 10, 10, t2\x, t2\y, 10, 10) Then count = count + 1 EndIf If t2 = t Then go = 1 Next Next End Function --v \|edit\| If ayone has any suggestions to make this faster I would like to hear them \|edit\|