[codifiesParticipant]

set the random seed to a value derived from the time

[codifiesParticipant]

I ended up with a modest $2 a month, as I found some wiggle room, but yeah if I ever get around to publishing something with it and it actually sells, a decent donation has to be in order!

[codifiesParticipant]

it would be easier to test with this #Import “vec2d.monkey2”

jplib?

can you reduce it to a minimal example that can be run on the defaul modules ?

[codifiesParticipant]

the more complex version! you can replicate what happens to eachin loop

Monkey

#Import "<std>" Using std.. Class myItems Field ID:Int Field content:String Method New(i:Int,s:String) ID=i content=s End End Function Main() Local alist:List<myItems> = New List<myItems> alist.Add(New myItems(1,"One")) alist.Add(New myItems(2,"Two")) alist.Add(New myItems(3,"Three")) alist.Add(New myItems(4,"Four")) alist.Add(New myItems(5,"Five")) alist.Add(New myItems(6,"Six")) alist.Add(New myItems(7,"Seven")) alist.Add(New myItems(8,"Eight")) alist.Add(New myItems(9,"Nine")) alist.Add(New myItems(10,"Ten")) Local iterator:=alist.All() While Not iterator.AtEnd While iterator.Current.ID < 4 iterator.Bump() Wend Local value:=iterator.Current If value.ID > 7 Continue Print value.ID+ " " + value.content iterator.Bump() Wend 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

#Import "<std>"   Using std..   Class myItems Field ID:Int Field content:String Method New(i:Int,s:String) ID=i content=s End End   Function Main() Local alist:List<myItems> = New List<myItems> alist.Add(New myItems(1,"One")) alist.Add(New myItems(2,"Two")) alist.Add(New myItems(3,"Three")) alist.Add(New myItems(4,"Four")) alist.Add(New myItems(5,"Five")) alist.Add(New myItems(6,"Six")) alist.Add(New myItems(7,"Seven")) alist.Add(New myItems(8,"Eight")) alist.Add(New myItems(9,"Nine")) alist.Add(New myItems(10,"Ten")) Local iterator:=alist.All() While Not iterator.AtEnd While iterator.Current.ID < 4 iterator.Bump() Wend Local value:=iterator.Current If value.ID > 7 Continue Print value.ID+ "  " + value.content iterator.Bump()   Wend End

If you wanted you could implement a custom iterator too, but in the real world… just do what Jesse suggested…

[codifiesParticipant]

Monkey

RectangleMX::RectangleMX():Rectangle(0,0)

1	RectangleMX::RectangleMX():Rectangle(0,0)

got it!

but what I don’t quite follow, if this never gets executed (and it doesn’t) why is it needed ?

[codifiesParticipant]

Monkey

Extern class RectMX="RectangleMX" Method area:Float()="Area" ' order unimportant field height:Float="Height" Method New( w:float,h:float ) Field width:Float="Width" End Public Class exRectMX Extends RectMX method New(w:Float, h:Float) Super.New(w,h) End End

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

Extern   class RectMX="RectangleMX" Method area:Float()="Area"    ' order unimportant field height:Float="Height" Method New( w:float,h:float ) Field width:Float="Width" End Public   Class exRectMX Extends RectMX method New(w:Float, h:Float) Super.New(w,h) End End

won’t compile for example

[codifiesParticipant]

I’m not sure what you mean, as Super.New(..  also doesn’t compile

I can’t see any way to extend an extern class at all

[codifiesParticipant]

trouble using extern classes with any kind of extention

using either extends or extention I get Error : Super class ‘default.Rect’ has no default constructor
there is a slight complication in that the only a (float,float) constructor, but it will say the same if there is a () constructor…

[codifiesParticipant]

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field zoom:=.01 Field radius:=400.2 Field x:=9.3 Field y:=9.2 Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText("Press space to zoom, Enter to grow circle, R to reset",10,10) canvas.Scale(zoom,zoom) canvas.DrawCircle( x,y,radius ) canvas.Color=Color.Black canvas.DrawLine(x,y,x+Cos(0.7)*radius,y+Sin(0.7)*radius) If Keyboard.KeyDown(Key.Space) Then zoom=zoom*1.1 If Keyboard.KeyDown(Key.Enter) Then radius=radius*1.1 If Keyboard.KeyDown(Key.R) zoom=.01 radius=400.2 Endif Print zoom 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 34 35 36 37 38 39 40 41 42 43 44 45

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field zoom:=.01 Field radius:=400.2 Field x:=9.3 Field y:=9.2 Method New( title:String="Simple mojo app",width:Int=640,height:Int=480,flags:WindowFlags=Null ) Super.New( title,width,height,flags ) End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText("Press space to zoom, Enter to grow circle, R to reset",10,10) canvas.Scale(zoom,zoom)   canvas.DrawCircle( x,y,radius ) canvas.Color=Color.Black canvas.DrawLine(x,y,x+Cos(0.7)*radius,y+Sin(0.7)*radius) If Keyboard.KeyDown(Key.Space) Then zoom=zoom*1.1   If Keyboard.KeyDown(Key.Enter) Then radius=radius*1.1 If Keyboard.KeyDown(Key.R) zoom=.01 radius=400.2 Endif Print zoom End End Function Main() New AppInstance New MyWindow App.Run() End

hows that

there might be a rounding error involved ?

[codifiesParticipant]

gah just when I thought I had it all,

if I try to extend MXRectangle (in MX2 code) (so I can add extra code to some of the methods) its asking for the default constructor of MXRectangle ?

I have callbacks (from C++ to MX2) working but then that would mean ctor / del callbacks and a callback for any method I wanted to intercept – doable but cumbersom

for example if I want each instance to keep a list of children to protect them from the GC (while the parent is still alive) ….

JNI (in Java) , Lua etc have a bunch of C routines to create language objects another way round would be if I could create a List<T> in C code without having to cope with all the MX2 name massaging (its not quite as bad as mangling!) but then that would probably be a bunch of work for something maybe not many people would use ??

[codifiesParticipant]

lol just as well i’m having dns issues….

I’ll correct it, thanks

 

websites off line for a bit – sleeeeeeep (please )

new changes really made things a lot easier, now a proper 1st class citizen, with c++ methods called from the mx2 class wonderful!

[codifiesParticipant]

I’m tidying the code and just writing it all up now, I’ll post the link before long…

[codifiesParticipant]

yeah, gotcha, cheers Mark

[codifiesParticipant]

oh gods but the horror show…..

check your email….

[codifiesParticipant]

ding ding ding, we have a winner, thanks Mark

I wasn’t actually thinking of bullet (as anyhow you promised it soon ;-p – still tempted to throw a very limited temporary thing together mind…)

Very good point about factory methods but you could always call the factory place the pointer in a field of a GC’d class that you *then* return from the wrapper… :-/ !

I’m thinking about putting together a blog post about wrapping for MX2 and including this idea as well, you wouldn’t happen to have any other wrapping secret sauce, that you think would be good to go in such a blog post would you?

[Author]

Posts