3D Collisions

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

Scherererer	Created : 26 September 2006 Language : Blitz 3D Collisions 3D Collisions and detecting which object collided
Graphics3D 800,600 Const USER = 1, CUBE = 2 ; Collision constants, technically we can just use the numbers, but this makes it easier to read ; Creating a camera cam = CreateCamera() EntityType cam, USER ; Assign it a type so it knows how its colliding EntityRadius cam, 2 ; the imaginary sphere around the camera that acts as the collision object ; Make and objects type with an entity field Type objects Field entity End Type ; This function just creates an object, and is all wrapped up so we can easily make as many as we want ; without repeating code Function objects.objects(x,y,z) o.objects = New objects ; Create the object o\entity = CreateCube() ; Give it a mesh so that we can see it EntityType o\entity, CUBE ; Tell it what type of object it is, so it can identify it in the collisions PositionEntity o\entity, x, y, z ; Position it End Function ; creating a few objects around the map to collide with objects(0,0,20) objects(5,0,15) objects(-5,0,15) objects(15,0,0) ; lets tell blitz what's going to be colliding with what, and what way to tell it that its colliding Collisions USER, CUBE, 2, 3 While Not KeyDown(1) UpdateWorld ;this is where the actual collisions are calculated RenderWorld ; Checks to see if an object collided, if so it changes red For o.objects = Each objects If EntityCollided(cam, CUBE) = o\entity EntityColor o\entity, 255, 0,0 EndIf Next ; ----------------- ; All this does is move the camera around If KeyDown(200) TurnEntity cam,.1,0,0 ElseIf KeyDown(208) TurnEntity cam,-.1,0,0 EndIf If KeyDown(205) TurnEntity cam,0,-.3,0 ElseIf KeyDown(203) TurnEntity cam,0,.3,0 EndIf If KeyDown(30) MoveEntity cam,0,0,.1 ElseIf KeyDown(44) MoveEntity cam,0,0,-.1 EndIf ; End camera movement code Flip ; flip the buffer Wend --v

Comments

Comments