local gstatus='off'
local timei=20
local data=0
local pos=1
local time=0
local maxdata=100
local array = {}
array[1]=0
local temp=0
local h=0
local act=1
array[1]=0
array[2]=0

local function gclear()
	for o=1, 610 do
		array[o]=0
	end
	pos=1
	maxdata=100
end

local function updatetimep()
	timei=timei+5
end

local function updatetimem()
	if time<5 then
	else
		timei=timei-5
	end
end

local function file_exists(name)
	local f=io.open(name,"r")
	if f~=nil then io.close(f) return 1 else return 0 end
end

local function image()
	if gstatus=='off' then
		return
	end
	if tpt.set_pause() == 1 then
		for i=1, tonumber(pos) do
			if i==1 then
				data2=100-(tonumber(array[i])*100)/maxdata
				data1=100-(tonumber(array[i])*100)/maxdata
			elseif i==2 then
				data2=100-(tonumber(array[i])*100)/maxdata
				data1=100-(tonumber(array[i-1])*100)/maxdata
			else
				data2=100-(tonumber(array[i-1])*100)/maxdata
				data1=100-(tonumber(array[i-2])*100)/maxdata
			end
			graphics.drawLine(i, data1, i, data2, 192, 192, 192)
		end
		graphics.drawLine(1, 101, 610, 101, 255, 9, 9)
		return
	end
	if timei~=timeold then
		time=0
		timeold=timei
	end
	data=0
	h=0
	--tpt.start_getPartIndex()
	--while tpt.next_getPartIndex() do
	for i in sim.parts() do
		h=h+1
		--local index = tpt.getPartIndex()
		prop=tpt.get_property("temp",i)
		data=math.ceil(data+prop)-274
	end
	if h>0 then
		data=math.ceil(data/h)
	end
	time=time+1
	if time==timei then
		time=0
		if data>maxdata then
			maxdata=data+1
		end
		if data<0 then
			data=0
		else
			array[tonumber(pos)]=tonumber(data)
			pos=pos+1
			if pos==610 then
				pos=1
				maxdata=100
			end
		end
	end
	for i=1, tonumber(pos) do
		if i==1 then
			data2=100-(tonumber(array[i])*100)/maxdata
			data1=100-(tonumber(array[i])*100)/maxdata
		elseif i==2 then
			data2=100-(tonumber(array[i])*100)/maxdata
			data1=100-(tonumber(array[i-1])*100)/maxdata
		else
			data2=100-(tonumber(array[i-1])*100)/maxdata
			data1=100-(tonumber(array[i-2])*100)/maxdata
		end
		graphics.drawLine(i, data1, i, data2, 192, 192, 192)
	end
	graphics.drawLine(1, 101, 610, 101, 255, 9, 9)
	timeold=timei
end
tpt.register_step(image)
local bmpfile = {}
for a=1, 100 do
	bmpfile[a] = {}
	for b=1, 610 do
		bmpfile[a][b]='ffffff'
	end
end

function string.fromhex(str)
	local x = {}
	for y in str:gmatch('(..)') do
		x[#x+1] = string.char( tonumber(y, 16) )
	end
	return table.concat( x )
end

local function gwrite()
	--write graph to image
	bmpfile = {}
	for a=1, 100 do
		bmpfile[a] = {}
		for b=1, 610 do
			bmpfile[a][b]='FFFFFF'
		end
		bmpfile[a][611]='FFFF'
	end
	for g=1, 610 do
		if not array[g] then
			array[g]=0
		end
		if array[g]==0 then
			array[g]=1
		end
		h=math.ceil(100-(tonumber(array[g])*100)/maxdata)
		bmpfile[101-h][g]='FF008C'
		if g==1 then
			bmpfile[101-h][g]='FF008C'
		else
			h1=math.ceil(100-(tonumber(array[g])*100)/maxdata)
			h2=math.ceil(100-(tonumber(array[g-1])*100)/maxdata)
			if h1~=h2 then
				if h1>h2 then
					for k=h2, h1 do
						bmpfile[101-k][g]='FF008C'
					end
				else
					for k=h1, h2 do
						bmpfile[101-k][g]='FF008C'
					end
				end
			end
		end
	end
	local n=0
	repeat
		n=n+1
		arg='graph'..n..'.bmp'
	until file_exists(arg)==0
	local out = assert(io.open(arg, "a"))
	imagestart='424DD6CB02000000000036000000280000006202000064000000010018000000000000000000C40E0000C40E00000000000000000000'
	out:write(string.fromhex(imagestart))
	assert(out:close())
	local out = assert(io.open(arg, "a"))
	for a=1,100 do
		for b=1,611 do
			out:write(string.fromhex(tostring(bmpfile[a][b])))
		end
	end
	assert(out:close())
end

local function button(x,y,w,h,c,r,g,b,action)
	graphics.drawRect(x, y, w, h, r, g, b)
	k=string.len(c)*4+string.len(c)-1
	graphics.drawText(x+(w-k)/2, y+(h-7)/2, c)
	if (tpt.mousex>=x) and (tpt.mousex<=x+w) and (tpt.mousey>=y) and (tpt.mousey<=y+h) then
		graphics.fillRect(x, y, w, h, r, g, b,50)
	end
	function click(mousex, mousey, button, event)
		if (mousex>=x) and (mousex<=x+w) and (mousey>=y) and (mousey<=y+h) and (button==1) then
			if event==3 then
				graphics.fillRect(x, y, w, h, r, g, b)
				p=1
			end
			if (event==2) and (p==1) then
				p=0
				action()
			end
		end
	end
	tpt.register_mouseclick(click)
end

local function hud()
	if gstatus=='on' then
		button(550,3,50,12,'Clear',255,255,100,gclear)
		button(550,18,50,12,'Write',155,255,255,gwrite)
		button(550,33,12,12,'+',255,155,255,updatetimep)
		button(588,33,12,12,'-',155,155,255,updatetimem)
		graphics.drawText(570, 35, timei)
	end
end
tpt.register_step(hud)

local function toggle(a,b,c,d)
	if (b==103) and (c==256) and (d==1) then
		if gstatus=='off' then
			gstatus='on'
		else
			gstatus='off'
		end
	end
	if (b==103) and (c==256) and (d==2) then
		ren.grid(0)
	end
end
tpt.register_keypress(toggle)