[abakoboParticipant]

Paypal ‘donate’ will go nearly 100% in mark’s pocket.. You could give him 10$ this way. It will probably be more than a one year patreon of 1$. Some patreons switched to ‘Donate’ after patreon had made a mistake with their server security. And realised they take a percentage too..

[abakoboParticipant]

had a try…

the polyshape funcs definitions in shape.monkey2 still had cpBody Ptr as argument so I replaced them with cpBody..

but polys are not showing!
In debug Mode I get the following error (a small notice window) (w7&w10):
MSV C++ Runtime lib.:
This application has requested the runtime to terminate it in an usual way

In release mode it’s running but I can’t see the polygon (that I was seeing using the previous “unmodified” chipmunk module with just the “const” hack)

I just added this code to the hellochipmunk (after circle init):

Monkey

[crayon-5cba8e08522dc413808993 inline="true" ] '--- A Pentagon mass = 0.3 Local NUM_VERTS := 5 Local verts:=New cpVect[NUM_VERTS] for Local it:=0 To NUM_VERTS-1 Local angle:cpFloat angle = -2.0*Pi*it/(1.0*NUM_VERTS) verts[it] = cpv(30*Cos(angle), 30*Sin(angle)) Next moment= cpMomentForPoly(mass, NUM_VERTS, Varptr verts[0], cpvzero, 0.0) polyBody = space.AddBody(cpBodyNew(mass,moment)) polyBody.Position=cpv(0.0, -190.0) polyShape=space.AddShape(cpPolyShapeNew(polyBody, NUM_VERTS, Varptr verts[0], cpTransformIdentity, 0.0))' this was working with the unmodified chipmunk import polyShape.Friction=0.03

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

[crayon-5cba8e08522dc413808993 inline="true" ] '--- A Pentagon mass = 0.3 Local NUM_VERTS := 5 Local verts:=New cpVect[NUM_VERTS] for Local it:=0 To NUM_VERTS-1 Local angle:cpFloat angle = -2.0*Pi*it/(1.0*NUM_VERTS) verts[it] = cpv(30*Cos(angle), 30*Sin(angle)) Next moment= cpMomentForPoly(mass, NUM_VERTS, Varptr verts[0], cpvzero, 0.0) polyBody = space.AddBody(cpBodyNew(mass,moment)) polyBody.Position=cpv(0.0, -190.0) polyShape=space.AddShape(cpPolyShapeNew(polyBody, NUM_VERTS, Varptr verts[0], cpTransformIdentity, 0.0))' this was working with the unmodified chipmunk import polyShape.Friction=0.03

[/crayon]

The full file is attached to a previous post.

[abakoboParticipant]

Great! waw! My debugDraw implementation looks so awful compared to yours!
Happy this is now built in! (woohoo)

[abakoboParticipant]

I saw there has been some things modified in chipmunk and c2mx2 but It’s still the same on my side. Need to hack the “const”.

[abakoboParticipant]

tried some implicit conversion from const_cpVect to cpVect with “struct extension” and “operator to:” but no luck, the “‘const cpVect'” is crapping the .h and .cpp output

I’ll stop trying to mess with it..

Do you think it’s better to remove the “const” in the original “chipmunk.h” or use the =”const cpVect” hack.
or is there any other better solution in your mind? Should I post an issue on github?

The debugDraw is kind of mandatory so something have to be done.. the actual “build in” chipmunk module can’t manage debug polygon draws for now.(and probably other callbacks with “const”)

[abakoboParticipant]

The first ideal idea I had was trying to write this:
Alias cpSpaceDebugDrawPolygonImpl:Void( Int, cpVect Ptr="const cpVect*" ,...

Hoping all would be internally managed by the transpiler/linker! But not..

If this is possible it could be a good solution for automation.
c2mx2 detects an un-implemented typedef func (Alias func:..(..)) or a pure virtual method with some const/const& as parameter then adds ="const foo" or ="const foo&" or wathever.
And this way there’s no conversion to be done..

In the chipmunk’s debugdraw case the actual hack is not problematic because the module user won’t even notice it’s there. He/She’s just gonna call it with a simple call. If someone want to create it’s own implementation then he/she will have to notice it but has an example to start with.

Is there any plan on c2mx2 being c++ aware?

[abakoboParticipant]

ok found how to do it

modified the chipmunk_extern.monkey2:
added

Monkey

[crayon-5cba8e0862bfc042257836 inline="true" ]Struct const_cpVect="const cpVect" Field x:cpFloat Field y:cpFloat End

1 2 3 4

[crayon-5cba8e0862bfc042257836 inline="true" ]Struct const_cpVect="const cpVect" Field x:cpFloat Field y:cpFloat End

[/crayon]

and modified the problematic line

Monkey

[crayon-5cba8e0862c03876244782 inline="true" ]Alias cpSpaceDebugDrawPolygonImpl:Void( Int, cpVect Ptr, cpFloat, cpSpaceDebugColor, cpSpaceDebugColor, cpDataPointer ) To Alias cpSpaceDebugDrawPolygonImpl:Void( Int, const_cpVect Ptr, cpFloat, cpSpaceDebugColor, cpSpaceDebugColor, cpDataPointer )

1 2 3

[crayon-5cba8e0862c03876244782 inline="true" ]Alias cpSpaceDebugDrawPolygonImpl:Void( Int, cpVect Ptr, cpFloat, cpSpaceDebugColor, cpSpaceDebugColor, cpDataPointer ) To Alias cpSpaceDebugDrawPolygonImpl:Void( Int, const_cpVect Ptr, cpFloat, cpSpaceDebugColor, cpSpaceDebugColor, cpDataPointer )

[/crayon]

and my implementation has a const_cpVect Ptr as argument of course…

[abakoboParticipant]

@Mark: Fix working on Ted2’s text screen and mojo apps!

However the console output is still 7bit limited.. Not vital but could probably be quickly corrected after this utf8 fix.

Monkey

[crayon-5cba8e0867075437852171 inline="true" ]#Import "<std>" Using std.. Function Main() Local s:String For Local j:=0 To 3 s="" For Local i:=1+(j*63) To 63+(j*63) s=s+String.FromChar(i) Next Print s Next Print "éléphant" End

1 2 3 4 5 6 7 8 9 10 11 12 13

[crayon-5cba8e0867075437852171 inline="true" ]#Import "<std>" Using std.. Function Main() Local s:String For Local j:=0 To 3 s="" For Local i:=1+(j*63) To  63+(j*63) s=s+String.FromChar(i) Next Print s Next Print "éléphant" End

[/crayon]

[abakoboParticipant]

By full pass indent I mean an auto intend button that indents all your file: clearing all spaces and tabs at the beginning of each line then intend by fold+if/elseif/case…
The ifs are probably a bit difficult because it needs some analysis to know wether it’s a one line or not.

I’ve had some problems with the text cursor. Sometimes it desapears completely after coming back to ted.
I personaly prefer when the cursor doesn’t “flash” (for a more zen workspace.)

[abakoboParticipant]

the mx2cc is clearly a better solution because when compiling starts it starts to write things on disk and that’s bad.

Tested your fork:
It would be nice if the Classes/Methods/Fields/Vars in the left column where sorted in some kind. Here I have some mixed Methods and Fields withing my class.
And sorted by alpha or with the same order than in the File.

I’m looking forward to see code folding and full pass indent. Hope it’s in your plan.

nice work!

[abakoboParticipant]

Here your code corrected and running..

Monkey

[crayon-5cba8e086f38c245363317 inline="true" ]Namespace myapp #Import "<std>" #Import "<mojo>" #import "Ultim" Using std.. Using mojo.. Using Ultim.. Class MyWindow Extends Window Field s:String Method New() s=UltimC.Init() end Method OnRender( canvas:Canvas ) Override canvas.DrawText( "Hello World "+s,Width/2,Height/2,.5,.5 ) End End Function Main() New AppInstance New MyWindow 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

[crayon-5cba8e086f38c245363317 inline="true" ]Namespace myapp #Import "<std>" #Import "<mojo>" #import "Ultim" Using std.. Using mojo.. Using Ultim.. Class MyWindow Extends Window   Field s:String Method New() s=UltimC.Init() end Method OnRender( canvas:Canvas ) Override canvas.DrawText( "Hello World "+s,Width/2,Height/2,.5,.5 ) End End Function Main() New AppInstance New MyWindow App.Run() End

[/crayon]

the Ultim.monkey2

Monkey

[crayon-5cba8e086f393880478708 inline="true" ]Namespace Ultim Class UltimClass Method Init:String( ) Return "Ultim" end End Global UltimC:= New UltimClass

1 2 3 4 5 6 7 8 9

[crayon-5cba8e086f393880478708 inline="true" ]Namespace Ultim   Class UltimClass Method Init:String( ) Return "Ultim" end End Global UltimC:= New UltimClass

[/crayon]

Note that I renamed things called Ultim to Ultimsomething because you can’t have the same for a variable and a namespace/filename.

[abakoboParticipant]

Here’s a little zip with a working example of multiple imports.
Runs fine with 1.0.7 but should be ok with earlier versions.

main:

Monkey

[crayon-5cba8e0873dd1151103674 inline="true" ]Namespace myapp #Import "<std>" #Import "lib_a" 'you could comment this line because lib_d imports lib_b but as I directly use lib_b I prefer to import it twice, won't be double after compil #Import "lib_b" #Import "lib_c" #Import "lib_d" Using std.. Using lib_b.. ' I use lib_c. prefix and not "Using lib_c.." for demonstration Using lib_d.. Function Main() 'Glob_a is already defined in lib_a (=5) Glob_b=7 lib_c.Glob_c=12 'using namespace prefix Local foo:=New Class_b(21) Local foo2:=New Class_d(37) Print Glob_a Print Glob_b Print lib_c.Glob_c Print foo.Get() Print foo2.Get() Print fooGlobal.Get()'defined in lib_d 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

[crayon-5cba8e0873dd1151103674 inline="true" ]Namespace myapp   #Import "<std>" #Import "lib_a"   'you could comment this line because lib_d imports lib_b but as I directly use lib_b I prefer to import it twice, won't be double after compil #Import "lib_b" #Import "lib_c" #Import "lib_d"   Using std.. Using lib_b.. ' I use lib_c. prefix and not "Using lib_c.." for demonstration Using lib_d..   Function Main()   'Glob_a is already defined in lib_a (=5) Glob_b=7 lib_c.Glob_c=12 'using namespace prefix Local foo:=New Class_b(21) Local foo2:=New Class_d(37) Print Glob_a Print Glob_b Print lib_c.Glob_c Print foo.Get() Print foo2.Get() Print fooGlobal.Get()'defined in lib_d End

[/crayon]

lib_a

Monkey

[crayon-5cba8e0873dd8864493384 inline="true" ]namespace myapp Global Glob_a:=5

1 2 3

[crayon-5cba8e0873dd8864493384 inline="true" ]namespace myapp   Global Glob_a:=5

[/crayon]

lib_b

Monkey

[crayon-5cba8e0873dde984732400 inline="true" ]Namespace lib_b Global Glob_b:Int Class Class_b Field fi:Int Method New(i:Int) fi=i End Method Get:Int() Return fi End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14

[crayon-5cba8e0873dde984732400 inline="true" ]Namespace lib_b   Global Glob_b:Int   Class Class_b Field fi:Int Method New(i:Int) fi=i End Method Get:Int() Return fi End End

[/crayon]

lib_c

Monkey

[crayon-5cba8e0873de4242299668 inline="true" ]Namespace lib_c Global Glob_c:Int

1 2 3 4

[crayon-5cba8e0873de4242299668 inline="true" ]Namespace lib_c   Global Glob_c:Int

[/crayon]

lib_d

Monkey

[crayon-5cba8e0873dea184823063 inline="true" ]Namespace lib_d 'if lib_b is imported elsewhere via main you could miss the following but it would be bad practice, keep sure your dependecies are imported 'anyway you can import this several times, it won't be duplicated after compilation #Import "lib_b" Using lib_b.. Global fooGlobal:=New Class_d(51) Class Class_d Extends Class_b Method New(i:Int) 'in monkey2 you must define the constuctor if you defined one in the super class Super.New(i) End Method Set(i:Int) fi=i End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

[crayon-5cba8e0873dea184823063 inline="true" ]Namespace lib_d   'if lib_b is imported elsewhere via main you could miss the following but it would be bad practice, keep sure your dependecies are imported 'anyway you can import this several times, it won't be duplicated after compilation #Import "lib_b"     Using lib_b..   Global fooGlobal:=New Class_d(51)   Class Class_d Extends Class_b Method New(i:Int) 'in monkey2 you must define the constuctor if you defined one in the super class Super.New(i) End Method Set(i:Int) fi=i End End

[/crayon]

edit:added a global class declared outside of main so use import-1.monkey2

Attachments:

1. imports.zip
2. imports-1.zip

[abakoboParticipant]

Hope you’ll find a pleasant way in that nice project..

[abakoboParticipant]

I just forgot that passing by reference was an issue with abstract method only.
However it should faster by value..

[abakoboParticipant]

Now with all bodies and joints types working and a aabbQueryCallback for mouse joints all in monkey2 language only.

The bodies_and_joints.monkey2 is the one with most features available now.
https://github.com/abakobo/Box2D_for_monkey2
https://github.com/abakobo/Box2D

It’s getting to be almost usable!

I have some memory question… It starts at 24M of Ram and it grows to 36M but then stops. Is it a normal behaviour or is there a problem with my memory management (lots of externals here…)? If someone can have a look at the code it would be great. (the code should be better documented but I think it’s readable..)

[Author]

Posts