Пророверка ТПС по графику [OpenComputers]

--pastebin run B1HXukMz
local com = require "component"
local fs = require "filesystem"
local keyboard = require "keyboard"
local gpu = com.gpu

local leftX = 5
local topY = 14
local timeConstant = 2 --how long it waits per measure cycle

local w, h = gpu.getResolution()
gpu.setBackground(0x000000)
gpu.setForeground(0xFFFFFF)
gpu.fill(1, 1, w, h, " ") -- clears the screen

local function time()
local f = io.open("/tmp/timeFile","w")
f:write("test")
f:close()
return(fs.lastModified("/tmp/timeFile"))
end

local realTimeOld = 0
local realTimeNew = 0
local realTimeDiff = 0

local TPS = {}
local avgTPS = 0
for tSlot=1,10 do
    TPS[tSlot]=0
end

local function getColor(tps) --Uses HSV to decide color
    local H, rP, gP, bP, X = tps*12-120, 0, 0, 0, 0
    --H is hue should range from 0 to 120
    if H<0 then H=0 end --forces greater then 0 but if things get wonky lets Hue go above 120 and turn blue
    X = (1-math.abs((H/60)%2-1))
    if H<60 then
        rP = 1
        gP = X
        bP = 0
    elseif H<120 then
        rP = X
        gP = 1
        bP = 0
    elseif H<180 then
        rP = 0
        gP = 1
        bP = X
    elseif H<240 then
        rP = 0
        gP = X
        bP = 1
    elseif H<300 then
        rP = X
        gP = 0
        bP = 1
    else
        rP = 1
        gP = 0
        bP = X
    end
    return(math.floor((rP)*255)*65536+math.floor((gP)*255)*256+math.floor((bP)*255))
end

local function histoPlot(tabVal,leftX, topY,step)
    local height = math.floor(tabVal[step]/2)+1
    if height>11 then height=11 end
    gpu.setBackground(0xB4B4B4)
    gpu.fill(3*step+leftX-2, topY-2, 2, 13," ")  --erases the old TPS bar
    gpu.fill(leftX-1,topY+10,33,1," ") --erases the old blue box
    gpu.setBackground(getColor(tabVal[step]))
    gpu.fill(3*step+leftX-2, topY-height+10, 2, height," ") --draws the TPS bar
    gpu.setBackground(0x0064FF)
    gpu.fill(leftX+step*3-2,topY+10,2,1," ") --the blue box that marks where we are on the graph
    gpu.setBackground(0x000000)
end

gpu.setBackground(0xB4B4B4)  --draws the nice grey graph background
gpu.fill(leftX-1,topY-2,33,13," ")
gpu.setBackground(0x000000)

for i = 1,#TPS do --draws the first red bars to make something looking like a graph
    local height = math.floor(TPS[i]/2)+1
    gpu.setBackground(getColor(TPS[i]))
    gpu.fill(3*i+leftX-2, topY-height+10, 2, height," ")
end
gpu.setBackground(0x000000)
gpu.set(18,11,"T/s")
gpu.set(1,12,"20")
gpu.set(1,17,"10")
gpu.set(1,22," 0")
for i=1, math.huge do
    for tSlot = 1, 10 do --main averaging loop that measures individual TPS and puts it into a cycling table location
        realTimeOld = time()
        os.sleep(timeConstant) --waits for an estimated ammount game seconds
        realTimeNew = time()

        realTimeDiff = realTimeNew-realTimeOld

        TPS[tSlot] = 20000*timeConstant/realTimeDiff
        avgTPS = (TPS[1]+TPS[2]+TPS[3]+TPS[4]+TPS[5]+TPS[6]+TPS[7]+TPS[8]+TPS[9]+TPS[10])/10
        gpu.set(2,2,"Server is running at:")
        gpu.set(3,3,string.sub(tostring(TPS[tSlot])..".0000",1,7).." Ticks/second                                                ")
        gpu.set(2,5,"Averaged value is:")
        gpu.set(3,6,string.sub(tostring(avgTPS)..".0000",1,7).." Ticks/second                                                ")
        histoPlot(TPS,leftX,topY,tSlot)
        if keyboard.isKeyDown(keyboard.keys.w) and keyboard.isControlDown() then
            gpu.set(2,11,"Exiting...                                                ")
            os.sleep(0.5)
            gpu.fill(1, 1, w, h, " ") -- clears the screen
            os.exit()
        end
    end
end