Collision groups setup/demo

[DruggedBunnyParticipant]

Not the most intuitive demo to play, but this basically shows how to enable collisions betweens different types of objects, so the collision setup within the code is the important part here.

In this case, the different types are represented by red, blue and yellow cubes. Use the white ball to bash cubes against each other — red collide against red, blue against blue and yellow against yellow; any other combination will fail to collide, which can be seen by the flickering intersections.

Setting it all up is a little mind-bending, but it’s not actually too different to Blitz3D now that (I think) I’ve got it…

See comments to enable red/yellow collisions, for example:

Monkey

[crayon-5cb9a1e6c60cb489898619 inline="true" ] ' #Import "<std>" #Import "<mojo3d>" Using std.. Using mojo.. Using mojo3d.. Global AppName:String = "My 3D Game" Class Game Extends Window Const SHIFT_BOOST:Float = 5.0 Field camera_boost:Float = 1.0 ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light ' Test cube... Field cube:Model Field c_body:RigidBody Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags) SeedRnd (Millisecs ()) #Rem Bullet uses a signed short int to store the collision groups and the collision masks. This means you can have up to 15 different groups, and 15 different masks. ...collision masks must match both ways for there to be a collision. #End ' Collision types (MASKS) Local COLL_NOTHING:Short = 0 Local COLL_GROUND:Short = 1 Local COLL_CUBE:Short = 2 Local COLL_RED:Short = 4 Local COLL_BLUE:Short = 8 Local COLL_YELLOW:Short = 16 ' ----------------------------------- ' Collision groups ' ----------------------------------- ' Ground collides with all cubes Local GROUND_COLLIDES_WITH:Short = COLL_CUBE | COLL_RED | COLL_BLUE | COLL_YELLOW ' Player cube collides with ground and all other cubes Local CUBE_COLLIDES_WITH:Short = COLL_GROUND | COLL_RED | COLL_BLUE | COLL_YELLOW ' Red only collides with Red ' Blue only collides with Blue ' Yellow only collides with Yellow ' All additionally collide with ground and (player) cube ' To allow Red to collide with Yellow, uncomment first and last lines here: Local RED_COLLIDES_WITH:Short = COLL_GROUND | COLL_RED | COLL_CUBE ' | COLL_YELLOW Local BLUE_COLLIDES_WITH:Short = COLL_GROUND | COLL_BLUE | COLL_CUBE Local YELLOW_COLLIDES_WITH:Short = COLL_GROUND | COLL_YELLOW | COLL_CUBE ' | COLL_RED scene = Scene.GetCurrent () camera = New Camera camera.Near = 0.1 camera.Move (0, 10, -2) Local north:Model = Model.CreateCone (5, 10, Axis.Y, 32, New PbrMaterial (Color.HotPink)) north.Move (0, 0, 10) light = New Light light.Move (-100, 100, -100) light.CastsShadow = True ' All cubes use this box size... Local c_box:Boxf = New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5) ' Player cube (white) ' cube = Model.CreateBox (c_box, 2, 2, 2, New PbrMaterial (Color.Aluminum)) cube = Model.CreateSphere (0.5, 16, 16, New PbrMaterial (Color.Aluminum)) cube.Move (0, 10, 0) cube.Rotate (0, 45, 0) ' Local c_coll:BoxCollider = cube.AddComponent <BoxCollider> () Local c_coll:SphereCollider = cube.AddComponent <SphereCollider> () ' c_coll.Box = c_box c_coll.Radius = 0.5 c_body = cube.AddComponent <RigidBody> () c_body.CollisionMask = COLL_CUBE c_body.CollisionGroup = CUBE_COLLIDES_WITH ' Red cubes For Local loop:Int = 1 To 10 Local red_cube:Model red_cube = Model.CreateBox (c_box, 2, 2, 2, New PbrMaterial (Color.Red)) red_cube.Move (Rnd (-5, 5), Rnd (5.5, 20), Rnd (-5, 5)) red_cube.Rotate (0, Rnd (360), 0) Local red_coll:BoxCollider = red_cube.AddComponent <BoxCollider> () red_coll.Box = c_box Local red_body:RigidBody = red_cube.AddComponent <RigidBody> () red_body.Mass = 1.0 red_body.CollisionMask = COLL_RED red_body.CollisionGroup = RED_COLLIDES_WITH Next ' Blue cubes For Local loop:Int = 1 To 10 Local blue_cube:Model blue_cube = Model.CreateBox (c_box, 2, 2, 2, New PbrMaterial (Color.Blue)) blue_cube.Move (Rnd (-5, 5), Rnd (5.5, 20), Rnd (-5, 5)) blue_cube.Rotate (0, Rnd (360), 0) Local blue_coll:BoxCollider = blue_cube.AddComponent <BoxCollider> () blue_coll.Box = c_box Local blue_body:RigidBody = blue_cube.AddComponent <RigidBody> () blue_body.Mass = 1.0 blue_body.CollisionMask = COLL_BLUE blue_body.CollisionGroup = BLUE_COLLIDES_WITH Next ' Yellow cubes For Local loop:Int = 1 To 10 Local yellow_cube:Model yellow_cube = Model.CreateBox (c_box, 2, 2, 2, New PbrMaterial (Color.Yellow)) yellow_cube.Move (Rnd (-5, 5), Rnd (5.5, 20), Rnd (-5, 5)) yellow_cube.Rotate (0, Rnd (360), 0) Local yellow_coll:BoxCollider = yellow_cube.AddComponent <BoxCollider> () yellow_coll.Box = c_box Local yellow_body:RigidBody = yellow_cube.AddComponent <RigidBody> () yellow_body.Mass = 1.0 yellow_body.CollisionMask = COLL_YELLOW yellow_body.CollisionGroup = YELLOW_COLLIDES_WITH Next ' Ground Local g_box:Boxf = New Boxf (-100, -5, -100, 100, 5, 100) Local ground:Model = Model.CreateBox (g_box, 4, 4, 4, New PbrMaterial (Color.Green * 0.25)) Local g_coll:BoxCollider = ground.AddComponent <BoxCollider> () g_coll.Box = g_box Local g_body:RigidBody = ground.AddComponent <RigidBody> () g_body.Mass = 0.0 g_body.CollisionMask = COLL_GROUND g_body.CollisionGroup = GROUND_COLLIDES_WITH light.PointAt (ground) End Method OnRender (canvas:Canvas) Override ProcessInput () RequestRender () scene.Update () scene.Render (canvas) canvas.DrawText ("Cubes of different colours SHOULD intersect (will flicker)!", 20, 20) canvas.DrawText ("Cubes of same colours should collide when pushed together", 20, 40) canvas.DrawText ("Try to bash same-coloured cubes together to see them collide!", 20, 80) canvas.DrawText ("Cursors control white ball", 20, 120) End Method ProcessInput:Void () camera.PointAt (cube) If Keyboard.KeyHit (Key.Space) Then light.CastsShadow = Not light.CastsShadow If Keyboard.KeyHit (Key.Escape) Then App.Terminate () If Keyboard.KeyDown (Key.Left) c_body.ApplyImpulse (camera.Basis * New Vec3f (-0.2, 0, 0)) Endif If Keyboard.KeyDown (Key.Right) c_body.ApplyImpulse (camera.Basis * New Vec3f (0.2, 0, 0)) Endif If Keyboard.KeyDown (Key.Up) c_body.ApplyImpulse (camera.Basis * New Vec3f (0, 0, 0.2)) Endif If Keyboard.KeyDown (Key.Down) c_body.ApplyImpulse (camera.Basis * New Vec3f (0, 0, -0.2)) Endif End End Function Main () ' Windowed mode... Local width:Int = 640 Local height:Int = 480 Local flags:WindowFlags = WindowFlags.Center New AppInstance New Game (AppName, width, height, flags) App.Run () End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274

[crayon-5cb9a1e6c60cb489898619 inline="true" ] '   #Import "<std>" #Import "<mojo3d>"   Using std.. Using mojo.. Using mojo3d..   Global AppName:String = "My 3D Game"   Class Game Extends Window Const SHIFT_BOOST:Float = 5.0 Field camera_boost:Float = 1.0 ' Basic 3D scene requirements... Field scene:Scene Field camera:Camera Field light:Light ' Test cube... Field cube:Model Field c_body:RigidBody Method New (title:String, width:Int, height:Int, flags:WindowFlags) Super.New (title, width, height, flags)   SeedRnd (Millisecs ()) #Rem   Bullet uses a signed short int to store the collision groups and the collision masks. This means you can have up to 15 different groups, and 15 different masks.   ...collision masks must match both ways for there to be a collision.   #End   ' Collision types (MASKS) Local COLL_NOTHING:Short = 0 Local COLL_GROUND:Short = 1 Local COLL_CUBE:Short = 2 Local COLL_RED:Short = 4 Local COLL_BLUE:Short = 8 Local COLL_YELLOW:Short = 16   ' ----------------------------------- ' Collision groups ' ----------------------------------- ' Ground collides with all cubes Local GROUND_COLLIDES_WITH:Short = COLL_CUBE | COLL_RED | COLL_BLUE | COLL_YELLOW   ' Player cube collides with ground and all other cubes Local CUBE_COLLIDES_WITH:Short = COLL_GROUND | COLL_RED | COLL_BLUE | COLL_YELLOW ' Red only collides with Red ' Blue only collides with Blue ' Yellow only collides with Yellow   ' All additionally collide with ground and (player) cube ' To allow Red to collide with Yellow, uncomment first and last lines here: Local RED_COLLIDES_WITH:Short = COLL_GROUND | COLL_RED | COLL_CUBE ' | COLL_YELLOW Local BLUE_COLLIDES_WITH:Short = COLL_GROUND | COLL_BLUE | COLL_CUBE Local YELLOW_COLLIDES_WITH:Short = COLL_GROUND | COLL_YELLOW | COLL_CUBE ' | COLL_RED scene = Scene.GetCurrent () camera = New Camera camera.Near = 0.1 camera.Move (0, 10, -2) Local north:Model = Model.CreateCone (5, 10, Axis.Y, 32, New PbrMaterial (Color.HotPink)) north.Move (0, 0, 10) light = New Light light.Move (-100, 100, -100) light.CastsShadow = True   ' All cubes use this box size... Local c_box:Boxf = New Boxf (-0.5, -0.5, -0.5, 0.5, 0.5, 0.5)   ' Player cube (white)   ' cube = Model.CreateBox (c_box, 2, 2, 2, New PbrMaterial (Color.Aluminum)) cube = Model.CreateSphere (0.5, 16, 16, New PbrMaterial (Color.Aluminum)) cube.Move (0, 10, 0) cube.Rotate (0, 45, 0)   ' Local c_coll:BoxCollider = cube.AddComponent <BoxCollider> () Local c_coll:SphereCollider = cube.AddComponent <SphereCollider> () ' c_coll.Box = c_box c_coll.Radius = 0.5 c_body = cube.AddComponent <RigidBody> ()   c_body.CollisionMask = COLL_CUBE c_body.CollisionGroup = CUBE_COLLIDES_WITH   ' Red cubes For Local loop:Int = 1 To 10 Local red_cube:Model red_cube = Model.CreateBox (c_box, 2, 2, 2, New PbrMaterial (Color.Red)) red_cube.Move (Rnd (-5, 5), Rnd (5.5, 20), Rnd (-5, 5)) red_cube.Rotate (0, Rnd (360), 0) Local red_coll:BoxCollider = red_cube.AddComponent <BoxCollider> () red_coll.Box = c_box Local red_body:RigidBody = red_cube.AddComponent <RigidBody> ()   red_body.Mass = 1.0 red_body.CollisionMask = COLL_RED red_body.CollisionGroup = RED_COLLIDES_WITH   Next   ' Blue cubes For Local loop:Int = 1 To 10 Local blue_cube:Model blue_cube = Model.CreateBox (c_box, 2, 2, 2, New PbrMaterial (Color.Blue)) blue_cube.Move (Rnd (-5, 5), Rnd (5.5, 20), Rnd (-5, 5)) blue_cube.Rotate (0, Rnd (360), 0) Local blue_coll:BoxCollider = blue_cube.AddComponent <BoxCollider> () blue_coll.Box = c_box Local blue_body:RigidBody = blue_cube.AddComponent <RigidBody> ()   blue_body.Mass = 1.0   blue_body.CollisionMask = COLL_BLUE blue_body.CollisionGroup = BLUE_COLLIDES_WITH   Next   ' Yellow cubes For Local loop:Int = 1 To 10 Local yellow_cube:Model yellow_cube = Model.CreateBox (c_box, 2, 2, 2, New PbrMaterial (Color.Yellow)) yellow_cube.Move (Rnd (-5, 5), Rnd (5.5, 20), Rnd (-5, 5)) yellow_cube.Rotate (0, Rnd (360), 0) Local yellow_coll:BoxCollider = yellow_cube.AddComponent <BoxCollider> () yellow_coll.Box = c_box Local yellow_body:RigidBody = yellow_cube.AddComponent <RigidBody> ()   yellow_body.Mass = 1.0   yellow_body.CollisionMask = COLL_YELLOW yellow_body.CollisionGroup = YELLOW_COLLIDES_WITH   Next   ' Ground   Local g_box:Boxf = New Boxf (-100, -5, -100, 100, 5, 100) Local ground:Model = Model.CreateBox (g_box, 4, 4, 4, New PbrMaterial (Color.Green * 0.25)) Local g_coll:BoxCollider = ground.AddComponent <BoxCollider> () g_coll.Box = g_box Local g_body:RigidBody = ground.AddComponent <RigidBody> () g_body.Mass = 0.0   g_body.CollisionMask = COLL_GROUND g_body.CollisionGroup = GROUND_COLLIDES_WITH   light.PointAt (ground) End Method OnRender (canvas:Canvas) Override ProcessInput () RequestRender () scene.Update () scene.Render (canvas)   canvas.DrawText ("Cubes of different colours SHOULD intersect (will flicker)!", 20, 20) canvas.DrawText ("Cubes of same colours should collide when pushed together", 20, 40) canvas.DrawText ("Try to bash same-coloured cubes together to see them collide!", 20, 80) canvas.DrawText ("Cursors control white ball", 20, 120) End   Method ProcessInput:Void ()   camera.PointAt (cube) If Keyboard.KeyHit (Key.Space) Then light.CastsShadow = Not light.CastsShadow   If Keyboard.KeyHit (Key.Escape) Then App.Terminate () If Keyboard.KeyDown (Key.Left) c_body.ApplyImpulse (camera.Basis * New Vec3f (-0.2, 0, 0)) Endif If Keyboard.KeyDown (Key.Right) c_body.ApplyImpulse (camera.Basis * New Vec3f (0.2, 0, 0)) Endif If Keyboard.KeyDown (Key.Up) c_body.ApplyImpulse (camera.Basis * New Vec3f (0, 0, 0.2)) Endif If Keyboard.KeyDown (Key.Down) c_body.ApplyImpulse (camera.Basis * New Vec3f (0, 0, -0.2)) Endif   End   End Function Main () ' Windowed mode... Local width:Int = 640 Local height:Int = 480 Local flags:WindowFlags = WindowFlags.Center New AppInstance New Game (AppName, width, height, flags) App.Run () End

[/crayon]

[Author]

Posts