fantomX2 for Monkey2

[MikeHartParticipant]

Just to let you know, I started porting fantomX to Monkey2. It is progressing well but some more work to do as Monkey2 is missing some features from Monkey X I guess and I need to replace them.

For an example, it looks like you can resize (by using Slice) or initialise an aray only downwards. Or does anyone know how to extend an aray dynamically?

[peterigzParticipant]

You might want to look at stacks which by my understanding are basically arrays that you can resize easily.

[MikeHartParticipant]

Thanks Peter, that was my plan. But still need to have a look into them.

[impixiParticipant]

You could write a little “ResizeArray()” function that uses generics and the array CopyTo() method. Rough example:

Monkey

[crayon-5cb9caca232ce465067451 inline="true" ] #include "<std>" Using std.. '*** Function ResizeArray<T>:T[](arr:T[], length:ULong) Local tmp := New T[length] Local count := arr.Length If count > tmp.Length Then count = tmp.Length arr.CopyTo(tmp, 0, 0, count) Return tmp End '*** Function Main:Void() '--- Primitive type Local arr:= New Int[](0, 1, 2, 3, 4) arr = ResizeArray<Int>(arr, arr.Length * 2) Print "~n--Primitive type array after resize (new element values = 0)--" For Local i := 0 Until arr.Length Print i + ": " + arr[i] Next '--- Class Local arr2 := New Obj[5] Obj.InitArray(arr2) Print "~n--Class object array Before Resize--" Obj.PrintArray(arr2) arr2 = ResizeArray<Obj>(arr2, arr2.Length * 2) Print "~n--Class object array After Resize --" Print "--New elements have an incremental id value --" Obj.InitArray(arr2) Obj.PrintArray(arr2) End '*** Class Obj Private Global IdValue:UInt = 0 Field _id:UInt Public Method New() _id = IdValue IdValue += 1 End '--- Property Id:UInt() Return _id End Method ToString:String() Return String(_id) End '--- Function InitArray:Void(arr:Obj[]) If Not arr Then Return For Local i:= 0 Until arr.Length If arr[i] = Null Then arr[i] = New Obj Next End Function PrintArray:Void(arr:Obj[]) If Not arr Then Return For Local i:= 0 Until arr.Length If arr[i] <> Null Then Print i + ": " + arr[i].ToString() Next End 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

[crayon-5cb9caca232ce465067451 inline="true" ] #include "<std>"   Using std..   '***   Function ResizeArray<T>:T[](arr:T[], length:ULong) Local tmp := New T[length] Local count := arr.Length If count > tmp.Length Then count = tmp.Length arr.CopyTo(tmp, 0, 0, count) Return tmp End   '***   Function Main:Void()   '--- Primitive type   Local arr:= New Int[](0, 1, 2, 3, 4)   arr = ResizeArray<Int>(arr, arr.Length * 2) Print "~n--Primitive type array after resize (new element values = 0)--" For Local i := 0 Until arr.Length Print i + ": " + arr[i] Next   '--- Class Local arr2 := New Obj[5] Obj.InitArray(arr2)   Print "~n--Class object array Before Resize--"   Obj.PrintArray(arr2) arr2 = ResizeArray<Obj>(arr2, arr2.Length * 2) Print "~n--Class object array After Resize --" Print "--New elements have an incremental id value --" Obj.InitArray(arr2) Obj.PrintArray(arr2) End   '***   Class Obj Private Global IdValue:UInt = 0 Field _id:UInt Public Method New() _id = IdValue IdValue += 1 End '--- Property Id:UInt() Return _id End Method ToString:String() Return String(_id) End '--- Function InitArray:Void(arr:Obj[]) If Not arr Then Return For Local i:= 0 Until arr.Length If arr[i] = Null Then arr[i] = New Obj Next End Function PrintArray:Void(arr:Obj[]) If Not arr Then Return For Local i:= 0 Until arr.Length If arr[i] <> Null Then Print i + ": " + arr[i].ToString() Next End End

[/crayon]

EDIT: I should add that the above basically replicates Monkey 1 behavior – slicing and array.Resize() create new arrays rather than truly contracting/extending existing arrays.

[MikeHartParticipant]

Thanks for the code sample. If I don’t get Stacks running like I want to then I will try your code.

[neuroParticipant]

Pretty much sums it up :

[MikeHartParticipant]

LOL, thanks Neuro!

[neuroParticipant]

Just glad to see you back!

[MikeHartParticipant]

I would have posted on the MX forum before but for some odd reason i can’t.

[MikeHartParticipant]

And now I can. Mark fixed my User account.

[gunduzsParticipant]

Hi Mike,

Are you still continuing with this one? I noticed you took down the fantomX website so was curious if you’re still going to port your fantom framework over to MX2? (i sincerely hope you do!)

[MikeHartParticipant]

Yes, I will continue with it.

[MikeHartParticipant]

It is slowly coming together

Attachments:

1. 

   fontmachine_m2.png
   

[Author]

Posts