FPS meter

local _M = {}

local mFloor = math.floor
local sGetInfo = system.getInfo
local sGetTimer = system.getTimer

local prevTime = 0
_M.added = true
local function createText()
    local memory = display.newText('000.000 00.00 00',10,0, 'Helvetica', 10);
    memory:setReferencePoint(display.CenterLeftReferencePoint)
    memory.x, memory.y = 200,  200
    function memory:tap ()
        collectgarbage('collect')
        if _M.added then
            Runtime:removeEventListener('enterFrame', _M.labelUpdater)
            _M.added = false
        else
            Runtime:addEventListener('enterFrame', _M.labelUpdater)
            _M.added = true
        end
    end
    memory:addEventListener('tap', memory)
    return memory
end

function _M.labelUpdater(event)
    local curTime = sGetTimer()
    _M.text.text = tostring(mFloor( 1000 / (curTime - prevTime))) .. ' ' ..
            tostring(mFloor(sGetInfo('textureMemoryUsed') * 0.0001) * 0.01) .. ' ' ..
            tostring(mFloor(collectgarbage('count')))
    _M.text:toFront()
    prevTime = curTime
end

function _M:NewFPSMeter()
    self.text = createText(self)
    Runtime:addEventListener('enterFrame', _M.labelUpdater)
end

return _M