[impixiParticipant]

I have a feeling the high dpi functionality is buggy at SDL2’s end (or within graphics drivers), at least on the MacOS platform. I run the following code on my 5k Retina iMac and receive incorrect results. It states that the DPIs are approx 108 and the desktop resolution is 2560×1440, all incorrect.

EDIT: Just had a thought. The 27″ 5k iMac has a stated resolution of 5120×2880 at 218 PPI. The values I get from my code are half of those values. Might not be a “bug” after all, just “unexpected behaviour”.

Monkey

[crayon-5cba94d065a0a532958970 inline="true" ]#Import "<sdl2>" #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Using sdl2.. Class MyWindow Extends Window Method New() Super.New( "HIGH DPI", 1024, 768, WindowFlags.Resizable | WindowFlags.HighDPI) Local ddpi:Float Local hdpi:Float Local vdpi:Float SDL_GetDisplayDPI(0, Varptr(ddpi), Varptr(hdpi), Varptr(vdpi)) Print "ddpi: " + ddpi Print "hdpi: " + hdpi Print "vdpi: " + vdpi End Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText("Desktop resolution: " + App.DesktopSize.X + " x " + App.DesktopSize.Y, 10, 10) 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

[crayon-5cba94d065a0a532958970 inline="true" ]#Import "<sdl2>" #Import "<std>" #Import "<mojo>"   Using std.. Using mojo.. Using sdl2..   Class MyWindow Extends Window   Method New() Super.New( "HIGH DPI", 1024, 768, WindowFlags.Resizable | WindowFlags.HighDPI) Local ddpi:Float Local hdpi:Float Local vdpi:Float SDL_GetDisplayDPI(0, Varptr(ddpi), Varptr(hdpi), Varptr(vdpi)) Print "ddpi: " + ddpi Print "hdpi: " + hdpi Print "vdpi: " + vdpi End   Method OnRender( canvas:Canvas ) Override App.RequestRender() canvas.DrawText("Desktop resolution: " + App.DesktopSize.X + " x " + App.DesktopSize.Y, 10, 10) End End   Function Main() New AppInstance New MyWindow App.Run() End

[/crayon]

On the positive side, the undocumented WindowFlags.HighDPI creation flag works nicely, though I need to load my fonts at a larger size, obviously. Text is very sharp. (Ted2 makes use of that flag too).

My next project is very text heavy, so I also would like bug-free DPI-related functionality, if possible…

[impixiParticipant]

@xaron

Excellent! We can do this *together*!

[impixiParticipant]

Assuming there are no *extremely* negative currency exchange rate variations / economic events, the Patreon pledge total will remain above $1,000 for the next 12 months – I have personally committed to keep it there (to Mark, via email exchanges) and set aside the necessary funds to do so. (I have a private, proven history of repeated “higher level” donations to BRL).

That said, I’m hoping the burden won’t fall exclusively on my shoulders (but I’ll *happily* accept that responsibility if necessary). Every single dollar pledged is *important*, and not only because it’s a nice boost to the total – it’s also a nice boost for morale! Even if you can afford only one dollar per month it shows a genuine interest in the project.

A software engineer of Mark’s caliber could earn considerably more than $1,000 per month if employed by a company, as I’m sure you’re all aware, so I think it’s a bargain price to employ his services through Patreon.

Besides, I think we’re all keen for a nice little 3D engine from Mark.

[impixiParticipant]

I’m not sure what’s going on behind the scenes, but I’d call it a “ternary operation” because it takes three elements and behaves like an operator.

Monkey 2’s
? Else
is basically equivalent to C’s
? :

https://en.wikipedia.org/wiki/Ternary_operation

[impixiParticipant]

one interesting thing is the FPS in my Original template runs at 60 frames per second , on yours the frame rate is much higher, on Windows and OSX.

SwapInterval = 0 disables vsync, I believe, so that’s the frame rate difference.

[impixiParticipant]

@degac:

I suppose if we sum the Patreon+PayPal donate that amount was already reached.

True. I have been donating regularly via PayPal myself but have rejoined Patreon now, hoping they have learned their security lessons from the 2015 hack.

[impixiParticipant]

You could try something like this:?

Monkey

[crayon-5cba94d075a61683458447 inline="true" ]#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyApp Extends Window Field UpdateTimer:Timer Field ticker:ULong = 0 Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags) App.Activated += OnActivated App.Deactivated += OnDeactivated UpdateTimer = New Timer(60, OnUpdate) SwapInterval = 0 End Method OnUpdate() ticker += 1 End Method OnRender( canvas:Canvas ) Override If Not App.Active Then Return App.RequestRender() canvas.DrawText("Click Minimize/Maximize Window", 10, 10) canvas.DrawText("FPS: " + App.FPS, 10, 50) canvas.DrawText("Ticker: " + ticker, 10, 90) canvas.Flush() End Method OnActivated:Void() UpdateTimer.Suspended = False End Method OnDeactivated:Void() UpdateTimer.Suspended = True End End Function Main() New AppInstance New MyApp( "MX2 Template", 640, 480 ) 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

[crayon-5cba94d075a61683458447 inline="true" ]#Import "<std>" #Import "<mojo>" #Import "<mojox>" Using std.. Using mojo.. Using mojox.. Class MyApp Extends Window Field UpdateTimer:Timer Field ticker:ULong = 0 Method New( title:String,width:Int,height:Int,flags:WindowFlags=WindowFlags.Resizable ) Super.New( title,width,height,flags) App.Activated += OnActivated App.Deactivated += OnDeactivated UpdateTimer = New Timer(60, OnUpdate) SwapInterval = 0 End Method OnUpdate() ticker += 1 End Method OnRender( canvas:Canvas ) Override If Not App.Active Then Return App.RequestRender()   canvas.DrawText("Click Minimize/Maximize Window", 10, 10) canvas.DrawText("FPS: " + App.FPS, 10, 50) canvas.DrawText("Ticker: " + ticker, 10, 90)                 canvas.Flush() End   Method OnActivated:Void() UpdateTimer.Suspended = False End Method OnDeactivated:Void() UpdateTimer.Suspended = True End   End Function Main() New AppInstance New MyApp( "MX2 Template", 640, 480 ) App.Run() End

[/crayon]

[impixiParticipant]

Monkey

[crayon-5cba94d079e86338965157 inline="true" ] Namespace myapp #Import "<std>" Using std.. Function Main() SeedRnd(Microsecs()) Local val := Floor(Rnd(0, 100)) Local msg := (val >= 50) ? val + " >= 50" Else val + " < 50" Print msg End

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

[crayon-5cba94d079e86338965157 inline="true" ] Namespace myapp   #Import "<std>"   Using std..   Function Main()   SeedRnd(Microsecs())   Local val := Floor(Rnd(0, 100)) Local msg := (val >= 50) ? val + " >= 50" Else val + " < 50"   Print msg End

[/crayon]

[impixiParticipant]

Adam, I’m not sure the comparison is fair/valid.

Yoyo Games probably have an employee dedicated full-time to writing documentation for their Gamemaker product. And they can afford it: Gamemaker is not open source and the Pro and Master editions are $149.99 and $799.99 respectively. Plus it is listed on Steam and so benefits from that exposure.

BRL is basically a one man show, and Monkey 2 is an open source project. Therefore it survives purely on the generosity of contributors via Patreon and Paypal donations. And Mark’s time is limited.

That said, I agree documentation is very important. So, aside from cash donations, maybe the best way people can contribute to Monkey 2 is via documentation, whether examples, tutorials, API references, etc. There are already docs available, though scattered in various places such as the official Monkey 2 docs, forums, youtube, github and other websites.

Maybe we do need a centralized documentation aggregation point? (ie a Wiki, as scurty suggests)…

[impixiParticipant]

I’ve been coding some image filtering functions, one of which is a normal map generator. Still a WIP (no docs, etc), but take a look:

[deleted embedded code, it’s in the attachment.]

@Richard: That link is dead for me…

EDIT: I should point out the normal map generation code uses MX2’s “hidden” Vec3 class, so may break in the future?

EDIT2: Zipped up the code with a “test.jpg” image and attached it to this post (I hope)…

Attachments:

1. imgfiltertest.zip

[impixiParticipant]

TED2’s File->Quit works for me, but not the File->Quit from the MacOS “bar”. Latest MacOS version.

[impixiParticipant]

Define a namespace at the top of ultim.monkey2 e.g:

Namespace ultim

In your main.monkey2 your import should be:

#Import "ultim.monkey2"

and then you need to put the following at the top:

Using ultim..

Alternatively, just delete the Namespace defined in main.monkey2 and fix the import statement, as above.

[impixiParticipant]

Here’s the other pooling technique I experimented with:

Monkey

[crayon-5cba94d088a26742302929 inline="true" ] #import "<std>" Using std.collections Interface iPoolable Field idx:Int '*** For TESTING only. Method ToString:String() '*** End Class ArrayPool Private Field _capacity:Int Field _objs:iPoolable[] Field _autoResize:Bool Field _autoResizeMultiplier:Float Field _creator:iPoolable() Field _idxAvailable:Int Public Method New(creator:iPoolable(), capacity:Int = 10, autoResize:bool = True, autoResizeMultiplier:Float = 2.0) AutoResize = autoResize AutoResizeMultiplier = autoResizeMultiplier Creator = creator Capacity = capacity _idxAvailable = 0 End Property AutoResize:Bool() Return _autoResize Setter (value:Bool) _autoResize = value End Property AutoResizeMultiplier:Float() Return _autoResizeMultiplier Setter (value:Float) If value <= 1.0 Then value = 1.1 _autoResizeMultiplier = value End Property Capacity:Int() Return _capacity Setter (value:Int) If value >= _capacity Local arr := New iPoolable[value] _objs.CopyTo(arr, 0, 0, _objs.Length) _objs = arr For Local i:= _capacity Until value _objs[i] = _creator() _objs[i].idx = i Next FindAvailableIdx() Else _objs = _objs.Slice(0, value) If _objs[value] = Null Then _idxAvailable = value Endif _capacity = value End Property Creator:Void(func:iPoolable()) If func = Null Then RuntimeError("Error: Poolable object creation function cannot be null.") _creator = func End Property Contents:iPoolable[]() Return _objs End Method FindAvailableIdx:Void() For Local i:Int = 0 Until _objs.Length If _objs[i] <> Null _idxAvailable = i Return Endif Next _idxAvailable = _capacity End Method Free:Void(obj:iPoolable) If obj = Null Then Return _idxAvailable -= 1 _objs[_idxAvailable] = obj End Method Allocate:iPoolable() If _idxAvailable >= _capacity If Not _autoResize Return Null Else Capacity *= _autoResizeMultiplier Endif Endif Local obj := _objs[_idxAvailable] _objs[_idxAvailable] = Null _idxAvailable += 1 Return obj End '*** For TESTING Method PrintAll:Void() Print "------" For Local obj := Eachin _objs If obj = Null Then Continue Print obj.ToString() + " -- IDX = " + obj.idx Next Print "------" End '*** End '--------------- Class Obj Implements iPoolable Private Global IdCounter:UInt = 1 Field _id:UInt Public Function Create:iPoolable() Return New Obj() End Method New() _id = IdCounter IdCounter += 1 End Method ToString:string() Return "ID: " + _id End '*** For TESTING only. Function PrintStack:Void(stack:Stack<Obj>) If stack = Null Then Return If stack.Empty Then Return For Local obj:= Eachin stack Print obj.ToString() Next End '*** End '--------------- Function Main:Void() Local pool:=New ArrayPool(Obj.Create, 5, True) Local active := New Stack<Obj> Print "~n------------" Print "ALLOCATION" Print "------------" Print "~nActive:" For Local n:= 1 To 9 Local obj := Cast<Obj>(pool.Allocate()) If (obj<>Null) active.Push(obj) Else Print "NULL" Endif Next Obj.PrintStack(active) Print "~nPooled:" pool.PrintAll() Print "~n------------" Print "FREE" Print "------------" For Local n := 1 To 5 pool.Free(active.Pop()) Next Print "~nActive:" Obj.PrintStack(active) Print "~nPooled:" pool.PrintAll() Print "~nAllocate again" For Local n:= 1 To 4 Local obj := Cast<Obj>(pool.Allocate()) If (obj<>Null) active.Push(obj) Else Print "NULL" Endif Next Print "~nActive:" Obj.PrintStack(active) Print "~nPooled:" pool.PrintAll() 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 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

[crayon-5cba94d088a26742302929 inline="true" ] #import "<std>"   Using std.collections   Interface iPoolable Field idx:Int '*** For TESTING only. Method ToString:String() '***   End   Class ArrayPool   Private Field _capacity:Int Field _objs:iPoolable[] Field _autoResize:Bool Field _autoResizeMultiplier:Float   Field _creator:iPoolable()   Field _idxAvailable:Int   Public Method New(creator:iPoolable(), capacity:Int = 10, autoResize:bool = True, autoResizeMultiplier:Float = 2.0) AutoResize = autoResize AutoResizeMultiplier = autoResizeMultiplier Creator = creator Capacity = capacity _idxAvailable = 0 End Property AutoResize:Bool() Return _autoResize Setter (value:Bool) _autoResize = value End Property AutoResizeMultiplier:Float() Return _autoResizeMultiplier Setter (value:Float) If value <= 1.0 Then value = 1.1 _autoResizeMultiplier = value End Property Capacity:Int() Return _capacity Setter (value:Int) If value >= _capacity Local arr := New iPoolable[value] _objs.CopyTo(arr, 0, 0, _objs.Length) _objs = arr For Local i:= _capacity Until value _objs[i] = _creator() _objs[i].idx = i Next FindAvailableIdx() Else _objs = _objs.Slice(0, value) If _objs[value] = Null Then _idxAvailable = value Endif _capacity = value End Property Creator:Void(func:iPoolable()) If func = Null Then RuntimeError("Error: Poolable object creation function cannot be null.") _creator = func End Property Contents:iPoolable[]() Return _objs End Method FindAvailableIdx:Void() For Local i:Int = 0 Until _objs.Length If _objs[i] <> Null _idxAvailable = i Return Endif Next _idxAvailable = _capacity End Method Free:Void(obj:iPoolable) If obj = Null Then Return _idxAvailable -= 1 _objs[_idxAvailable] = obj End Method Allocate:iPoolable() If _idxAvailable >= _capacity If Not _autoResize Return Null Else Capacity *= _autoResizeMultiplier Endif Endif Local obj := _objs[_idxAvailable] _objs[_idxAvailable] = Null _idxAvailable += 1   Return obj End   '*** For TESTING Method PrintAll:Void() Print "------" For Local obj := Eachin _objs If obj = Null Then Continue Print obj.ToString() + " -- IDX = " + obj.idx Next Print "------" End '***   End   '---------------   Class Obj Implements iPoolable   Private Global IdCounter:UInt = 1 Field _id:UInt Public Function Create:iPoolable() Return New Obj() End Method New() _id = IdCounter IdCounter += 1 End Method ToString:string() Return "ID: " + _id End '*** For TESTING only. Function PrintStack:Void(stack:Stack<Obj>) If stack = Null Then Return If stack.Empty Then Return For Local obj:= Eachin stack Print obj.ToString() Next End '***   End   '---------------   Function Main:Void()   Local pool:=New ArrayPool(Obj.Create, 5, True)   Local active := New Stack<Obj> Print "~n------------" Print "ALLOCATION" Print "------------"   Print "~nActive:" For Local n:= 1 To 9 Local obj := Cast<Obj>(pool.Allocate()) If (obj<>Null) active.Push(obj) Else Print "NULL" Endif Next Obj.PrintStack(active)   Print "~nPooled:"   pool.PrintAll()   Print "~n------------" Print "FREE" Print "------------" For Local n := 1 To 5 pool.Free(active.Pop()) Next Print "~nActive:" Obj.PrintStack(active) Print "~nPooled:" pool.PrintAll()   Print "~nAllocate again"   For Local n:= 1 To 4 Local obj := Cast<Obj>(pool.Allocate()) If (obj<>Null) active.Push(obj) Else Print "NULL" Endif Next Print "~nActive:"   Obj.PrintStack(active)   Print "~nPooled:"   pool.PrintAll()   End

[/crayon]

Objects to be pooled must implement the iPoolable Interface. The pool also requires a “creator function” (basically a constructor replacement).

This technique affords greater flexibility though at a cost of greater abstraction.

I used an array instead of a stack for performance testing reasons – surprisingly there was no performance benefit. Maybe I should reimplement it with a Stack…

[impixiParticipant]

IIRC, there is no Monkey1-like Pool class in MX2’s collections library.

I did some pooling experiments several MX2 releases back. I could not find a solution that performed quicker than run-time Newing of objects, regardless of the quantity (on PC hardware). Memory fragmentation issues, however, are theoretically solved by object pooling.

Here’s a simple generic object pooling class:

Note that any objects added to it require a default New() constructor.

Monkey

[crayon-5cba94d091688724749587 inline="true" ] #import "<std>" Using std.collections '---- Class Pool<T> Private Field _autoResize:Bool Field _autoResizeMultiplier:Float Field _capacity:UInt Field _objs:Stack<T> Method Fill:Void() For Local n:= _objs.Length Until _capacity 'A default constructor (New() without parameters) is required 'otherwise the compiler will raise the following error: 'Can't find overload for 'new(...)' with argument types () _objs.Push(New T()) Next End Public Method New(capacity:UInt = 10, autoResize:Bool = True, autoResizeMultiplier:Float = 2.0) _objs = New Stack<T> Capacity = capacity AutoResize = autoResize AutoResizeMultiplier = autoResizeMultiplier End Property AutoResize:Bool() Return _autoResize Setter (value:Bool) _autoResize = value End Property AutoResizeMultiplier:Float() Return _autoResizeMultiplier Setter (value:Float) _autoResizeMultiplier = value If _autoResizeMultiplier < 1.1 Then _autoResizeMultiplier = 1.1 End Property Capacity:UInt() Return _capacity Setter (value:UInt) If value >= _capacity _capacity = value Fill() Else _capacity = value For Local n := _objs.Length until _capacity Step - 1 _objs.Pop() Next Endif End Property Contents:Stack<T>() Return _objs End Method Put:Void(obj:T, forceAppend:Bool = False) If _objs.Length < _capacity _objs.Push(obj) Else If forceAppend _objs.Push(obj) _capacity += 1 Endif Endif End Method Get:T() If _objs.Empty If AutoResize Capacity *= AutoResizeMultiplier Else Return Null Endif Endif Return _objs.Pop() End End '-------------------- Class Obj Private Global IdCounter:UInt = 1 Field _id:UInt Public Method New() _id = IdCounter IdCounter += 1 End Method ToString:string() Return "ID: " + _id End Function PrintStack:Void(objs:Stack<Obj>) If objs = Null Then Return For Local obj := Eachin objs Print obj.ToString() Next End End '-------------------- Function Main:Void() Local pool:=New Pool<Obj>(5) Obj.PrintStack(pool.Contents) 'pool.Capacity = 15 'Obj.PrintStack(pool.Contents) Local active := New Stack<Obj> Print "~n------------" Print "ALLOCATION" Print "------------" Print "~nActive:" For Local n:= 1 To 6 Local obj := Cast<Obj>(pool.Get()) If (obj<>Null) active.Push(obj) Else Print "NULL" Endif Next Obj.PrintStack(active) Print "~nPooled:" Obj.PrintStack(pool.Contents) Print "~n------------" Print "FREEING" Print "------------" For Local n := 1 To 3 pool.Put(active.Pop(), True) Next Print "~nActive:" Obj.PrintStack(active) Print "~nPooled:" Obj.PrintStack(pool.Contents) 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 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

[crayon-5cba94d091688724749587 inline="true" ] #import "<std>"   Using std.collections   '----   Class Pool<T>   Private Field _autoResize:Bool Field _autoResizeMultiplier:Float Field _capacity:UInt Field _objs:Stack<T> Method Fill:Void() For Local n:= _objs.Length Until _capacity 'A default constructor (New() without parameters) is required 'otherwise the compiler will raise the following  error: 'Can't find overload for 'new(...)' with argument types () _objs.Push(New T()) Next End   Public Method New(capacity:UInt = 10, autoResize:Bool = True, autoResizeMultiplier:Float = 2.0) _objs = New Stack<T> Capacity = capacity AutoResize = autoResize AutoResizeMultiplier = autoResizeMultiplier End   Property AutoResize:Bool() Return _autoResize Setter (value:Bool) _autoResize = value End   Property AutoResizeMultiplier:Float() Return _autoResizeMultiplier Setter (value:Float) _autoResizeMultiplier = value If _autoResizeMultiplier < 1.1 Then _autoResizeMultiplier = 1.1 End   Property Capacity:UInt() Return _capacity Setter (value:UInt) If value >= _capacity _capacity = value Fill() Else _capacity = value For Local n := _objs.Length until _capacity Step - 1 _objs.Pop() Next Endif End Property Contents:Stack<T>() Return _objs End Method Put:Void(obj:T, forceAppend:Bool = False) If _objs.Length < _capacity _objs.Push(obj) Else If forceAppend _objs.Push(obj) _capacity += 1 Endif Endif End Method Get:T() If _objs.Empty If AutoResize Capacity *= AutoResizeMultiplier Else Return Null Endif Endif Return _objs.Pop() End   End   '--------------------   Class Obj Private Global IdCounter:UInt = 1 Field _id:UInt Public Method New() _id = IdCounter IdCounter += 1 End Method ToString:string() Return "ID: " + _id End Function PrintStack:Void(objs:Stack<Obj>) If objs = Null Then Return For Local obj := Eachin objs Print obj.ToString() Next End End   '--------------------   Function Main:Void() Local pool:=New Pool<Obj>(5) Obj.PrintStack(pool.Contents)   'pool.Capacity = 15 'Obj.PrintStack(pool.Contents)   Local active := New Stack<Obj> Print "~n------------" Print "ALLOCATION" Print "------------"   Print "~nActive:" For Local n:= 1 To 6 Local obj := Cast<Obj>(pool.Get()) If (obj<>Null) active.Push(obj) Else Print "NULL" Endif Next Obj.PrintStack(active)   Print "~nPooled:"   Obj.PrintStack(pool.Contents)   Print "~n------------" Print "FREEING" Print "------------" For Local n := 1 To 3 pool.Put(active.Pop(), True) Next Print "~nActive:" Obj.PrintStack(active) Print "~nPooled:" Obj.PrintStack(pool.Contents)   End

[/crayon]

I do have another solution somewhere that makes use of objects that implement a “Pooleable” Interface. I’ll see if I can dig it up and post it as another example…

[impixiParticipant]

Another tinyxml2 example with element attributes and “embedded XML”:

Monkey

[crayon-5cba94d098507006274581 inline="true" ] #Import "<std>" #Import "<mojo>" #import "<mojox>" #Import "<tinyxml2>" Using std.. Using mojo.. Using mojox.. Using tinyxml2.. Function Main() New AppInstance New MyWindow() App.Run() End Class MyWindow Extends Window Field _tree:TreeView Method New() Super.New("XML TreeView Test", 640, 480, WindowFlags.Resizable) Local xml := LoadEmbeddedXMLString() Local doc := New XMLDocument() If doc.Parse(xml) <> XMLError.XML_SUCCESS Print "Failed to parse embedded XML!" Return Endif Local _tree := New TreeView _tree.RootNode.Text = "XML document" AddXMLNodeToTree(doc, _tree.RootNode) ContentView = _tree doc.Destroy() End Method AddXMLNodeToTree(xmlNode:XMLNode, parent:TreeView.Node) Local str := "" Local xmlElement := xmlNode.ToElement() If xmlElement str += "<" + xmlNode.Value() Local attrib := xmlElement.FirstAttribute() While attrib str += " " + attrib.Name() + "=~q" + attrib.Value() + "~q " attrib=attrib.NextAttribute() wend str += ">" Else str += xmlNode.Value() Endif Local treeNode:TreeView.Node If str treeNode = New TreeView.Node(str, parent) Endif Local xmlChild := xmlNode.FirstChild() While xmlChild If Not xmlChild.NoChildren() If treeNode Then parent = treeNode Endif AddXMLNodeToTree(xmlChild, parent) xmlChild = xmlChild.NextSibling() Wend End End Function LoadEmbeddedXMLString:string() Local str := " <?xml version=~q1.0~q encoding=~qUTF-8~q?> <recipes> <recipe> <name>Recall Scroll</name> <results> <item name=~qRecall Scroll~q quantity=~q1~q /> </results> <requirements> <skill name=~qAlchemy~q level=~q0~q /> <item name=~qMortar and Pestle~q quantity=~q1~q /> <item name=~qWood Pulp~q quantity=~q5~q /> <item name=~qNightshade~q quantity=~q10~q /> <item name=~qBlack Pearl~q quantity=~q10~q /> </requirements> </recipe> <recipe> <name>Teleport Scroll</name> <results> <item name=~qTeleport Scroll~q quantity=~q1~q /> </results> <requirements> <skill name=~qAlchemy~q level=~q0~q /> <item name=~qMortar and Pestle~q quantity=~q1~q /> <item name=~qWood Pulp~q quantity=~q5~q /> <item name=~qMandrake Root~q quantity=~q10~q /> <item name=~qBlack Pearl~q quantity=~q10~q /> </requirements> </recipe> </recipes> " Return str 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 121 122 123 124 125 126 127 128 129 130 131 132 133 134

[crayon-5cba94d098507006274581 inline="true" ] #Import "<std>" #Import "<mojo>" #import "<mojox>" #Import "<tinyxml2>"   Using std.. Using mojo.. Using mojox.. Using tinyxml2..   Function Main()   New AppInstance New MyWindow() App.Run() End   Class MyWindow Extends Window   Field _tree:TreeView   Method New() Super.New("XML TreeView Test", 640, 480, WindowFlags.Resizable)   Local xml := LoadEmbeddedXMLString() Local doc := New XMLDocument() If doc.Parse(xml) <> XMLError.XML_SUCCESS Print "Failed to parse embedded XML!" Return Endif Local _tree := New TreeView   _tree.RootNode.Text = "XML document"   AddXMLNodeToTree(doc, _tree.RootNode) ContentView = _tree doc.Destroy() End   Method AddXMLNodeToTree(xmlNode:XMLNode, parent:TreeView.Node) Local str := "" Local xmlElement := xmlNode.ToElement() If xmlElement str += "<" + xmlNode.Value() Local attrib := xmlElement.FirstAttribute() While attrib str += " " + attrib.Name() + "=~q" + attrib.Value() + "~q " attrib=attrib.NextAttribute() wend str += ">" Else str += xmlNode.Value() Endif   Local treeNode:TreeView.Node If str treeNode = New TreeView.Node(str, parent) Endif Local xmlChild := xmlNode.FirstChild() While xmlChild If Not xmlChild.NoChildren() If treeNode Then parent = treeNode Endif AddXMLNodeToTree(xmlChild, parent) xmlChild = xmlChild.NextSibling() Wend End   End   Function LoadEmbeddedXMLString:string() Local str := " <?xml version=~q1.0~q encoding=~qUTF-8~q?> <recipes>   <recipe>     <name>Recall Scroll</name>     <results>         <item name=~qRecall Scroll~q quantity=~q1~q />     </results>     <requirements>       <skill name=~qAlchemy~q level=~q0~q />       <item name=~qMortar and Pestle~q quantity=~q1~q />       <item name=~qWood Pulp~q quantity=~q5~q />       <item name=~qNightshade~q quantity=~q10~q />       <item name=~qBlack Pearl~q quantity=~q10~q />     </requirements>   </recipe>   <recipe>     <name>Teleport Scroll</name>     <results>         <item name=~qTeleport Scroll~q quantity=~q1~q />     </results>     <requirements>       <skill name=~qAlchemy~q level=~q0~q />       <item name=~qMortar and Pestle~q quantity=~q1~q />       <item name=~qWood Pulp~q quantity=~q5~q />       <item name=~qMandrake Root~q quantity=~q10~q />       <item name=~qBlack Pearl~q quantity=~q10~q />     </requirements>   </recipe> </recipes> "   Return str   End

[/crayon]

[Author]

Posts