From 814646b5425cb745718cc4928c9218a13107575c Mon Sep 17 00:00:00 2001
From: Zefram <zefram@fysh.org>
Date: Sun, 17 Aug 2014 23:57:01 +0100
Subject: [PATCH] Smoother link of processing cycles to ABM cycles

Make the generic processing machine code willing to complete more than
one processing cycle in one ABM cycle, and more generally to carry
over leftover processing effort after completing a processing cycle.
The src_time meta item now represents accumulated processing effort
(time multiplied by speed) in a scaled form (to retain fractions),
rather than just time in integral seconds.  This affects the MV furnace,
with speed 4 and most recipe times being 3 s, and will be essential for
faster furnaces.
---
 technic/machines/register/machine_base.lua | 84 ++++++++++++----------
 1 file changed, 45 insertions(+), 39 deletions(-)

diff --git a/technic/machines/register/machine_base.lua b/technic/machines/register/machine_base.lua
index 6972b9c..568015a 100644
--- a/technic/machines/register/machine_base.lua
+++ b/technic/machines/register/machine_base.lua
@@ -15,6 +15,10 @@ local tube = {
 	connect_sides = {left = 1, right = 1, back = 1, top = 1, bottom = 1},
 }
 
+local function round(v)
+	return math.floor(v + 0.5)
+end
+
 function technic.register_base_machine(data)
 	local typename = data.typename
 	local input_size = technic.recipes[typename].input_size
@@ -70,51 +74,53 @@ function technic.register_base_machine(data)
 			technic.handle_machine_pipeworks(pos, tube_upgrade)
 		end
 
-		local result = technic.get_recipe(typename, inv:get_list("src"))
-
-		if not result then
-			technic.swap_node(pos, machine_node)
-			meta:set_string("infotext", S("%s Idle"):format(machine_desc_tier))
-			meta:set_int(tier.."_EU_demand", 0)
-			return
+		local powered = eu_input >= machine_demand[EU_upgrade+1]
+		if powered then
+			meta:set_int("src_time", meta:get_int("src_time") + round(data.speed*10))
 		end
-		
-		if eu_input < machine_demand[EU_upgrade+1] then
-			-- Unpowered - go idle
-			technic.swap_node(pos, machine_node)
-			meta:set_string("infotext", S("%s Unpowered"):format(machine_desc_tier))
-		elseif eu_input >= machine_demand[EU_upgrade+1] then
-			-- Powered	
+		while true do
+			local result = technic.get_recipe(typename, inv:get_list("src"))
+			if not result then
+				technic.swap_node(pos, machine_node)
+				meta:set_string("infotext", S("%s Idle"):format(machine_desc_tier))
+				meta:set_int(tier.."_EU_demand", 0)
+				meta:set_int("src_time", 0)
+				return
+			end
+			meta:set_int(tier.."_EU_demand", machine_demand[EU_upgrade+1])
 			technic.swap_node(pos, machine_node.."_active")
 			meta:set_string("infotext", S("%s Active"):format(machine_desc_tier))
-
-			meta:set_int("src_time", meta:get_int("src_time") + 1)
-			if meta:get_int("src_time") >= result.time / data.speed then
-				meta:set_int("src_time", 0)
-				local output = result.output
-				if type(output) ~= "table" then output = { output } end
-				local output_stacks = {}
-				for _, o in ipairs(output) do
-					table.insert(output_stacks, ItemStack(o))
-				end
-				local room_for_output = true
-				inv:set_size("dst_tmp", inv:get_size("dst"))
-				inv:set_list("dst_tmp", inv:get_list("dst"))
-				for _, o in ipairs(output_stacks) do
-					if not inv:room_for_item("dst_tmp", o) then
-						room_for_output = false
-						break
-					end
-					inv:add_item("dst_tmp", o)
-				end
-				if room_for_output then
-					inv:set_list("src", result.new_input)
-					inv:set_list("dst", inv:get_list("dst_tmp"))
-				else
+			if meta:get_int("src_time") < round(result.time*10) then
+				if not powered then
+					technic.swap_node(pos, machine_node)
+					meta:set_string("infotext", S("%s Unpowered"):format(machine_desc_tier))
 				end
+				return
 			end
+			local output = result.output
+			if type(output) ~= "table" then output = { output } end
+			local output_stacks = {}
+			for _, o in ipairs(output) do
+				table.insert(output_stacks, ItemStack(o))
+			end
+			local room_for_output = true
+			inv:set_size("dst_tmp", inv:get_size("dst"))
+			inv:set_list("dst_tmp", inv:get_list("dst"))
+			for _, o in ipairs(output_stacks) do
+				if not inv:room_for_item("dst_tmp", o) then
+					room_for_output = false
+					break
+				end
+				inv:add_item("dst_tmp", o)
+			end
+			if not room_for_output then
+				meta:set_int("src_time", round(result.time*10))
+				return
+			end
+			meta:set_int("src_time", meta:get_int("src_time") - round(result.time*10))
+			inv:set_list("src", result.new_input)
+			inv:set_list("dst", inv:get_list("dst_tmp"))
 		end
-		meta:set_int(tier.."_EU_demand", machine_demand[EU_upgrade+1])
 	end
 	
 	minetest.register_node("technic:"..ltier.."_"..machine_name, {