PureBasic Forums - English

Code: Select all

body = cpBodyNew(bla,blub)

body\p\x = Xcoor
body\p\y = Ycoor
body\m   = mass
body\i   = momentOfInertia
body\v\x = Xvelocity
body\v\y = Yvelocity
body\f\x = Xforce
body\f\y = Yforce
body\a   = angle
body\t   = torque

shape = cpPolyShapeNew(bla,blub,gna,wup)

shape\e  = elasticity
shape\u  = friction
shape\collision_type = collision_layers
shape\group = collision_groups

Code: Select all

   *mybody = cpBodyNew(1, cpMomentForCircle(1, 0,24, cpv(cpvzero,0,0)) ): cpSpaceAddBody(*space,*mybody)
   *myshape=cpCircleShapeNew(*mybody, radius, @cpvzero): cpSpaceAddShape(*space,*myshape)

*mybody2 = cpBodyNew(1, cpMomentForBox(1, 170,20)): cpSpaceAddBody(*space,*mybody2)
*myshape2=cpBoxShapeNew(*mybody2, 170,20): cpSpaceAddShape(*space,*myshape2)

Code: Select all

;first you have to give your shape a collision type, like

#ball=1
#wall=2

*myshape1\collision_type = #ball
*myshape2\collision_type = #ball
*myshape3\collision_type = #wall

;in the callbacks we want to get the bodies to get for example the collision coordinates
*myshape1\data = *mybody1
*myshape2\data = *mybody2
*myshape3\data = *mybody3

;now if you want to get the collision between a ball and a wall, create a collision handler:
cpSpaceAddCollisionHandler(*space, #ball, #wall,  @col_begin(), @col_preSolve(), @col_postSolve(), @col_seperate(), #Null)

;these one is now mapping to the functions:
ProcedureC col_begin(*arb.cpArbiter, *space.cpSpace, *pData)
  Debug "begin"
  ProcedureReturn #true
EndProcedure
ProcedureC col_preSolve(*arb.cpArbiter, *space.cpSpace, *pData)
  Debug "pre"
  ProcedureReturn #true
EndProcedure
ProcedureC col_postSolve(*arb.cpArbiter, *space.cpSpace, *pData)
  Debug "post"
  ProcedureReturn #true
EndProcedure
ProcedureC col_seperate(*arb.cpArbiter, *space.cpSpace, *pData)
  Debug "seperate"
  ProcedureReturn #true
EndProcedure

;the arbiter gives you every information about the collision you need.
;But never store the pointer to the arbiter itself!
;Outside of this callback it may not exist anymore.
;So grab your information and go, too example:

ProcedureC col_begin(*arb.cpArbiter, *space.cpSpace, *pData)
  
  ;we stored the body pointer in the shapes data. This can be found in *arb\private_a\data etc, so now we can get the bodies
  Protected *bodyA.cpbody = *arb\private_a\data
  Protected *bodyB.cpbody = *arb\private_b\data
  
  Debug "new collision at " + StrF(*bodyA\v\x,2) + " " +  StrF(*bodyA\v\y,2)
  
  ProcedureReturn #true
EndProcedure

;if you want to get collision between the two balls, you can just add a new handler:
cpSpaceAddCollisionHandler(*space, #ball, #ball,  @col_begin(), @col_preSolve(), @col_postSolve(), @col_seperate(), #Null)
;the callback functions can be the same or differ, your choice.

Code: Select all

Structure object
  *body.cpbody
  *shape.cpshape
  allOtherInfosYouWantToStore.i
EndStructure

Global NewList obj.object()

Procedure createBall()
  AddElement(obj())
  obj()\Body = cpBodyNew......
  obj()\shape = cpCircleShape.....
  obj()\allOtherInfosYouWantToStore = ....
EndProcedure

ForEach obj()
  Debug StrF(obj()\Body\p\x,2) + " " + StrF(obj()\Body\p\y,2)
Next

Code: Select all

cpVect cpArbiterTotalImpulse(cpArbiter *arb);
cpVect cpArbiterTotalImpulseWithFriction(cpArbiter *arb);
Returns the impulse that was applied this step to resolve the collision. These functions should only be called from a postStep() or cpBodyEachArbiter() callback, otherwise the result is undefined.