LÖVE

Code: Select all

love.filesystem.setIdentity("maketilestrip")
local folder = arg[2]
local width = 0
local height = 0
local images = {}
local files = love.filesystem.getDirectoryItems(folder)
table.sort(files)

for _, file in ipairs(files) do
    if string.sub(file, -4, -1) == ".png" then
        local image = love.image.newImageData(folder .. "/" .. file)
        local w, h = image:getDimensions()
        images[#images+1] = {image, width, w, h}
        width = width + w
        height = math.max(height, h)
    end
end

if #images ~= 0 then
    local newimage = love.image.newImageData(width, height)

    for _, image in ipairs(images) do
        image, x, w, h = unpack(image)
        newimage:paste(image, x, height - h, 0, 0, w, h)
    end

    print(("Writing output to '%s/%s.png'..."):format(
        love.filesystem.getSaveDirectory():gsub('//', '/'), folder))
    newimage:encode(folder .. ".png")
end

love.event.quit()

Code: Select all

function pointyline(x1, y1, x2, y2, pointyness) --Pointyness should be a word, it sounds so funny :P
	local pointyness = pointyness or 10
	local a = math.atan2(y2-y1, x2-x1)
	
	local size = dist(x1, y1, x2, y2)
	
	for i = 1, math.ceil(size/pointyness) do
		local p1x, p1y = math.cos(a)*(i-1)*pointyness, math.sin(a)*(i-1)*pointyness
		local p2x, p2y = math.cos(a)*i*pointyness, math.sin(a)*i*pointyness
		
		if i == math.ceil(size/pointyness) then
			p2x = x2-x1
			p2y = y2-y1
		end
		
		if math.mod(i, 2) ~= 0 then
			love.graphics.line(p1x+x1, p1y+y1, p2x+x1, p2y+y1)
		end
	end
end

function pointyrectangle(x, y, w, h, pointyness)
	pointyline(x, y, x + w, y, pointyness)
	pointyline(x, y, x, y + h, pointyness)
	pointyline(x + w, y, x + w, y + h, pointyness)
	pointyline(x, y + h, x + w, y + h, pointyness)
end

Code: Select all

function count(...) -- seems useless but can add some syntactic sugar
	return #{...}
end

Code: Select all

local STATE_IDLE, STATE_RUNNING, STATE_JUMPING, STATE_DEAD = enum( 7 )

function enum( n )
	local l = {}
	for i=1,n do
		l[i] = i
	end
	return unpack(l)
end

Code: Select all

local nested = { {a=3, b=4}, {a=5, b=6}, {a=7, b=8} }
local res = eachIndex( nested, 'b' ) -- => { 4, 6, 8 }

function eachIndex( all, id )
	local l = {}
	for i,v in ipairs( all ) do
		l[i] = v[id]
	end
	return unpack(l)
end

Code: Select all

local unnamed = { 1, 2, 3, 4, 5 }
rename( {"one", "two", "three", "four", "five"}, unnamed ) -- => { one=1, two=2, three=3, four=4, five=5 }

function rename( names, ... )
	local l = {}
	local arg = {...}
	for i,v in ipairs( arg ) do
		l[names[i]] = v
	end
	return l
end

Code: Select all

local a, b = all( 0 ) -- all are 0 now
local a, l, o, t, of, v, ar, i, ab, le, s = all( 5, 11 ) -- all 11 are 5 now

function all( val, num ) 
	local r = {} 
	for i=1,(num or 10) do
		r[i] = val
	end
	return unpack(r)
end

Code: Select all

spaceTable = {["f"] = -6, ["b"] = 5} --You can place this on love.load (it is better, actually)

function love.graphics.newPrint(t, x, y)
	local font = love.graphics.getFont()
	local last = {size = 0, off = false, t = ""}
	for i = 1, string.len(t) do
		local v = string.sub(t, i, i)
		local off = last.off or 0
		
		if spaceTable[v] then
			love.graphics.print(last.t, x + last.size + off, y)
			last.t = v
			if not last.off then
				last.off = spaceTable[v]
			else
				last.off = last.off + spaceTable[v]
			end
			last.size = font:getWidth(string.sub(t, 1, i-1))
		else
			last.t = last.t .. v
		end
		
		if i == string.len(t) then
			off = last.off or 0
			love.graphics.print(last.t, x + last.size + off, y)
		end
	end
end