TD editor is still usable in the last version of Naalaa ? or there is a new version released ?
Before i was on the old forum, i just register on the new forum, it's cool Naalaa is not dead.
Recently i have updated my french version of Naalaa with all tools also in french to match the last Naalaa version, also i saved some examples from the old forum i need to sort them.
Posted by: Marcus - 03-25-2019, 07:32 AM - Forum: Showcase
- No Replies
Here's a little tool that is not of much use when you're making games with naalaa.
When you make games that use opengl/opengles you know that texture binding can be costy. Therefor you want to squeeze as many images as possible into every texture. There are already nice tools out there that do this for you, such as Texture Packer (costs Money though). But I prefer writing my own tools, so here's a naalaa program that grabs every png image in a directory and packs them in a single image. It also generates a json file (in the same format as Texture Packer and most other programs) that specifies the locations of all sub images in the resulting image.
This program should be run from the command line. The syntax is:
atlasgen <path to images> <texture width> <texture height> [<output filename>]
So if you have a bunch of png files in a folder, c:\hello\images, and you want to generate a texture and json named my_texture.png and my_texture.json, you'd write:
Code:
atlasgen c:\hello\images 1024 1024 my_texture
Code:
' ==============================================================================
' image atlas generator, by marcus.
' ==============================================================================
import "QuickSort.lib"
LENGTH = 1
AREA = 2
if sizeof(args) < 4
_Error "atlasgen <path to images> <atlas width> <atlas height> [(name)]"
endif
if not (mid(path, len(path) - 1) = "/" or mid(path, len(path) - 1) = "\")
path = path + "/"
endif
files$[] = ListFiles(path)
count = 0
for i = 0 to sizeof(files) - 1
if len(files[i])
load image count, path + files[i]
if image(count) then count = count + 1
endif
next
if count = 0 then end
' area seems to work better
sort = AREA
uns?[count]
org?[count]
rects?[1000]
tmp[count][2]
for i = 0 to sizeof(org) - 1
' Add spacing.
uns[i].w = width(i) + 2
uns[i].h = height(i) + 2
uns[i].img = i
uns[i].fn$ = files[i]
tmp[i][0] = i
' sort based on area
if sort = AREA
' This one wins in all cases.
tmp[i][1] = uns[i].w*uns[i].h
tmp[i][1] = tmp[i][1]*min(uns[i].w, uns[i].h)/max(uns[i].w, uns[i].h)
' sort based on max of width and height
elseif sort = LENGTH
tmp[i][1] = max(uns[i].w, uns[i].h)
endif
next
' sort by area
_QuickSort2D tmp, 1
for i = 0 to sizeof(uns) - 1
org[sizeof(org) - 1 - i] = uns[tmp[i][0]]
next
for i = 0 to sizeof(org) - 1
smallestIndex = rectCount
smallestArea = WIDTH*HEIGHT*2
for j = 0 to rectCount - 1
if rects[j].w >= org[i].w and rects[j].h >= org[i].h and rects[j].w*rects[j].h < smallestArea
smallestIndex = j
smallestArea = rects[j].w*rects[j].h
endif
next
if smallestIndex = rectCount
set color 0, 0, 0
draw rect 0, 0, 208, 24, true
set color 255, 255, 255
_Error "Images did not fit"
endif
' This is not right. Checking which split yields one largest rectangle.
' It would be better to check which one yields the two 'most square' rectangles.
if a1 > a2
rects[j].x = orgX
rects[j].y = orgY + org[i].h
rects[j].w = org[i].w
rects[j].h = orgH - org[i].h
create image -1, WIDTH, HEIGHT
set image -1
set color 0, 0, 0, 0
for y = 0 to HEIGHT - 1
for x = 0 to WIDTH - 1
set pixel x, y
next
next
for i = 0 to sizeof(org) - 1
for y = 0 to height(org[i].img) - 1
for x = 0 to width(org[i].img) - 1
set image org[i].img
c[] = pixel(x, y)
set image -1
set color c[0], c[1], c[2], c[3]
set pixel org[i].x + 1 + x, org[i].y + 1 + y
next
next
next
save image - 1, name + ".png"
function quoted$(txt$)
return chr(34) + txt + chr(34)
endfunc
procedure Error(txt$)
set color 0, 0, 0
cls
set color 255, 255, 255
set caret 0, 0
wln txt
t = time()
while time() < t + 2000
redraw
wait 10
wend
end
endproc
procedure ListFiles$[](dir$)
shellexecute "open", "cmd", "", "/c cd " + chr(34) + dir + chr(34) + " & dir /b *.png > png_list.txt", true
open file 0, dir + "png_list.txt"
if file(0)
tmp$ = ""
while not eof(0)
tmp = tmp + read$(0) + chr(10)
wend
free file 0
return split(tmp, chr(10))
else
bad$[]
return bad
endif
endproc
I can't remember if I ever posted this (attached) half-finished game on the old forum. I made it while writing the GLOOM library. Here's a video of it:
I just tried it on my new computer and noticed that the mouse control was terrible. It seems that the set mouse <x>, <y> still has some issues. I tried to fix it within the game by waiting for 16ms after making the call, but if you're having trouble using the mouse controls you can play it with keyboard only too (click on How to play in the main menu).
System
For some reason, the system command did absolutely nothing on Windows (although the undocumented shellexecute did), but it's functioning now.
Code:
system "dir & echo hello world & pause"
If you want to capture the output, I suggest you pipe it to a file and read it from there for now:
Code:
' Get a list of files in the current directory.
system "dir /b > temp.txt"
open file 0, "temp.txt"
...
Mouse
set mouse <x>, <y> was a bit bugged but has been fixed now. After calling the command, the mousex() and mousey() functions would return incorrect values until the user moved the mouse and new coordinates were registered.
when i try to test my game out I save it then go to run it and it will flash up then disappear. it makes the game but doesn't run it. any ideas as to why?
