[abakoboParticipant]

indeed…

There is the FromCString for that purpose..?

Monkey

[crayon-5cba97e189413277968490 inline="true" ]#Import "<std>" Using std.. Function Main() Local USERNAME:= libc.getenv("USER") Local s:=String.FromCString(USERNAME) Print s End

1 2 3 4 5 6 7 8 9 10 11

[crayon-5cba97e189413277968490 inline="true" ]#Import "<std>"   Using std..   Function Main()   Local USERNAME:= libc.getenv("USER") Local s:=String.FromCString(USERNAME) Print s End

[/crayon]

But the argument of get env is wrong:
Function getenv:char_t Ptr( name:@cstring )

So “USER” has to be converted to a cstring (don’t know what the @ means!)
from the docs:
monkey:monkey.types.String.ToCString
Method ToCString:Void( buf:Void Ptr, bufSize:Int )
Converts the string to a CString.

If there is enough room in the memory buffer, a null terminating ‘0’ is appended to the CString.
Parameters
buf Memory buffer to write the CString to.
bufSize Size of the memory buffer in bytes.

[abakoboParticipant]

Mark just added String.FromChars a few days ago. It’s in the develop branch on github. I suppose it’s for that purpose..

https://github.com/blitz-research/monkey2/commit/b2976c674ad445a321b8f9c9c175c4025336b664

[abakoboParticipant]

Great! Thanks.
I use them for 2d physics debug draw so perfection is not mandatory! A bit of consistency when scaling is a good point, I hope it’s not slowing down the process..

[abakoboParticipant]

Structs goes on the stack and classes on the heap… So structs are theoretically faster.. if you’ll use your vects in very iterative process it will slowdown your app. In some very hungry loops it’s even interresting to use x and y with no structs at all!

[abakoboParticipant]

here is some working example with starting and ending point, so if you invert the handles to arc will flip.
May be you don’t want it to flip when the angle is small. EDIT: If so just invert start and end when the switch occurs. Won’t work “just” like that…
You should have used Vec2f instead of redefine a vec2. Monkey is full of little gentle things like that..

Monkey

[crayon-5cba97e194baa807721911 inline="true" ]Namespace shapeEditor #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Field arc:Arc Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) Layout = "letterbox" arc = New Arc(100,100,100) End Method OnRender( canvas:Canvas ) Override App.RequestRender() arc.Update() canvas.DrawText(arc.startAngle,10,10) canvas.DrawText(arc.endAngle,10,30) canvas.DrawText(arc.stepSize,10,50) canvas.DrawText(arc.angleStep,10,70) canvas.Color = New Color(.8,.1,.1) arc.Render(canvas) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown And event.Key=Key.Enter And event.Modifiers & Modifier.Alt 'Fullscreen=Not Fullscreen Returned an error.. Endif End Method OnMeasure:Vec2i() Override Return Size End End Function Main() New AppInstance New MyWindow App.Run() End Class Handle Field pos:Vec2d Field location:Vec2i Field radius:Float Method New(pos:Vec2d,radius:Float = 4) Self.pos = pos End Method Method SetLocation(p:Vec2i) End Method End Class Class Entity Field pos:Vec2d Field color:Color Method New() pos = New Vec2d color = New Color(1,1,1,1) End Method End Class Class Arc Extends Entity Field radius:Float Field startAngle:Float Field endAngle:Float Field angleSteps:Float Field stepSize:Float Field angleStep:Float Field lineWidth:Float Field arcCenter:Vec2d Field prevs:Float Field preve:Float Field tpos:Vec2d Field trad:Vec2d Field tstart:Vec2d Field teend:Vec2d Field temp:Vec2d Const HANDLE_SIZE:Int = 4 Method New(x:Float,y:Float,radius:Float=10,startAngle:Float=0,endAngle:Float=Pi/2.0,lineWidth:Int = 6) Self.pos =New Vec2d(x,y) Self.radius = radius Self.startAngle = startAngle Self.endAngle = endAngle Self.lineWidth = lineWidth Self.arcCenter = New Vec2d Self.prevs = Self.startAngle Self.preve = Self.endAngle Self.Init() End Method Method Init() Self.stepSize = 1.0/Pi*radius '-------modified from here Local angleWidth:Float If startAngle<=endAngle angleWidth=(endAngle-startAngle) Else angleWidth=(TwoPi+endAngle-startAngle) End Self.angleStep = angleWidth/stepSize Local mid:Float = angleWidth/2.0 '-------to here arcCenter.Set(Cos(startAngle+mid)*radius,Sin(startAngle+mid)*radius) temp = New Vec2d End Method Method MouseInHandle:Bool() Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInRadius:Bool() Local vx:Float = Mouse.X - (pos.x+arcCenter.x) Local vy:Float = Mouse.Y - (pos.y+arcCenter.y) Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInStart:Bool() Local x:Float = pos.x+Cos(startAngle)*radius Local y:Float = pos.y+Sin(startAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <=HANDLE_SIZE End Method Method MouseAtEnd:Bool() Local x:Float = pos.x+Cos(endAngle)*radius Local y:Float = pos.y+Sin(endAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End method Method Update() If Mouse.ButtonPressed(MouseButton.Left) If MouseInHandle() tpos = pos Elseif MouseInRadius() trad = arcCenter Elseif MouseInStart() tstart = temp Elseif MouseAtEnd() teend = temp Endif Elseif Mouse.ButtonReleased(MouseButton.Left) tpos = Null trad = Null tstart = Null teend = Null Endif If tpos tpos.x = Mouse.X tpos.y = Mouse.Y Elseif trad trad.x = Mouse.X - pos.x trad.y = Mouse.Y - pos.y Local vx:Float = pos.x - (pos.x+trad.x) Local vy:Float = pos.y - (pos.y+trad.y) radius = Sqrt(vx*vx+vy*vy) Init() Elseif tstart Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y startAngle = ATan2(vy,vx) '-------modfied this line for unusefull calculus '-------removed things here Init() Elseif teend Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y endAngle = ATan2(vy,vx) '--------modfied this line for unusefull calculus '-------removed things here Init() Endif End Method Method Render(canvas:Canvas) canvas.LineWidth = lineWidth ' Determine coordinates of first point using basic circle math. Local xx:Float = Cos(startAngle) * radius Local yy:Float = Sin(startAngle) * radius Local px:Float = pos.x+xx Local py:Float = pos.y+yy canvas.DrawCircle(px,py,HANDLE_SIZE) For Local i:Int = 1 To stepSize ' ' Increment the angle by "angleStep". Local angle:Float = startAngle + i * angleStep ' ' Determine Next point's coordinates using basic circle math. xx = pos.x + Cos(angle) * radius yy = pos.y + Sin(angle) * radius canvas.DrawCircle(pos.x,pos.y,HANDLE_SIZE) ' ' Draw a line To the Next point. canvas.DrawLine(px,py,xx, yy) px = xx py = yy Next Local ex := Cos(endAngle) * radius Local ey := Sin(endAngle) * radius canvas.DrawLine(px,py,pos.x+ex,pos.y+ey) canvas.DrawCircle(pos.x+arcCenter.x,pos.y+arcCenter.y,HANDLE_SIZE) canvas.LineWidth = 1 canvas.DrawLine(pos.x,pos.y,pos.x+arcCenter.x,pos.y+arcCenter.y) canvas.DrawCircle(pos.x+ex,pos.y+ey,HANDLE_SIZE) End Method End Class Class Vec2d Field x:Float Field y:Float Method New() End Method Method New(x:Float,y:Float) Set(x,y) End Method Method New(x1:Float,y1:Float,x2:Float,y2:Float) Set(x2-x1,y2-y1) End Method Method New(v:Vec2d) Set(v) End Method Method Set:Vec2d(v:Vec2d) x = v.x y = v.y Return Self End Method Method Set:Vec2d(x:Float,y:Float) Self.x = x Self.y = y Return Self End Method End Class

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 275 276 277 278 279 280 281 282 283 284

[crayon-5cba97e194baa807721911 inline="true" ]Namespace shapeEditor #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Const Size:=New Vec2i( 640,480 ) Class MyWindow Extends Window Field arc:Arc Method New() Super.New( "My Window",640,480,WindowFlags.Resizable ) Layout = "letterbox" arc = New Arc(100,100,100) End Method OnRender( canvas:Canvas ) Override App.RequestRender() arc.Update() canvas.DrawText(arc.startAngle,10,10) canvas.DrawText(arc.endAngle,10,30) canvas.DrawText(arc.stepSize,10,50) canvas.DrawText(arc.angleStep,10,70) canvas.Color = New Color(.8,.1,.1) arc.Render(canvas) End Method OnKeyEvent( event:KeyEvent ) Override If event.Type=EventType.KeyDown And event.Key=Key.Enter And event.Modifiers & Modifier.Alt 'Fullscreen=Not Fullscreen Returned an error..   Endif End Method OnMeasure:Vec2i() Override Return Size End End Function Main() New AppInstance New MyWindow App.Run() End Class Handle Field pos:Vec2d Field location:Vec2i Field radius:Float Method New(pos:Vec2d,radius:Float = 4) Self.pos = pos End Method Method SetLocation(p:Vec2i) End Method End Class Class Entity Field pos:Vec2d Field color:Color Method New() pos = New Vec2d color = New Color(1,1,1,1) End Method End Class Class Arc Extends Entity Field radius:Float Field startAngle:Float Field endAngle:Float Field angleSteps:Float Field stepSize:Float Field angleStep:Float Field lineWidth:Float Field arcCenter:Vec2d Field prevs:Float Field preve:Float Field tpos:Vec2d Field trad:Vec2d Field tstart:Vec2d Field teend:Vec2d Field temp:Vec2d Const HANDLE_SIZE:Int = 4 Method New(x:Float,y:Float,radius:Float=10,startAngle:Float=0,endAngle:Float=Pi/2.0,lineWidth:Int = 6) Self.pos =New Vec2d(x,y) Self.radius = radius Self.startAngle = startAngle Self.endAngle = endAngle Self.lineWidth = lineWidth Self.arcCenter = New Vec2d Self.prevs = Self.startAngle Self.preve = Self.endAngle Self.Init() End Method Method Init() Self.stepSize = 1.0/Pi*radius '-------modified from here Local angleWidth:Float If startAngle<=endAngle angleWidth=(endAngle-startAngle) Else angleWidth=(TwoPi+endAngle-startAngle) End Self.angleStep = angleWidth/stepSize     Local mid:Float = angleWidth/2.0     '-------to here               arcCenter.Set(Cos(startAngle+mid)*radius,Sin(startAngle+mid)*radius) temp = New Vec2d End Method Method MouseInHandle:Bool() Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInRadius:Bool() Local vx:Float = Mouse.X - (pos.x+arcCenter.x) Local vy:Float = Mouse.Y - (pos.y+arcCenter.y) Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End Method Method MouseInStart:Bool() Local x:Float = pos.x+Cos(startAngle)*radius Local y:Float = pos.y+Sin(startAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <=HANDLE_SIZE End Method Method MouseAtEnd:Bool() Local x:Float = pos.x+Cos(endAngle)*radius Local y:Float = pos.y+Sin(endAngle)*radius Local vx:Float = Mouse.X - x Local vy:Float = Mouse.Y - y Return Sqrt(vx*vx+vy*vy) <= HANDLE_SIZE End method Method Update() If Mouse.ButtonPressed(MouseButton.Left) If MouseInHandle() tpos = pos Elseif MouseInRadius() trad = arcCenter Elseif MouseInStart() tstart = temp Elseif MouseAtEnd() teend = temp Endif Elseif Mouse.ButtonReleased(MouseButton.Left) tpos = Null trad = Null tstart = Null teend = Null Endif If tpos tpos.x = Mouse.X tpos.y = Mouse.Y Elseif trad trad.x = Mouse.X - pos.x trad.y = Mouse.Y - pos.y Local vx:Float = pos.x - (pos.x+trad.x) Local vy:Float = pos.y - (pos.y+trad.y) radius = Sqrt(vx*vx+vy*vy) Init() Elseif tstart Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y startAngle = ATan2(vy,vx) '-------modfied this line for unusefull calculus '-------removed things here Init() Elseif teend Local vx:Float = Mouse.X - pos.x Local vy:Float = Mouse.Y - pos.y endAngle = ATan2(vy,vx) '--------modfied this line for unusefull calculus '-------removed things here Init() Endif End Method Method Render(canvas:Canvas) canvas.LineWidth = lineWidth     ' Determine coordinates of first point using basic circle math.     Local xx:Float = Cos(startAngle) * radius     Local yy:Float = Sin(startAngle) * radius     Local px:Float = pos.x+xx     Local py:Float = pos.y+yy canvas.DrawCircle(px,py,HANDLE_SIZE)       For Local i:Int = 1 To stepSize         '         ' Increment the angle by "angleStep".         Local angle:Float = startAngle + i * angleStep                  '         ' Determine Next point's coordinates using basic circle math.         xx = pos.x + Cos(angle) * radius         yy = pos.y + Sin(angle) * radius         canvas.DrawCircle(pos.x,pos.y,HANDLE_SIZE)         '         ' Draw a line To the Next point.         canvas.DrawLine(px,py,xx, yy)     px = xx     py = yy     Next     Local ex := Cos(endAngle) * radius     Local ey := Sin(endAngle) * radius     canvas.DrawLine(px,py,pos.x+ex,pos.y+ey)     canvas.DrawCircle(pos.x+arcCenter.x,pos.y+arcCenter.y,HANDLE_SIZE)     canvas.LineWidth = 1     canvas.DrawLine(pos.x,pos.y,pos.x+arcCenter.x,pos.y+arcCenter.y)     canvas.DrawCircle(pos.x+ex,pos.y+ey,HANDLE_SIZE) End Method End Class Class Vec2d Field x:Float Field y:Float Method New() End Method Method New(x:Float,y:Float) Set(x,y) End Method Method New(x1:Float,y1:Float,x2:Float,y2:Float) Set(x2-x1,y2-y1) End Method Method New(v:Vec2d) Set(v) End Method Method Set:Vec2d(v:Vec2d) x = v.x y = v.y Return Self End Method Method Set:Vec2d(x:Float,y:Float) Self.x = x Self.y = y Return Self End Method End Class

[/crayon]

[abakoboParticipant]

Could you post the entire rectangle example codes? I have difficulties with the gcnew in cpp side and how it becomes a simple new in mx2. (Or you can’t ‘new’ it in mx2?)
Thx

[abakoboParticipant]

There is at least this way but I suppose it’s not possible in every case..
http://monkey2.monkey-x.com/forums/topic/how-to-get-an-extern-class-that-extend-bbobject-and-not-void/

[abakoboParticipant]

some mx2 objects are not Garbage Collected, like Image for example.
You have to use .Discard() to destruct them

Dunno if it works with GC objects but you can force the GC to clean memory with GCCollect()

Edit: oops looks you are looking for a onDelete callback, so this answer is probably not relevant..

[abakoboParticipant]

I think you have nothing to do to get them working.. (here tested working example with box2d c++ wrap)

in c++ .h:

Monkey

[crayon-5cba97e1aa31d040265989 inline="true" ]class b2World { public: /// Construct a world object. /// @param gravity the world gravity vector. b2World(const b2Vec2& gravity); /// Destruct the world. All physics entities are destroyed and all heap memory is released. ~b2World();

1 2 3 4 5 6 7 8 9 10

[crayon-5cba97e1aa31d040265989 inline="true" ]class b2World { public: /// Construct a world object. /// @param gravity the world gravity vector. b2World(const b2Vec2& gravity);   /// Destruct the world. All physics entities are destroyed and all heap memory is released. ~b2World();

[/crayon]

in monkey 2 extern section:

Monkey

[crayon-5cba97e1aa323678594479 inline="true" ]Class b2World Extends Void Method New(gravity:b2Vec2) Method Destroy() Extension="delete"

1 2 3

[crayon-5cba97e1aa323678594479 inline="true" ]Class b2World Extends Void Method New(gravity:b2Vec2) Method Destroy() Extension="delete"

[/crayon]

If I understand your question..

[abakoboParticipant]

Here some working code (with an int). But you probably already get it.. or may be this is not relevant at all but I wanted to play with the ‘cast’ solution for const ptr. And this is nothing official, so could be deprecated? Never saw it in the docs..

.monkey2

Monkey

[crayon-5cba97e1aebd0430974035 inline="true" ]#Import "<std>" #Import "facto_c.h" Extern Struct c_int="const int" End Function Factorial:c_int Ptr (M:int) Public Function Main() Local ci:c_int ptr Local ip:Int Ptr ci=Factorial(4) 'should be 24.. ip = Cast<int Ptr>(ci) Print ip[0] End

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

[crayon-5cba97e1aebd0430974035 inline="true" ]#Import "<std>" #Import "facto_c.h" Extern   Struct c_int="const int" End Function Factorial:c_int Ptr (M:int) Public   Function Main() Local ci:c_int ptr Local ip:Int Ptr ci=Factorial(4) 'should be 24.. ip = Cast<int Ptr>(ci) Print ip[0] End

[/crayon]

facto_c.h:

Monkey

[crayon-5cba97e1aebd7268501374 inline="true" ]const int* Factorial(int M) { int factorial=1; int* returner; for(int i=1; i<=M; i++) { factorial = factorial*i; } returner=&factorial; return returner; //' returning directly &factorial was not working, it had to be assigned to a 'named' int pointer }

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

[crayon-5cba97e1aebd7268501374 inline="true" ]const int* Factorial(int M) {    int factorial=1;    int* returner;      for(int i=1; i<=M; i++)    {       factorial = factorial*i;    }    returner=&factorial;    return returner; //' returning directly &factorial was not working, it had to be assigned to a 'named' int pointer }

[/crayon]

[abakoboParticipant]

Great!
Happy that mx2 extern capabilities are pleasing some people! For me it’s the main new feature compared to mx1.
Looking forward to see your repos!

[abakoboParticipant]

In case you didn’t had the occasion to pass ode includes in c2cmx2, here is a pass. Didn’t tested anything. Just passed it. The imports are not complete (some *.h would need to be added at least)
The attached zip contain the c2mx2 log and the json.
I’ll have a look at your glfw stuff.
It’s the latest ode dev version.. If you want me to pass another don’t hesitate to ask..

Attachments:

1. ode_c2mx2_pass.zip

[abakoboParticipant]

I am! But have experience with 3D gfx with Matlab only, so very far from GL stuff that look very complex to me (one of the reasons I like mx). For me it would require a basical 3D gfx capable module before attacking 3D physics.
I can pass C code trough c2mx2 as I have all os types on my PC.
Seeing how fast your get things running I think your programming skills are way over mine. But I probably can help.

[abakoboParticipant]

Defining extern with ‘const something’ is very limited. It can lead to some mess if you don’t use for functions arguments only. Because the transpiler will just copy the defined name and ‘const something’ is more than just the name on The C side. Mark has manualy made some glue code for these situation. For example for the chipmunk debugdraw drawpoly callback function that have a ‘const ptr’ as argument.
I had also a similar problem with pure virtual methods for the box2d wrap but I chose to remove the const in the cpp code because box2d is solid enough not to need the const barrier imo. So if you may remove ‘const’ from the C code, it’s probably the fastest way.
It’s one of the difficulties with c to mx2. The only one I encoutered for now.

[abakoboParticipant]

I had the intention to switch to a yearly donate equivalent to 12 monthly patreon (starting in january). If it’s not a good idea please tell..

[Author]

Posts