tps

local com = require "component"
local fs = require "filesystem"
local keyboard = require "keyboard"
local gpu = com.gpu

local leftX = 5
local topY = 14
local timeConstant = 0.5 --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
gpu.set(2,2,"Will measure TPS with wait period of "..tostring(timeConstant).." seconds...                                                ")
maxEQ = math.ceil((w-7)/3)


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,maxEQ 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, h-topY-10," ")  --erases the old TPS bar
  gpu.fill(leftX-1,topY+10,w-5,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.set(2,3,"To exit hold down Ctrl + W                                                ")

gpu.setBackground(0xB4B4B4)  --draws the nice grey graph background
gpu.fill(leftX-1,topY-2,w-5,h-topY-10," ")
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, maxEQ 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()
-- print (realTimeNew)
    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,5,"Server is running at :")
    gpu.set(3,6,string.sub(tostring(TPS[tSlot])..".0000",1,7).." Ticks/second                                                ")
    gpu.set(2,8,"Averaged value is:")
    gpu.set(3,9,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