[abakoboParticipant]

More convenient syntax for this will proabably happen, eg: $20000000L

Is it due to parser limitations? or is it a kind of visual helper? I’d personnaly rather like to be able to use any kind of literals up to Max_Unsigned_64bit without special syntax for bigger ones.

A 64bit enum type would be great too for bitmasking too!

[abakoboParticipant]

I’d be glad to participate but finishing the box2d module is my priority for this begging of 2018..

Good Jam!

[abakoboParticipant]

If you reach to computer limit, it’s normal that adding inputs, thus listeners calling their callback functions, will slow down the computer somehow. On my computer the code runs at 31 FPS so it’s crawling anyway!
Again you are using a lot of canvases. this is bad practice…
And you don’t need to Flush the main canvas at the end of OnRender, it’s done automatically. Canvas.Flush() is a greedy call, avoid it too..

[abakoboParticipant]

oh man! the generated image is very psychedelic! I had to jump on alt+F4!

about your code:
you are using two canvases, canvases slows down you computer, you’d probably will have better perfs with transform matrixes and a single canvas.

And yes there’s a OnUpdate() event but also OnKeyEvent() and OnMouseEvent(). OnUpdate is not documented though!(will post issue). You can have a look at spacechimps banana to see an example of an app using both OnUpdate() and OnKeyEvent()

[abakoboParticipant]

let’s say you’ve unzipped your monkey-develop from github to the Desktop (which is in the home folder).

on freshly installed Mint, I got build working typing the following, there may be some new libs to install now but it worked at the time :

Monkey

sudo apt-get update && sudo apt-get upgrade sudo apt-get install g++-multilib libglu1-mesa-dev libopenal-dev libxi-dev libxrandr-dev libxinerama-dev libxcursor-dev libxxf86vm-dev libx11-dev libgl1-mesa-dev libpulse-dev cd Desktop sudo chmod +x -R ./monkey2-develop cd monkey2-develop/scripts ./rebuildall2go.sh

1 2 3 4 5 6 7 8 9 10 11

sudo apt-get update && sudo apt-get upgrade sudo apt-get install g++-multilib libglu1-mesa-dev libopenal-dev libxi-dev libxrandr-dev libxinerama-dev libxcursor-dev libxxf86vm-dev libx11-dev libgl1-mesa-dev libpulse-dev cd Desktop sudo chmod +x -R ./monkey2-develop cd monkey2-develop/scripts ./rebuildall2go.sh

[abakoboParticipant]

It looks like the 64bit thing is for apps using some native code. Pure Java is not concerned. I think mx1 outputs Java only.

[abakoboParticipant]

I’ve been working on the module a bit.

Now wrapped (partially) the b2djson lib from iforce2d (The R.U.B.E. importer). Still have to implement images import.
Unfortunately it uses another json lib than mx2’s but it’s not that large. And I did not want to dig into cpp to use the mx2 json module.
The loader is compatible with the mx2 asset construct thus compatible with Android (tested).

On the pure box2d side, I have to work on Callbacks, collisions and wrapping b2d’s generic functions to have the api fully wrapped. Buoyancy is on the list too.

Should be continuing in January, Christmas events are taking more time that expected, as usual..

[abakoboParticipant]

Mmm testing it gives duplicate Main()… could be reserved to modules! will check and try to find the docs where a read this..

EDIT: yep it’s for modules only so it can be a bit of work just for a simple init…

But it’s great design!

[abakoboParticipant]

can not be indexed

the []= operator can be user defined (it’s used in json, map,…)

To initialize your classes you’ll have to do some of the work in a Function. But note that monkey can have several mains! You can import a .monkey2 file like init.monkey2 and in that file make all you initializations in “function main”. The main of init.monkey2 will run before the main.monkey2’s main. I think it’s the cleanest way to init you program. Or you could just have a InitGlobals() function called in main so you main remain clean..

[abakoboParticipant]

I’ve asked several times Playniax to created a repo but it looks like he’s not really into Git…
You can ask in the Pyro2 topic in the projects section. http://monkeycoder.co.nz/forums/topic/pyro-pyro-editor-for-monkey2-progress-report/

I think the Pyro2 license allows you to create a repo but it’d be much better to fork the original of course.

[abakoboParticipant]

here’s a sample code to test signed integers

Monkey

Namespace myapp #Import "<std>" Using std.. Function Main() Print "signed Byte test" Local l:ULong=Pow(2,7)-1 Local b:Byte=l Print b b+=1 Print b Print "signed Short test" l=Pow(2,15)-1 Local s:Short=l Print s s+=1 Print s Print "signed Int test" l=Pow(2,31)-1 Local i:Int=l Print i i+=1 Print i Print "signed Long test" 'l=Pow(2,63)-1 this doesn't work probably due to Pow using Double thus caping somehow l=9223372036854775807 'note that there is a bug with ted2 and you can not enter larger litterals so for larger values you'll have to use StringToUlong Local sl:Long=l Print sl sl+=1 Print sl 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

Namespace myapp   #Import "<std>"   Using std..   Function Main()     Print "signed Byte test" Local l:ULong=Pow(2,7)-1 Local b:Byte=l Print b b+=1 Print b Print "signed Short test" l=Pow(2,15)-1 Local s:Short=l Print s s+=1 Print s Print "signed Int test" l=Pow(2,31)-1 Local i:Int=l Print i i+=1 Print i Print "signed Long test"   'l=Pow(2,63)-1 this doesn't work probably due to Pow using Double thus caping somehow l=9223372036854775807 'note that there is a bug with ted2 and you can not enter larger litterals so for larger values you'll have to use StringToUlong Local sl:Long=l Print sl sl+=1 Print sl   End

[abakoboParticipant]

I think the max is always the same wether it uses one or two complement or magnitude..

You could import limit.h and get the values from there? But C++ Int is not always 32 bit?

Unsigned is easy because they are represented the same on all machines:
UByte(8bits) Max = (2^8)-1 = 255
UShort(16bits) Max = (2^16)-1 = 65535
UInt(32bits) Max = (2^32)-1 = 4294967295
Ulong(64bits) Max = (2^64)-1 = 18446744073709551615

For signed it is usually one bit less but can be sometimes padded.

if not padded (if padded remove one more bit?)

Byte(8bits) Max = (2^7)-1 = 127
Short(16bits) Max = (2^15)-1 = 32767
Int(32bits) Max = (2^31)-1 = 2147483647
Long(64bits) Max = (2^63)-1 = 9223372036854775807

some little tests would be enough to fix your different signed maxs

[abakoboParticipant]

Hmmm, I thought I read Mark had changed the GC…

Oops my bad, was not aware of that! Might be unsafe to play with pointers then. Using a very local pointer should do the trick though.

[abakoboParticipant]

I wrote a SVG parser, that makes everything into shapes, path segmets, lines etc. Then I triangulate that, and then DrawPrimitives()

Sounds great! Do plan to share this at a time?

[abakoboParticipant]

Some small pimping..

now debug:

Monkey

OriginalVersion = 67 OriginalVersion = 67176 AbakoboVersion = 65 AbakoboVersion = 65788 impixiVersion = 4 impixiVersion = 3503 NewVersion = 2 NewVersion = 2501 Tileset3 = 2 Tileset3 = 2002 Tileset4 = 1 Tileset4 = 501 Total microsecs for 100 loops : orig: 6746617 abak: 6623185 impi: 356210 tileset2: 236657 tileset3: 189626 tileset4: 64550

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

OriginalVersion  = 67 OriginalVersion  = 67176 AbakoboVersion = 65 AbakoboVersion  = 65788 impixiVersion   = 4 impixiVersion  = 3503 NewVersion    = 2 NewVersion  = 2501 Tileset3    = 2 Tileset3  = 2002 Tileset4  = 1 Tileset4  = 501 Total microsecs for 100 loops : orig: 6746617 abak: 6623185 impi: 356210 tileset2: 236657 tileset3: 189626 tileset4: 64550

Release:

Monkey

OriginalVersion = 28 OriginalVersion = 27316 AbakoboVersion = 29 AbakoboVersion = 29003 impixiVersion = 1 impixiVersion = 1004 NewVersion = 0 NewVersion = 500 Tileset3 = 1 Tileset3 = 500 Tileset4 = 0 Tileset4 = 0 Total microsecs after 100 loops: orig: 2945291 abak: 2924291 impi: 101610 tileset2: 76025 tileset3: 45032 tileset4: 26521

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

OriginalVersion  = 28 OriginalVersion  = 27316 AbakoboVersion = 29 AbakoboVersion  = 29003 impixiVersion   = 1 impixiVersion  = 1004 NewVersion    = 0 NewVersion  = 500 Tileset3    = 1 Tileset3  = 500 Tileset4  = 0 Tileset4  = 0 Total microsecs after 100 loops: orig: 2945291 abak: 2924291 impi: 101610 tileset2: 76025 tileset3: 45032 tileset4: 26521

For the “new” Tileset class I loaded a Padded png (545*18)

Tileset2 is the original “NewVersion”
Tileset3 is just moving color declaration outise of the loop. sometimes it has no/bad effect depending on how the loop is looped (100 times a list of each one or a list of 100 times each one)
Tileset4 uses Pointer to read into memory (sometimes returns 0 microsec (or 500 or 501!?) not shure it work ok but looks like.

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" #Import "assets/" Using std.. Using mojo.. Const Size:=New Vec2i( 320,200 ) Class MyWindow Extends Window Field tileSet:Image[] Field tileSetMask:Int[,,] Field tileSetClass:TileSet Field tileSetClass2:TileSet2 Field tileSetClass3:TileSet3 Field tileSetClass4:TileSet4 Method New() Super.New( "My Window",1024,768,WindowFlags.Resizable ) Window.ClearColor = Color.Black Layout="letterbox" tileSet = LoadSpriteSheet("tileset.png", 32, 16, 16) tileSetMask = New Int[32, 16, 16] Local s := Millisecs() Local n := Microsecs() Local averageFloor:=100 Local orig: Long Local abak: Long Local impi: Long Local new1: Long Local new2: Long Local new3: Long For Local averageCount:=1 To averageFloor s = Millisecs() n = Microsecs() OriginalVersion() orig+=Microsecs()-n Print "OriginalVersion = " +(Millisecs()-s) Print "OriginalVersion = " +(Microsecs()-n) s = Millisecs() n = Microsecs() AbakoboVersion() abak+=Microsecs()-n Print "AbakoboVersion = " +(Millisecs()-s) Print "AbakoboVersion = " +(Microsecs()-n) s = Millisecs() n = Microsecs() tileSetClass = New TileSet("asset::tileset.png", 16, 16) impi+=Microsecs()-n Print "impixiVersion = " +(Millisecs()-s) Print "impixiVersion = " +(Microsecs()-n) s = Millisecs() n = Microsecs() tileSetClass2 = New TileSet2("tilesetpad.png", 32, 16, 16) new1+=Microsecs()-n Print "NewVersion = " +(Millisecs()-s) Print "NewVersion = " +(Microsecs()-n) s = Millisecs() n = Microsecs() tileSetClass3 = New TileSet3("tilesetpad.png", 32, 16, 16) new2+=Microsecs()-n Print "Tileset3 = " +(Millisecs()-s) Print "Tileset3 = " +(Microsecs()-n) s = Millisecs() n = Microsecs() tileSetClass4 = New TileSet4("tilesetpad.png", 32, 16, 16) new3+=Microsecs()-n Print "Tileset4 = " +(Millisecs()-s) Print "Tileset4 = " +(Microsecs()-n) Print averageCount+" percent done." Print averageCount+" percent done." Print averageCount+" percent done." Print averageCount+" percent done." Print averageCount+" percent done." Next Print "orig: "+orig Print "abak: "+abak Print "impi: "+impi Print "tileset2: "+new1 Print "tileset3: "+new2 Print "tileset4: "+new3 End Method OnRender( canvas:Canvas ) Override canvas.TextureFilteringEnabled = False App.RequestRender() canvas.DrawImage(tileSetClass.imgAtlas, 0, 0) canvas.DrawImage(tileSetClass.imgAtlasMask, tileSetClass.imgAtlas.Width, 0) Local drawTileIndex:Int = 29 For Local y := 0 To 16 - 1 For Local x := 0 To 16 - 1 If drawTileIndex > - 1 If tileSetClass2.tileSetMask[drawTileIndex, x, y] > 0 canvas.Color = Color.Orange canvas.DrawRect(x + 150 , y + 150, 1, 1) canvas.Color = Color.White End End End End End Method OnMeasure:Vec2i() Override Return Size End Method AbakoboVersion() For Local i:Int = 0 Until tileSet.Length Local tmpCanvas := New Canvas(tileSet[i]) Local px := tmpCanvas.CopyPixmap(tmpCanvas.Viewport) Local pixPtr:UInt Ptr 'to declare only once so i's not created each time in the loop (more usefull with structs (like Color) or classes or arrays intanciation... 'RGBA8(per channel) is the default pixel format but can be different. 4*8=32bit long thus UInt For Local y := 0 To px.Height - 1 pixPtr=Cast<UInt Ptr>( px.PixelPtr( 0,y ) ) For Local x := 0 To px.Width - 1 If pixPtr[x]&$FF000000>0 'Bitwise opertor to check if there is some alpha (8 leftside bits of RGBA32(read ABGR! Endianess?) thus &$FF000000 to clear the BGR 24 bits. (is there a problem with the pixel format documentation? or is it reading small from big?) tileSetMask[i, x, y] = 1 Else tileSetMask[i, x, y] = 0 End End End Next End Method OriginalVersion() For Local i:Int = 0 Until tileSet.Length Local tmpCanvas := New Canvas(tileSet[i]) Local px := tmpCanvas.CopyPixmap(tmpCanvas.Viewport) For Local y := 0 To px.Height - 1 For Local x := 0 To px.Width - 1 Local color:Color = px.GetPixel(x, y) If color.A > 0 tileSetMask[i, x, y] = 1 Else tileSetMask[i, x, y] = 0 End End End Next End End Class TileSet Public Method New(url:String, tileWidth:Int, tileHeight:Int) Local pmAtlas := Pixmap.Load(url, PixelFormat.Unknown) If Not pmAtlas Then RuntimeError("Could not load spritesheet: " + url) Local tileCount := (pmAtlas.Width / tileWidth) * (pmAtlas.Height / tileHeight) Local pmAtlasMask := New Pixmap(pmAtlas.Width, pmAtlas.Height, PixelFormat.I8) Local pmAtlasDataPtr:UByte Ptr = pmAtlas.Data + Cast<UByte>(pmAtlas.Depth - 1) Local pmAtlasMaskDataPtr:UByte Ptr = pmAtlasMask.Data + Cast<UByte>(pmAtlasMask.Depth - 1) Local pidx:ULong = 0 While pidx < (pmAtlas.Width * pmAtlas.Height) If pmAtlasDataPtr[0] > 0 pmAtlasMaskDataPtr[0] = 255 Else pmAtlasMaskDataPtr[0] = 0 Endif pmAtlasDataPtr += Cast<UByte>(pmAtlas.Depth) pmAtlasMaskDataPtr += Cast<UByte>(pmAtlasMask.Depth) pidx += 1 Wend imgAtlas = Image.Load(url) imgAtlasMask = New Image(pmAtlasMask) pmAtlas.Discard() End Field imgAtlas:Image Field imgAtlasMask:Image End Class TileSet2 Field tileSetMask:Int[,,] Field tileSet:Image[] Method New(path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0, prefix:String = "asset::", format:PixelFormat = PixelFormat.Unknown) Local pixmap := Pixmap.Load(prefix + path, format ) Assert( pixmap, " ~n ~nGameGraphics: Pixmap " + path + " not found.~n ~n" ) tileSetMask = New Int[numFrames, cellWidth, cellHeight] Local imgs := New Image[ numFrames ] Local atlasImg := New Image( pixmap ) Local paddedWidth := cellWidth + ( padding * 2 ) Local paddedHeight := cellHeight + ( padding * 2 ) Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth For Local i := 0 Until numFrames Local col := i Mod columns Local x := ( col * paddedWidth ) + padding + border Local y := ( ( i / columns ) * paddedHeight ) + padding + border imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) ) imgs[i].Scale = New Vec2f( preScale, preScale ) For Local k := 0 To cellHeight - 1 For Local j := 0 To cellWidth - 1 Local color:Color = pixmap.GetPixel(x + j, y + k) 'Print "i = " + i + " j = " + j + " k = " + k If color.A > 0 tileSetMask[i, j, k] = 1 Else tileSetMask[i, j, k] = 0 End End End Next atlasImg = Null tileSet = imgs End End Class TileSet3 Field tileSetMask:Int[,,] Field tileSet:Image[] Method New(path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0, prefix:String = "asset::", format:PixelFormat = PixelFormat.Unknown) Local pixmap := Pixmap.Load(prefix + path, format ) Assert( pixmap, " ~n ~nGameGraphics: Pixmap " + path + " not found.~n ~n" ) If pixmap.Format<>PixelFormat.RGBA8 Print "wrong pixel format need RGBA8" Else tileSetMask = New Int[numFrames, cellWidth, cellHeight] Local imgs := New Image[ numFrames ] Local atlasImg := New Image( pixmap ) Local paddedWidth := cellWidth + ( padding * 2 ) Local paddedHeight := cellHeight + ( padding * 2 ) Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth For Local i := 0 Until numFrames Local col := i Mod columns Local x := ( col * paddedWidth ) + padding + border Local y := ( ( i / columns ) * paddedHeight ) + padding + border imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) ) imgs[i].Scale = New Vec2f( preScale, preScale ) Local color:Color For Local k := 0 To cellHeight - 1 For Local j := 0 To cellWidth - 1 color = pixmap.GetPixel(x + j, y + k) 'Print "i = " + i + " j = " + j + " k = " + k If color.A > 0 tileSetMask[i, j, k] = 1 Else tileSetMask[i, j, k] = 0 End End End Next atlasImg = Null tileSet = imgs End End End Class TileSet4 Field tileSetMask:Int[,,] Field tileSet:Image[] Method New(path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0, prefix:String = "asset::", format:PixelFormat = PixelFormat.Unknown) Local pixmap := Pixmap.Load(prefix + path, format ) Assert( pixmap, " ~n ~nGameGraphics: Pixmap " + path + " not found.~n ~n" ) If pixmap.Format<>PixelFormat.RGBA8 Print "wrong pixel format need RGBA8" Else tileSetMask = New Int[numFrames, cellWidth, cellHeight] Local imgs := New Image[ numFrames ] Local atlasImg := New Image( pixmap ) Local paddedWidth := cellWidth + ( padding * 2 ) Local paddedHeight := cellHeight + ( padding * 2 ) Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth For Local i := 0 Until numFrames Local col := i Mod columns Local x := ( col * paddedWidth ) + padding + border Local y := ( ( i / columns ) * paddedHeight ) + padding + border imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) ) imgs[i].Scale = New Vec2f( preScale, preScale ) 'Local color:Color Local pixPtr:UInt Ptr For Local k := 0 To cellHeight - 1 pixPtr=Cast<UInt Ptr>( pixmap.PixelPtr( x,y+k ) ) For Local j := 0 To cellWidth - 1 'color = pixmap.GetPixel(x + j, y + k) 'Print "i = " + i + " j = " + j + " k = " + k If pixPtr[j]&$FF000000>0 tileSetMask[i, j, k] = 1 Else tileSetMask[i, j, k] = 0 End End End #rem Local pixPtr:UInt Ptr 'to declare only once so i's not created each time in the loop (more usefull with structs (like Color) or classes or arrays intanciation... 'RGBA8(per channel) is the default pixel format but can be different. 4*8=32bit long thus UInt For Local y := 0 To px.Height - 1 pixPtr=Cast<UInt Ptr>( px.PixelPtr( 0,y ) ) For Local x := 0 To px.Width - 1 If pixPtr[x]&$FF000000>0 'Bitwise opertor to check if there is some alpha (8 leftside bits of RGBA32(read ABGR! Endianess?) thus &$FF000000 to clear the BGR 24 bits. (is there a problem with the pixel format documentation? or is it reading small from big?) tileSetMask[i, x, y] = 1 Else tileSetMask[i, x, y] = 0 End End #End Next atlasImg = Null tileSet = imgs End End End Function LoadSpriteSheet:Image[] (path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0, prefix:String = "asset::") Local atlasTexture := Texture.Load(prefix + path, Null ) Assert( atlasTexture, " ~n ~nGameGraphics: Image " + path + " not found.~n ~n" ) Local imgs := New Image[ numFrames ] Local atlasImg := New Image( atlasTexture ) Local paddedWidth := cellWidth + ( padding * 2 ) Local paddedHeight := cellHeight + ( padding * 2 ) Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth For Local i := 0 Until numFrames Local col := i Mod columns Local x := ( col * paddedWidth ) + padding + border Local y := ( ( i / columns ) * paddedHeight ) + padding + border imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) ) imgs[i].Scale = New Vec2f( preScale, preScale ) Next atlasImg = Null Return imgs 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 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 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416

Namespace myapp #Import "<std>" #Import "<mojo>" #Import "assets/" Using std.. Using mojo.. Const Size:=New Vec2i( 320,200 ) Class MyWindow Extends Window Field tileSet:Image[] Field tileSetMask:Int[,,] Field tileSetClass:TileSet Field tileSetClass2:TileSet2 Field tileSetClass3:TileSet3 Field tileSetClass4:TileSet4 Method New() Super.New( "My Window",1024,768,WindowFlags.Resizable ) Window.ClearColor = Color.Black Layout="letterbox" tileSet = LoadSpriteSheet("tileset.png", 32, 16, 16) tileSetMask = New Int[32, 16, 16] Local s := Millisecs() Local n := Microsecs() Local averageFloor:=100 Local orig: Long Local abak: Long Local impi: Long Local new1: Long Local new2: Long Local new3: Long For Local averageCount:=1 To averageFloor s = Millisecs() n = Microsecs() OriginalVersion() orig+=Microsecs()-n Print "OriginalVersion  = " +(Millisecs()-s) Print "OriginalVersion  = " +(Microsecs()-n) s = Millisecs() n = Microsecs() AbakoboVersion() abak+=Microsecs()-n Print "AbakoboVersion = " +(Millisecs()-s) Print "AbakoboVersion  = " +(Microsecs()-n) s = Millisecs() n = Microsecs() tileSetClass = New TileSet("asset::tileset.png", 16, 16) impi+=Microsecs()-n Print "impixiVersion   = " +(Millisecs()-s) Print "impixiVersion  = " +(Microsecs()-n) s = Millisecs() n = Microsecs() tileSetClass2 = New TileSet2("tilesetpad.png", 32, 16, 16) new1+=Microsecs()-n Print "NewVersion    = " +(Millisecs()-s) Print "NewVersion  = " +(Microsecs()-n) s = Millisecs() n = Microsecs() tileSetClass3 = New TileSet3("tilesetpad.png", 32, 16, 16) new2+=Microsecs()-n Print "Tileset3    = " +(Millisecs()-s) Print "Tileset3  = " +(Microsecs()-n) s = Millisecs() n = Microsecs() tileSetClass4 = New TileSet4("tilesetpad.png", 32, 16, 16) new3+=Microsecs()-n Print "Tileset4  = " +(Millisecs()-s) Print "Tileset4  = " +(Microsecs()-n)    Print averageCount+" percent done."    Print averageCount+" percent done."    Print averageCount+" percent done."    Print averageCount+" percent done."    Print averageCount+" percent done." Next Print "orig: "+orig Print "abak: "+abak Print "impi: "+impi Print "tileset2: "+new1 Print "tileset3: "+new2 Print "tileset4: "+new3 End Method OnRender( canvas:Canvas ) Override canvas.TextureFilteringEnabled = False App.RequestRender() canvas.DrawImage(tileSetClass.imgAtlas, 0, 0) canvas.DrawImage(tileSetClass.imgAtlasMask, tileSetClass.imgAtlas.Width, 0) Local drawTileIndex:Int = 29 For Local y := 0 To 16 - 1 For Local x := 0 To 16 - 1 If drawTileIndex > - 1 If tileSetClass2.tileSetMask[drawTileIndex, x, y] > 0 canvas.Color = Color.Orange canvas.DrawRect(x + 150 , y + 150, 1, 1) canvas.Color = Color.White End End End End End Method OnMeasure:Vec2i() Override Return Size End Method AbakoboVersion() For Local i:Int = 0 Until tileSet.Length Local tmpCanvas := New Canvas(tileSet[i]) Local px := tmpCanvas.CopyPixmap(tmpCanvas.Viewport) Local pixPtr:UInt Ptr 'to declare only once so i's not created each time in the loop (more usefull with structs (like Color) or classes or arrays intanciation... 'RGBA8(per channel) is the default pixel format but can be different. 4*8=32bit long thus UInt For Local y := 0 To px.Height - 1 pixPtr=Cast<UInt Ptr>( px.PixelPtr( 0,y ) ) For Local x := 0 To px.Width - 1 If pixPtr[x]&$FF000000>0 'Bitwise opertor to check if there is some alpha (8 leftside bits of RGBA32(read ABGR! Endianess?) thus &$FF000000 to clear the BGR 24 bits. (is there a problem with the pixel format documentation? or is it reading small from big?) tileSetMask[i, x, y] = 1 Else tileSetMask[i, x, y] = 0 End End End Next End Method OriginalVersion() For Local i:Int = 0 Until tileSet.Length Local tmpCanvas := New Canvas(tileSet[i]) Local px := tmpCanvas.CopyPixmap(tmpCanvas.Viewport) For Local y := 0 To px.Height - 1 For Local x := 0 To px.Width - 1 Local color:Color = px.GetPixel(x, y) If color.A > 0 tileSetMask[i, x, y] = 1 Else tileSetMask[i, x, y] = 0 End End End Next End End Class TileSet Public Method New(url:String, tileWidth:Int, tileHeight:Int) Local pmAtlas := Pixmap.Load(url, PixelFormat.Unknown) If Not pmAtlas Then RuntimeError("Could not load spritesheet: " + url) Local tileCount := (pmAtlas.Width / tileWidth) * (pmAtlas.Height / tileHeight) Local pmAtlasMask := New Pixmap(pmAtlas.Width, pmAtlas.Height, PixelFormat.I8) Local pmAtlasDataPtr:UByte Ptr = pmAtlas.Data + Cast<UByte>(pmAtlas.Depth - 1) Local pmAtlasMaskDataPtr:UByte Ptr = pmAtlasMask.Data + Cast<UByte>(pmAtlasMask.Depth - 1) Local pidx:ULong = 0 While pidx < (pmAtlas.Width * pmAtlas.Height) If pmAtlasDataPtr[0] > 0 pmAtlasMaskDataPtr[0] = 255 Else pmAtlasMaskDataPtr[0] = 0 Endif pmAtlasDataPtr += Cast<UByte>(pmAtlas.Depth) pmAtlasMaskDataPtr += Cast<UByte>(pmAtlasMask.Depth) pidx += 1 Wend imgAtlas = Image.Load(url) imgAtlasMask = New Image(pmAtlasMask) pmAtlas.Discard() End Field imgAtlas:Image Field imgAtlasMask:Image End Class TileSet2 Field tileSetMask:Int[,,] Field tileSet:Image[] Method New(path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0, prefix:String = "asset::", format:PixelFormat = PixelFormat.Unknown) Local pixmap := Pixmap.Load(prefix + path, format ) Assert( pixmap, " ~n ~nGameGraphics: Pixmap " + path + " not found.~n ~n" ) tileSetMask = New Int[numFrames, cellWidth, cellHeight] Local imgs := New Image[ numFrames ] Local atlasImg := New Image( pixmap ) Local paddedWidth := cellWidth + ( padding * 2 ) Local paddedHeight := cellHeight + ( padding * 2 ) Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth For Local i := 0 Until numFrames Local col := i Mod columns Local x := ( col * paddedWidth ) + padding + border Local y := ( ( i / columns ) * paddedHeight ) + padding + border imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) ) imgs[i].Scale = New Vec2f( preScale, preScale ) For Local k := 0 To cellHeight - 1 For Local j := 0 To cellWidth - 1 Local color:Color = pixmap.GetPixel(x + j, y + k) 'Print "i = " + i + " j = " + j + " k = " + k If color.A > 0 tileSetMask[i, j, k] = 1 Else tileSetMask[i, j, k] = 0 End End End Next atlasImg = Null tileSet = imgs End End Class TileSet3 Field tileSetMask:Int[,,] Field tileSet:Image[] Method New(path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0, prefix:String = "asset::", format:PixelFormat = PixelFormat.Unknown) Local pixmap := Pixmap.Load(prefix + path, format ) Assert( pixmap, " ~n ~nGameGraphics: Pixmap " + path + " not found.~n ~n" ) If pixmap.Format<>PixelFormat.RGBA8 Print "wrong pixel format need RGBA8" Else tileSetMask = New Int[numFrames, cellWidth, cellHeight] Local imgs := New Image[ numFrames ] Local atlasImg := New Image( pixmap ) Local paddedWidth := cellWidth + ( padding * 2 ) Local paddedHeight := cellHeight + ( padding * 2 ) Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth For Local i := 0 Until numFrames Local col := i Mod columns Local x := ( col * paddedWidth ) + padding + border Local y := ( ( i / columns ) * paddedHeight ) + padding + border imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) ) imgs[i].Scale = New Vec2f( preScale, preScale ) Local color:Color For Local k := 0 To cellHeight - 1 For Local j := 0 To cellWidth - 1 color = pixmap.GetPixel(x + j, y + k) 'Print "i = " + i + " j = " + j + " k = " + k If color.A > 0 tileSetMask[i, j, k] = 1 Else tileSetMask[i, j, k] = 0 End End End Next atlasImg = Null tileSet = imgs End End End Class TileSet4 Field tileSetMask:Int[,,] Field tileSet:Image[] Method New(path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0, prefix:String = "asset::", format:PixelFormat = PixelFormat.Unknown) Local pixmap := Pixmap.Load(prefix + path, format ) Assert( pixmap, " ~n ~nGameGraphics: Pixmap " + path + " not found.~n ~n" ) If pixmap.Format<>PixelFormat.RGBA8 Print "wrong pixel format need RGBA8" Else tileSetMask = New Int[numFrames, cellWidth, cellHeight] Local imgs := New Image[ numFrames ] Local atlasImg := New Image( pixmap ) Local paddedWidth := cellWidth + ( padding * 2 ) Local paddedHeight := cellHeight + ( padding * 2 ) Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth For Local i := 0 Until numFrames Local col := i Mod columns Local x := ( col * paddedWidth ) + padding + border Local y := ( ( i / columns ) * paddedHeight ) + padding + border imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) ) imgs[i].Scale = New Vec2f( preScale, preScale ) 'Local color:Color Local pixPtr:UInt Ptr For Local k := 0 To cellHeight - 1 pixPtr=Cast<UInt Ptr>( pixmap.PixelPtr( x,y+k ) ) For Local j := 0 To cellWidth - 1 'color = pixmap.GetPixel(x + j, y + k) 'Print "i = " + i + " j = " + j + " k = " + k If pixPtr[j]&$FF000000>0 tileSetMask[i, j, k] = 1 Else tileSetMask[i, j, k] = 0 End End End #rem Local pixPtr:UInt Ptr 'to declare only once so i's not created each time in the loop (more usefull with structs (like Color) or classes or arrays intanciation... 'RGBA8(per channel) is the default pixel format but can be different. 4*8=32bit long thus UInt For Local y := 0 To px.Height - 1 pixPtr=Cast<UInt Ptr>( px.PixelPtr( 0,y ) ) For Local x := 0 To px.Width - 1 If pixPtr[x]&$FF000000>0 'Bitwise opertor to check if there is some alpha (8 leftside bits of RGBA32(read ABGR! Endianess?) thus &$FF000000 to clear the BGR 24 bits. (is there a problem with the pixel format documentation? or is it reading small from big?) tileSetMask[i, x, y] = 1 Else tileSetMask[i, x, y] = 0 End End #End Next atlasImg = Null tileSet = imgs End End End Function LoadSpriteSheet:Image[] (path:String, numFrames:Int, cellWidth:Int, cellHeight:Int, filter:Bool = True, preScale:Float = 1.0, padding:Int = 0, border:Int = 0, prefix:String = "asset::") Local atlasTexture := Texture.Load(prefix + path, Null ) Assert( atlasTexture, " ~n ~nGameGraphics: Image " + path + " not found.~n ~n" ) Local imgs := New Image[ numFrames ] Local atlasImg := New Image( atlasTexture ) Local paddedWidth := cellWidth + ( padding * 2 ) Local paddedHeight := cellHeight + ( padding * 2 ) Local columns:Int = ( atlasImg.Width - border - border ) / paddedWidth For Local i := 0 Until numFrames Local col := i Mod columns Local x := ( col * paddedWidth ) + padding + border Local y := ( ( i / columns ) * paddedHeight ) + padding + border imgs[i] = New Image( atlasImg, New Recti( x , y, x + cellWidth, y + cellHeight ) ) imgs[i].Scale = New Vec2f( preScale, preScale ) Next atlasImg = Null Return imgs End Function Main() New AppInstance New MyWindow App.Run() End

Attachments:

1. 

   tilesetpad.png
   

2. 

   tileset.png
   

[Author]

Posts