Show EU power values more readable (#424)
Add the EU_string helper function
In comparison to pretty_num it uses SI prefixes, adds "EU" (e.g. kEU) and rounds the number for readability
Add a constant_digit_count boolean setting
| | |
| | | |
| | | Helper functions |
| | | ---------------- |
| | | * `technic.EU_string(num)` |
| | | * Converts num to a human-readable string (see pretty_num) |
| | | and adds the `EU` unit |
| | | * Use this function when showing players energy values |
| | | * `technic.pretty_num(num)` |
| | | * Converts the number `num` to a human-readable string. |
| | | * Use this function when showing players power values. |
| | | * Converts the number `num` to a human-readable string with SI prefixes |
| | | * `technic.swap_node(pos, nodename)` |
| | | * Same as `mintest.swap_node` but it only changes the nodename. |
| | | * It uses `minetest.get_node` before swapping to ensure the new nodename |
| | |
| | | local digit_sep_esc |
| | | do |
| | | local sep = technic.config:get("digit_separator") |
| | | sep = tonumber(sep) and string.char(sep) or sep or " " |
| | | -- Escape for gsub |
| | | for magic in ("().%+-*?[^$"):gmatch(".") do |
| | | if sep == magic then |
| | | sep = "%"..sep |
| | | end |
| | | local constant_digit_count = technic.config:get("constant_digit_count") |
| | | |
| | | -- converts a number to a readable string with SI prefix, e.g. 10000 → "10 k", |
| | | -- 15 → "15 ", 0.1501 → "150.1 m" |
| | | -- a non-breaking space (U+a0) instead of a usual one is put after number |
| | | -- The precision is 4 digits |
| | | local prefixes = {[-8] = "y", [-7] = "z", [-6] = "a", [-5] = "f", [-4] = "p", |
| | | [-3] = "n", [-2] = "µ", [-1] = "m", [0] = "", [1] = "k", [2] = "M", |
| | | [3] = "G", [4] = "T", [5] = "P", [6] = "E", [7] = "Z", [8] = "Y"} |
| | | function technic.pretty_num(num) |
| | | -- the small number added is due to floating point inaccuracy |
| | | local b = math.floor(math.log10(math.abs(num)) +0.000001) |
| | | local pref_i |
| | | if b ~= 0 then |
| | | -- b is decremented by 1 to avoid a single digit with many decimals, |
| | | -- e.g. instead of 1.021 MEU, 1021 kEU is shown |
| | | pref_i = math.floor((b - 1) / 3) |
| | | else |
| | | -- as special case, avoid showing e.g. 1100 mEU instead of 1.1 EU |
| | | pref_i = 0 |
| | | end |
| | | digit_sep_esc = sep |
| | | if not prefixes[pref_i] then |
| | | -- This happens for 0, nan, inf, very big values, etc. |
| | | if num == 0 then |
| | | -- handle 0 explicilty to avoid showing "-0" |
| | | if not constant_digit_count then |
| | | return "0 " |
| | | end |
| | | -- gives 0.000 |
| | | return string.format("%.3f ", 0) |
| | | end |
| | | return string.format("%.4g ", num) |
| | | end |
| | | |
| | | num = num * 10 ^ (-3 * pref_i) |
| | | if constant_digit_count then |
| | | local comma_digits_cnt = 3 - (b - 3 * pref_i) |
| | | return string.format("%." .. comma_digits_cnt .. "f %s", |
| | | num, prefixes[pref_i]) |
| | | end |
| | | return string.format("%.4g %s", num, prefixes[pref_i]) |
| | | end |
| | | |
| | | -- some unittests |
| | | assert(technic.pretty_num(-0) == "0 ") |
| | | assert(technic.pretty_num(0) == "0 ") |
| | | assert(technic.pretty_num(1234) == "1234 ") |
| | | assert(technic.pretty_num(123456789) == "123.5 M") |
| | | |
| | | function technic.pretty_num(num) |
| | | local str, k = tostring(num), nil |
| | | repeat |
| | | str, k = str:gsub("^(-?%d+)(%d%d%d)", "%1"..digit_sep_esc.."%2") |
| | | until k == 0 |
| | | return str |
| | | |
| | | -- used to display power values |
| | | function technic.EU_string(num) |
| | | return technic.pretty_num(num) .. "EU" |
| | | end |
| | | |
| | | |
| | |
| | | local charge_to_give = math.floor((light + pos1.y) * 3) |
| | | charge_to_give = math.max(charge_to_give, 0) |
| | | charge_to_give = math.min(charge_to_give, 200) |
| | | meta:set_string("infotext", S("@1 Active (@2 EU)", machine_name, technic.pretty_num(charge_to_give))) |
| | | meta:set_string("infotext", S("@1 Active (@2)", machine_name, |
| | | technic.EU_string(charge_to_give))) |
| | | meta:set_int("LV_EU_supply", charge_to_give) |
| | | else |
| | | meta:set_string("infotext", S("%s Idle"):format(machine_name)) |
| | |
| | | active = false, |
| | | drawtype = "nodebox", |
| | | paramtype = "light", |
| | | is_ground_content = true, |
| | | is_ground_content = true, |
| | | node_box = { |
| | | type = "fixed", |
| | | fixed = {-0.5, -0.5, -0.5, 0.5, 0, 0.5}, |
| | |
| | | elseif check == true then |
| | | local power = math.min(pos.y * 100, 5000) |
| | | meta:set_int("MV_EU_supply", power) |
| | | meta:set_string("infotext", S("@1 (@2 EU)", machine_name, technic.pretty_num(power))) |
| | | meta:set_string("infotext", S("@1 (@2)", machine_name, |
| | | technic.EU_string(power))) |
| | | end |
| | | -- check == nil: assume nothing has changed |
| | | end |
| | |
| | | local demand = sw_meta:get_int("demand") |
| | | meta:set_string("infotext", |
| | | S("Power Monitor. Supply: @1 Demand: @2", |
| | | technic.pretty_num(supply), technic.pretty_num(demand))) |
| | | technic.EU_string(supply), technic.EU_string(demand))) |
| | | else |
| | | meta:set_string("infotext",S("Power Monitor Has No Network")) |
| | | end |
| | |
| | | |
| | | local charge_percent = math.floor(current_charge / max_charge * 100) |
| | | meta:set_string("formspec", formspec..add_on_off_buttons(meta, ltier, charge_percent)) |
| | | local infotext = S("@1 Battery Box: @2/@3", tier, |
| | | technic.pretty_num(current_charge), technic.pretty_num(max_charge)) |
| | | local infotext = S("@1 Battery Box: @2 / @3", tier, |
| | | technic.EU_string(current_charge), |
| | | technic.EU_string(max_charge)) |
| | | if eu_input == 0 then |
| | | infotext = S("%s Idle"):format(infotext) |
| | | end |
| | |
| | | local charge_to_give = math.floor((light + pos.y) * data.power) |
| | | charge_to_give = math.max(charge_to_give, 0) |
| | | charge_to_give = math.min(charge_to_give, data.power * 50) |
| | | meta:set_string("infotext", S("@1 Active (@2 EU)", machine_name, technic.pretty_num(charge_to_give))) |
| | | meta:set_string("infotext", S("@1 Active (@2)", machine_name, |
| | | technic.EU_string(charge_to_give))) |
| | | meta:set_int(tier.."_EU_supply", charge_to_give) |
| | | else |
| | | meta:set_string("infotext", S("%s Idle"):format(machine_name)) |
| | | meta:set_int(tier.."_EU_supply", 0) |
| | | end |
| | | end |
| | | |
| | | |
| | | minetest.register_node("technic:solar_array_"..ltier, { |
| | | tiles = {"technic_"..ltier.."_solar_array_top.png", "technic_"..ltier.."_solar_array_bottom.png", |
| | | "technic_"..ltier.."_solar_array_side.png", "technic_"..ltier.."_solar_array_side.png", |
| | |
| | | meta:set_int(from.."_EU_supply", 0) |
| | | meta:set_int(to.."_EU_demand", 0) |
| | | meta:set_int(to.."_EU_supply", input * remain) |
| | | meta:set_string("infotext", S("@1 (@2 @3 -> @4 @5)", machine_name, technic.pretty_num(input), from, technic.pretty_num(input * remain), to)) |
| | | meta:set_string("infotext", S("@1 (@2 @3 -> @4 @5)", machine_name, |
| | | technic.EU_string(input), from, |
| | | technic.EU_string(input * remain), to)) |
| | | else |
| | | meta:set_string("infotext", S("%s Has Bad Cabling"):format(machine_name)) |
| | | if to then |
| | |
| | | end |
| | | --dprint("Total BA demand:"..BA_eu_demand) |
| | | |
| | | meta:set_string("infotext", |
| | | S("@1. Supply: @2 Demand: @3", |
| | | machine_name, technic.pretty_num(PR_eu_supply), technic.pretty_num(RE_eu_demand))) |
| | | meta:set_string("infotext", S("@1. Supply: @2 Demand: @3", |
| | | machine_name, technic.EU_string(PR_eu_supply), |
| | | technic.EU_string(RE_eu_demand))) |
| | | |
| | | -- If mesecon signal and power supply or demand changed then |
| | | -- send them via digilines. |