A packer for the bin packing problem

packer.lua

local packer = {}

function packer:new(w,h)
    local new = setmetatable({},{__index = self})
    new.x = 0
    new.y = 0
    new.w = w
    new.h = h
    return new
end

function packer:fit(blocks)
    for id,block in pairs(blocks) do
        local node = self.findNode( self, block.w or block[1], block.h or block[2])
        if node then
            blocks[id].fit = self.splitNode( node, block.w or block[1], block.h or block[2])
        end
    end
    return blocks
end

function packer.findNode(root, w, h)
    if root.used then
        return packer.findNode(root.right, w, h) or packer.findNode( root.down, w, h)
    elseif w <= root.w and h <= root.h then
        return root
    else
        return nil
    end
end

function packer.splitNode(node, w, h)
    node.used = true
    node.down  = { x = node.x,     y = node.y + h, w = node.w,     h = node.h - h }
    node.right = { x = node.x + w, y = node.y,     w = node.w - w, h = h          }
    return node
end

return packer

smallerPacker.lua

local function splitNode(node, w, h)
    node.used = true
    node.down  = { x = node.x,     y = node.y + h, w = node.w,     h = node.h - h }
    node.right = { x = node.x + w, y = node.y,     w = node.w - w, h = h          }
    return node
end

local function findNode(root, w, h)
    if root.used then
        return findNode(root.right, w, h) or findNode( root.down, w, h)
    elseif w <= root.w and h <= root.h then
        return root
    else
        return nil
    end
end

function fit(w, h, blocks)
    local root = {x = 0, y = 0, w = w, h = h }
    for id,block in pairs(blocks) do
        local node = findNode( root, block.w or block[1], block.h or block[2])
        if node then
            blocks[id].fit = splitNode( node, block.w or block[1], block.h or block[2])
        end
    end
    return blocks
end

return fit

This: https://github.com/jakesgordon/bin-packing/ was used as an example

You probably should use the small packer.
Example:
`
local packer = require("packer")
local blocks = {
{10,10},
{5,5},
{2.5,5},
{2.5,5}
}

local textureWidth, textureHeight = 10,20

local results = packer(textureWidth, textureHeight, blocks)

`