Chipmunk queries

[peterigzParticipant]

Having trouble figuring out how to use cpSpaceBBQuery (and I assume I’ll have trouble with the other queries as well). I guess I’m not using pointers properly but not sure how, anyone any ideas? Getting the error:

 Can’t find overload for ‘cpSpaceBBQuery:Void(chipmunk.cpSpace,chipmunk.cpBB,chipmunk.cpShapeFilter,Void(chipmunk.cpShape,Void Ptr),Void Ptr)’ with argument types (chipmunk.cpSpace,chipmunk.cpBB,chipmunk.cpShapeFilter,Void(chipmunk.cpShape,Void),Void Ptr)

Have tried with lambda, function pointer and various other things. I’d like to pass in some meaningful data as well… test code:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<chipmunk>" #Import "chipmunkdebugger" Using std.. Using mojo.. Using chipmunk.. Class HelloChipmunk Extends Window Field space:cpSpace Field ground:cpShape Field ballBody:cpBody Field ballShape:cpShape Field ballBody2:cpBody Field ballShape2:cpShape Field polyBody:cpBody Field polyShape:cpShape Field debugger:=New ChipmunkDebugger Method New() ClearColor=Color.Black 'Create a new space and set its gravity to 100 ' space=cpSpaceNew() space.Gravity=cpv( 0,1000 ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() Const timeStep:=1.0/60.0 space.StepTime( timeStep ) ' Local rot:=ballBody.Rotation ' Local pos:=ballBody.Position ' Local vel:=ballBody.Velocity ' Print "ball rot="+ATan2( rot.y,rot.x )+", pos.x="+pos.x+", pos.y="+pos.y+", vel.x="+vel.x+", vel.y="+vel.y Local spacefilter:=cpShapeFilterNew(0, 1, 1 ) Local Test:void cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, Lambda:Void(shape:cpShape, p:Void) End, Varptr Test) canvas.Translate( Width/2, Height/2 ) debugger.DebugDraw( canvas,space ) End Function CallBack:Void(shape:cpShape, p:Void) End Method Cleanup() 'Yeah, right! cpShapeFree( ballShape ) cpBodyFree( ballBody ) cpShapeFree( ground ) cpSpaceFree( space ) End End Function Main() New AppInstance New HelloChipmunk 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

#Import "<std>" #Import "<mojo>" #Import "<chipmunk>"   #Import "chipmunkdebugger"   Using std.. Using mojo.. Using chipmunk..   Class HelloChipmunk Extends Window   Field space:cpSpace Field ground:cpShape Field ballBody:cpBody Field ballShape:cpShape   Field ballBody2:cpBody Field ballShape2:cpShape   Field polyBody:cpBody Field polyShape:cpShape Field debugger:=New ChipmunkDebugger Method New() ClearColor=Color.Black   'Create a new space and set its gravity to 100 ' space=cpSpaceNew() space.Gravity=cpv( 0,1000 )   End   Method OnRender( canvas:Canvas ) Override App.RequestRender() Const timeStep:=1.0/60.0 space.StepTime( timeStep ) ' Local rot:=ballBody.Rotation ' Local pos:=ballBody.Position ' Local vel:=ballBody.Velocity ' Print "ball rot="+ATan2( rot.y,rot.x )+", pos.x="+pos.x+", pos.y="+pos.y+", vel.x="+vel.x+", vel.y="+vel.y   Local spacefilter:=cpShapeFilterNew(0, 1, 1 ) Local Test:void   cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, Lambda:Void(shape:cpShape, p:Void) End, Varptr Test) canvas.Translate( Width/2, Height/2 ) debugger.DebugDraw( canvas,space ) End Function CallBack:Void(shape:cpShape, p:Void) End Method Cleanup() 'Yeah, right! cpShapeFree( ballShape ) cpBodyFree( ballBody ) cpShapeFree( ground ) cpSpaceFree( space ) End   End   Function Main()   New AppInstance New HelloChipmunk App.Run() End

The chipmunk docs for AABB queries is here for reference: http://chipmunk-physics.net/release/ChipmunkLatest-Docs/#Queries-AABBQueries

[codifiesParticipant]

initial guess would be to try using a function instead of a lambda ?

[peterigzParticipant]

I tried that first, see the CallBack function in the class, but unfortunately same issue. The void pointers are confusing me, as far as I know they are function pointers but in the chipmunk docs it seems you can pass data. I’m don’t know much about c though!

[codifiesParticipant]

afaik you’d still need to cast the value to a void pointer tho… better yet a void pointer to a struct

– sorry the lambda was only a guess, do let us all know how you get on, examples of stuff like this would be rather useful…

[peterigzParticipant]

Thanks. It was Ptr I was missing, this compiles ok now, will see how it goes with an actual sample and data going through it:

Monkey

cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, Lambda:Void(shape:cpShape, p:Void Ptr) End, Varptr Test)

1 2 3

cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, Lambda:Void(shape:cpShape, p:Void Ptr)   End, Varptr Test)

Works with the callback as well.

[peterigzParticipant]

Next problem is the UserData in cpShape, I’m having trouble casting it to anything. It does equal something but gives a memory access error if I try and access it. This feels like a bug in Monkey now but not sure:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<chipmunk>" #Import "chipmunkdebugger" Using std.. Using mojo.. Using chipmunk.. Struct somedata Field value:Int End Class HelloChipmunk Extends Window Field space:cpSpace Field ground:cpShape Field ballBody:cpBody Field ballShape:cpShape Field ballBody2:cpBody Field ballShape2:cpShape Field polyBody:cpBody Field polyShape:cpShape Field debugger:=New ChipmunkDebugger Method New() ClearColor=Color.Black 'Create a new space and set its gravity to 100 ' space=cpSpaceNew() space.Gravity=cpv( 0,1000 ) Local data:=New MyClass Local body:= cpBodyNewStatic() body.Position = cpv(100,100) space.AddBody(body) Local shape:= cpBoxShapeNew(body, 50, 50, 0.0) shape.Friction = 1 shape.UserData = Varptr(data) space.AddShape(shape) End Method OnRender( canvas:Canvas ) Override App.RequestRender() Const timeStep:=1.0/60.0 space.StepTime( timeStep ) ' Local rot:=ballBody.Rotation ' Local pos:=ballBody.Position ' Local vel:=ballBody.Velocity ' Print "ball rot="+ATan2( rot.y,rot.x )+", pos.x="+pos.x+", pos.y="+pos.y+", vel.x="+vel.x+", vel.y="+vel.y Local spacefilter:=cpShapeFilterNew(0, 1, 1 ) Local Test:=Self cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, CallBack, Varptr Test) canvas.Translate( Width/2, Height/2 ) debugger.DebugDraw( canvas,space ) End Function CallBack:Void(shape:cpShape, p:Void Ptr) Local data:=Cast<MyClass Ptr>(shape.UserData)[0] Local app:=Cast<HelloChipmunk Ptr>(p)[0] If data Print data.Test End End Method Cleanup() 'Yeah, right! cpShapeFree( ballShape ) cpBodyFree( ballBody ) cpShapeFree( ground ) cpSpaceFree( space ) End End Class MyClass Field Test:String = "Something" End Function Main() New AppInstance New HelloChipmunk 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

#Import "<std>" #Import "<mojo>" #Import "<chipmunk>"   #Import "chipmunkdebugger"   Using std.. Using mojo.. Using chipmunk..   Struct somedata Field value:Int End   Class HelloChipmunk Extends Window   Field space:cpSpace Field ground:cpShape Field ballBody:cpBody Field ballShape:cpShape   Field ballBody2:cpBody Field ballShape2:cpShape   Field polyBody:cpBody Field polyShape:cpShape Field debugger:=New ChipmunkDebugger Method New() ClearColor=Color.Black   'Create a new space and set its gravity to 100 ' space=cpSpaceNew() space.Gravity=cpv( 0,1000 ) Local data:=New MyClass Local body:= cpBodyNewStatic() body.Position = cpv(100,100) space.AddBody(body) Local shape:= cpBoxShapeNew(body, 50, 50, 0.0) shape.Friction = 1 shape.UserData = Varptr(data) space.AddShape(shape)   End   Method OnRender( canvas:Canvas ) Override App.RequestRender() Const timeStep:=1.0/60.0 space.StepTime( timeStep ) ' Local rot:=ballBody.Rotation ' Local pos:=ballBody.Position ' Local vel:=ballBody.Velocity ' Print "ball rot="+ATan2( rot.y,rot.x )+", pos.x="+pos.x+", pos.y="+pos.y+", vel.x="+vel.x+", vel.y="+vel.y   Local spacefilter:=cpShapeFilterNew(0, 1, 1 ) Local Test:=Self   cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, CallBack, Varptr Test) canvas.Translate( Width/2, Height/2 ) debugger.DebugDraw( canvas,space ) End Function CallBack:Void(shape:cpShape, p:Void Ptr) Local data:=Cast<MyClass Ptr>(shape.UserData)[0] Local app:=Cast<HelloChipmunk Ptr>(p)[0]   If data Print data.Test End End Method Cleanup() 'Yeah, right! cpShapeFree( ballShape ) cpBodyFree( ballBody ) cpShapeFree( ground ) cpSpaceFree( space ) End   End   Class MyClass Field Test:String = "Something" End   Function Main()   New AppInstance New HelloChipmunk App.Run() End

The App object that I’m passing in seems to cast fine though so that’s something.

[codifiesParticipant]

Monkey

[crayon-5cb9cf78deda9101174735 inline="true" ] /home/chris/development/monkey2-projects/chipmonk-test/test1.monkey2 [66] : Error : Can't find overload for 'cpShapeFilterNew:chipmunk.cpShapeFilter(Ulong,Uint,Uint)' with argument types (Int,Int,Int)

1 2 3

[crayon-5cb9cf78deda9101174735 inline="true" ] /home/chris/development/monkey2-projects/chipmonk-test/test1.monkey2 [66] : Error : Can't find overload for 'cpShapeFilterNew:chipmunk.cpShapeFilter(Ulong,Uint,Uint)' with argument types (Int,Int,Int)

[/crayon]

for

Monkey

[crayon-5cb9cf78dedaf870250441 inline="true" ] Local spacefilter:=cpShapeFilterNew(0, 1, 1 )

1 2 3

[crayon-5cb9cf78dedaf870250441 inline="true" ] Local spacefilter:=cpShapeFilterNew(0, 1, 1 )

[/crayon]

(Linux difference??)

so you might beat me to it, but you’re trying to print data.Test when it should probably be a ptr ? (initial guess!) edit: missed the [0] doh so not that…

[codifiesParticipant]

if you do this

Monkey

[crayon-5cb9cf78e28eb724780249 inline="true" ] Local data:=New MyClass Print data.Test

1 2 3 4

[crayon-5cb9cf78e28eb724780249 inline="true" ] Local data:=New MyClass Print data.Test

[/crayon]

then the whole thing works

I had to do this tho!

Monkey

[crayon-5cb9cf78e28f1087427067 inline="true" ] Local spacefilter:=cpShapeFilterNew(ULong(0), UInt(1), UInt(1) )

1 2 3

[crayon-5cb9cf78e28f1087427067 inline="true" ] Local spacefilter:=cpShapeFilterNew(ULong(0), UInt(1), UInt(1) )

[/crayon]

which seems wrong!

I think it might possibly be to do with string assignment and class creating but even if I assign Test in a MyClass’s new Method (and print it) the issue still exists the only thing that seems to work is if I print the field from outside the class

I’d say this is defiantly one to report on github

btw assume you know you can set body userdata ?

Probably teaching grannie to suck eggs here but I’d recommend wrapping all the body specific stuff into its own class and keeping it in its own seperate file, that way you can just create/draw and object and keep all the chipmonk stuff out of your main code. you could probably set a class global (static) field with things like world etc that you need for object creation…

[abakoboParticipant]

I haven’t read all the topic… but I made some little things with chipmunk: https://github.com/abakobo/chipmunk_monkey2

It includes a modified hellochipmunk.monkey2 with MouseJoint/DistanceQuery and a debugdraw with rounded end fat segment and rounded corner polys that were missing on Mark’s debugdraw.
The debugdraw also includes a “complete”/”fast draw” and a camera using affineMat3 matrix that you can test in the stress_test example. I plan to work on it a bit more but have no time for now..

For the mouse joint I use filter this way:

Monkey

[crayon-5cb9cf78e64b6075545116 inline="true" ]' This Filter is for collision and queries filtering, it's the filter received by default by shapes and shall collide with any other. ' The two last parameter are shown as bits because they are bitmasks Local FullGrabFilter:=cpShapeFilterNew(ULong(0),UInt(StringToULong("11111111111111111111111111111111",2)),UInt(StringToULong("11111111111111111111111111111111",2)))

1 2 3 4

[crayon-5cb9cf78e64b6075545116 inline="true" ]' This Filter is for collision and queries filtering, it's the filter received by default by shapes and shall collide with any other. ' The two last parameter are shown as bits because they are bitmasks Local FullGrabFilter:=cpShapeFilterNew(ULong(0),UInt(StringToULong("11111111111111111111111111111111",2)),UInt(StringToULong("11111111111111111111111111111111",2)))

[/crayon]

Used stringToULong because there’s no stringToUInt…

No data however..

As c2mx2 is not copying the api docs I use the original official C api doc: https://chipmunk-physics.net/release/ChipmunkLatest-API-Reference/

[peterigzParticipant]

Thanks for looking at this. Still the same issue here, I’m on Windows 10 so looks like there’s differences in behaviour as I don’t get the error on the filter (maybe I should?). Will post on GitHub as I think there’s something odd going on. This is the current test code with a separate function for a sanity check:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<chipmunk>" #Import "chipmunkdebugger" Using std.. Using mojo.. Using chipmunk.. Struct somedata Field value:Int End Class HelloChipmunk Extends Window Field space:cpSpace Field ground:cpShape Field ballBody:cpBody Field ballShape:cpShape Field ballBody2:cpBody Field ballShape2:cpShape Field polyBody:cpBody Field polyShape:cpShape Field something:String = "App String" Field debugger:=New ChipmunkDebugger Method New() ClearColor=Color.Black 'Create a new space and set its gravity to 100 ' space=cpSpaceNew() space.Gravity=cpv( 0,1000 ) Local data:=New MyClass Local body:= cpBodyNewStatic() body.Position = cpv(100,100) space.AddBody(body) Local shape:= cpBoxShapeNew(body, 50, 50, 0.0) shape.Friction = 1 shape.UserData = Varptr(data) space.AddShape(shape) TestCallBack(Varptr(data)) End Method OnRender( canvas:Canvas ) Override App.RequestRender() Const timeStep:=1.0/60.0 space.StepTime( timeStep ) ' Local rot:=ballBody.Rotation ' Local pos:=ballBody.Position ' Local vel:=ballBody.Velocity ' Print "ball rot="+ATan2( rot.y,rot.x )+", pos.x="+pos.x+", pos.y="+pos.y+", vel.x="+vel.x+", vel.y="+vel.y Local spacefilter:=cpShapeFilterNew(ULong(0), UInt(1), UInt(1) ) Local Test:=Self cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, CallBack, Varptr Test) canvas.Translate( Width/2, Height/2 ) debugger.DebugDraw( canvas,space ) End Function TestCallBack(d:Void Ptr) DebugStop() Local data:=Cast<MyClass Ptr>(d)[0] Print data.Test End Function CallBack:Void(shape:cpShape, p:Void Ptr) Local whatsthis:=cpShapeGetUserData(shape) Local data:=Cast<MyClass Ptr>(whatsthis)[0] Local app:=Cast<HelloChipmunk Ptr>(p)[0] DebugStop() If data Print app.something Print data.Test End End Method Cleanup() 'Yeah, right! cpShapeFree( ballShape ) cpBodyFree( ballBody ) cpShapeFree( ground ) cpSpaceFree( space ) End End Class MyClass Field Test:String = "Something in myclass" End Function Main() New AppInstance New HelloChipmunk 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

#Import "<std>" #Import "<mojo>" #Import "<chipmunk>"   #Import "chipmunkdebugger"   Using std.. Using mojo.. Using chipmunk..   Struct somedata Field value:Int End   Class HelloChipmunk Extends Window   Field space:cpSpace Field ground:cpShape Field ballBody:cpBody Field ballShape:cpShape   Field ballBody2:cpBody Field ballShape2:cpShape   Field polyBody:cpBody Field polyShape:cpShape Field something:String = "App String" Field debugger:=New ChipmunkDebugger Method New() ClearColor=Color.Black   'Create a new space and set its gravity to 100 ' space=cpSpaceNew() space.Gravity=cpv( 0,1000 ) Local data:=New MyClass Local body:= cpBodyNewStatic() body.Position = cpv(100,100) space.AddBody(body) Local shape:= cpBoxShapeNew(body, 50, 50, 0.0) shape.Friction = 1 shape.UserData = Varptr(data) space.AddShape(shape) TestCallBack(Varptr(data))   End   Method OnRender( canvas:Canvas ) Override App.RequestRender() Const timeStep:=1.0/60.0 space.StepTime( timeStep ) ' Local rot:=ballBody.Rotation ' Local pos:=ballBody.Position ' Local vel:=ballBody.Velocity ' Print "ball rot="+ATan2( rot.y,rot.x )+", pos.x="+pos.x+", pos.y="+pos.y+", vel.x="+vel.x+", vel.y="+vel.y   Local spacefilter:=cpShapeFilterNew(ULong(0), UInt(1), UInt(1) ) Local Test:=Self   cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, CallBack, Varptr Test) canvas.Translate( Width/2, Height/2 ) debugger.DebugDraw( canvas,space ) End Function TestCallBack(d:Void Ptr) DebugStop() Local data:=Cast<MyClass Ptr>(d)[0] Print data.Test End Function CallBack:Void(shape:cpShape, p:Void Ptr) Local whatsthis:=cpShapeGetUserData(shape) Local data:=Cast<MyClass Ptr>(whatsthis)[0] Local app:=Cast<HelloChipmunk Ptr>(p)[0] DebugStop() If data Print app.something Print data.Test End End Method Cleanup() 'Yeah, right! cpShapeFree( ballShape ) cpBodyFree( ballBody ) cpShapeFree( ground ) cpSpaceFree( space ) End   End   Class MyClass Field Test:String = "Something in myclass" End   Function Main()   New AppInstance New HelloChipmunk App.Run() End

[codifiesParticipant]

did you try the print immediately after

Monkey

[crayon-5cb9cf78ef298696974261 inline="true" ] Local data:=New MyClass

1 2 3

[crayon-5cb9cf78ef298696974261 inline="true" ] Local data:=New MyClass

[/crayon]

I’d be curious to know if that makes it work like it does here…

[peterigzParticipant]

Yeah I tried that but it didn’t make any difference here on Windows 10 – I should try on my Mac as well really. I think the memory pointer doesn’t point to the right place for whatever reason but I guess you need to run it though a proper c debugger to get a better idea of what’s going on, hopefully Mark can do that.

[codifiesParticipant]

The crash is happening when the string is being retained, and indeed works fine if you use an int instead – so looks like you might have stumbled on something fundamental…

[Mark SiblyKeymaster]

This wont work…

Monkey

Local data:=New MyClass ...  shape.UserData = Varptr(data)

1 2 3

Local data:=New MyClass ...  shape.UserData = Varptr(data)

…because ‘data’ is a local variable and will go out of scope when the ctor returns, meaning there will be nothing keeping the MyClass instance alive.

The main problem here is binding an mx2 object to a ‘native’ cp object. I think a ‘generic’ way to do this would be very useful and will look into it soon.

[peterigzParticipant]

I just posted on github and closed that as it makes sense now, here’s updated code, a field that references itself seems a bit funny, but why not? If you have a gameobject, that has a cpShape as field that needs to reference the gameobject when passed to a callback, then it seems like an ok solution to me:

Monkey

#Import "<std>" #Import "<mojo>" #Import "<chipmunk>" #Import "chipmunkdebugger" Using std.. Using mojo.. Using chipmunk.. Struct somedata Field value:Int End Class HelloChipmunk Extends Window Field space:cpSpace Field ground:cpShape Field ballBody:cpBody Field ballShape:cpShape Field ballBody2:cpBody Field ballShape2:cpShape Field polyBody:cpBody Field polyShape:cpShape Field gameobject:AGameObject Field something:String = "App String" Field debugger:=New ChipmunkDebugger Method New() ClearColor=Color.Black 'Create a new space and set its gravity to 100 ' space=cpSpaceNew() space.Gravity=cpv( 0,1000 ) gameobject=New AGameObject gameobject.CreateShape(space) End Method OnRender( canvas:Canvas ) Override App.RequestRender() Const timeStep:=1.0/60.0 space.StepTime( timeStep ) ' Local rot:=ballBody.Rotation ' Local pos:=ballBody.Position ' Local vel:=ballBody.Velocity ' Print "ball rot="+ATan2( rot.y,rot.x )+", pos.x="+pos.x+", pos.y="+pos.y+", vel.x="+vel.x+", vel.y="+vel.y Local spacefilter:=cpShapeFilterNew(ULong(0), UInt(1), UInt(1) ) Local Test:=Self cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, CallBack, Varptr Test) canvas.Translate( Width/2, Height/2 ) debugger.DebugDraw( canvas,space ) End Function CallBack:Void(shape:cpShape, p:Void Ptr) Local data:=Cast<AGameObject Ptr>(shape.UserData)[0] Local app:=Cast<HelloChipmunk Ptr>(p)[0] If data Print app.something Print data.Test End End Method Cleanup() 'Yeah, right! cpShapeFree( ballShape ) cpBodyFree( ballBody ) cpShapeFree( ground ) cpSpaceFree( space ) End End Class AGameObject Field Test:Int = 999 Field body:cpBody Field shape:cpShape Field Me:AGameObject Method New() Me = Self End Method CreateShape(space:cpSpace) body= cpBodyNewStatic() body.Position = cpv(100,100) space.AddBody(body) shape = cpBoxShapeNew(body, 50, 50, 0.0) shape.Friction = 1 shape.UserData = Varptr(Me) space.AddShape(shape) End End Function Main() New AppInstance New HelloChipmunk 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

#Import "<std>" #Import "<mojo>" #Import "<chipmunk>"   #Import "chipmunkdebugger"   Using std.. Using mojo.. Using chipmunk..   Struct somedata Field value:Int End   Class HelloChipmunk Extends Window   Field space:cpSpace Field ground:cpShape Field ballBody:cpBody Field ballShape:cpShape   Field ballBody2:cpBody Field ballShape2:cpShape   Field polyBody:cpBody Field polyShape:cpShape Field gameobject:AGameObject Field something:String = "App String" Field debugger:=New ChipmunkDebugger Method New() ClearColor=Color.Black   'Create a new space and set its gravity to 100 ' space=cpSpaceNew() space.Gravity=cpv( 0,1000 ) gameobject=New AGameObject gameobject.CreateShape(space)   End   Method OnRender( canvas:Canvas ) Override App.RequestRender() Const timeStep:=1.0/60.0 space.StepTime( timeStep ) ' Local rot:=ballBody.Rotation ' Local pos:=ballBody.Position ' Local vel:=ballBody.Velocity ' Print "ball rot="+ATan2( rot.y,rot.x )+", pos.x="+pos.x+", pos.y="+pos.y+", vel.x="+vel.x+", vel.y="+vel.y   Local spacefilter:=cpShapeFilterNew(ULong(0), UInt(1), UInt(1) ) Local Test:=Self   cpSpaceBBQuery(space, cpBBNew(0,0,640,480), spacefilter, CallBack, Varptr Test) canvas.Translate( Width/2, Height/2 ) debugger.DebugDraw( canvas,space ) End Function CallBack:Void(shape:cpShape, p:Void Ptr) Local data:=Cast<AGameObject Ptr>(shape.UserData)[0] Local app:=Cast<HelloChipmunk Ptr>(p)[0] If data Print app.something Print data.Test End End Method Cleanup() 'Yeah, right! cpShapeFree( ballShape ) cpBodyFree( ballBody ) cpShapeFree( ground ) cpSpaceFree( space ) End   End   Class AGameObject Field Test:Int = 999 Field body:cpBody Field shape:cpShape Field Me:AGameObject Method New() Me = Self End Method CreateShape(space:cpSpace) body= cpBodyNewStatic() body.Position = cpv(100,100) space.AddBody(body) shape = cpBoxShapeNew(body, 50, 50, 0.0) shape.Friction = 1 shape.UserData = Varptr(Me) space.AddShape(shape) End End   Function Main()   New AppInstance New HelloChipmunk App.Run() End

[Author]

Posts