From 623ee19115b99e58ec6f9dce96a3c0f427deb4eb Mon Sep 17 00:00:00 2001
From: Till Affeldt <t.affeldt@tu-braunschweig.de>
Date: Fri, 17 Mar 2023 19:50:33 +0100
Subject: [PATCH] initial commit

---
 .luacheckrc      | 41 +++++++++++++++++++++++++++
 README.md        |  5 ++++
 init.lua         | 74 ++++++++++++++++++++++++++++++++++++++++++++++++
 mod.conf         |  8 ++++++
 settingtypes.txt |  4 +++
 5 files changed, 132 insertions(+)
 create mode 100644 .luacheckrc
 create mode 100644 README.md
 create mode 100644 init.lua
 create mode 100644 mod.conf
 create mode 100644 settingtypes.txt

diff --git a/.luacheckrc b/.luacheckrc
new file mode 100644
index 0000000..728281c
--- /dev/null
+++ b/.luacheckrc
@@ -0,0 +1,41 @@
+
+std = "luajit+minetest+monoids"
+ignore = { "212" }
+
+files[".luacheckrc"].std = "min+luacheck"
+
+stds.luacheck = {}
+stds.luacheck.globals = {
+    "files",
+    "ignore",
+    "std",
+    "stds"
+}
+
+stds.minetest = {}
+stds.minetest.read_globals = {
+    "DIR_DELIM",
+    "minetest",
+    "dump",
+    "vector",
+    "VoxelManip",
+    "VoxelArea",
+    "PseudoRandom",
+    "PcgRandom",
+    "ItemStack",
+    "Settings",
+    "unpack",
+    "assert",
+    "S",
+    table = { fields = { "copy", "indexof" } },
+    math = { fields = { "sign" } }
+}
+
+stds.monoids = {}
+stds.monoids.globals = {
+    "lighting_monoids",
+    "weather"
+}
+stds.monoids.read_globals = {
+    "player_monoids"
+}
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..2cc9244
--- /dev/null
+++ b/README.md
@@ -0,0 +1,5 @@
+# Monoids for Player Lighting
+
+
+## License
+Code licensed under MIT, no media assets used.
\ No newline at end of file
diff --git a/init.lua b/init.lua
new file mode 100644
index 0000000..37055ae
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,74 @@
+lighting_monoids = {}
+
+local SET_BASE_SHADOW = minetest.settings:get_bool("lighting_monoids.set_base_shadow", true)
+local BASE_SHADOW_INTENSITY = tonumber(minetest.settings:get("lighting_monoids.base_shadow_intensity") or 0.33)
+
+local function multiply(a, b)
+    if a == nil then a = 1 end
+    if b == nil then b = 1 end
+    return a * b
+end
+
+local function fold_multiply(values)
+    local total = 1
+    for _, val in pairs(values) do
+        if val ~= nil then
+            total = total * val
+        end
+    end
+    return total
+end
+
+-- Define monoid for shadow intensity
+lighting_monoids.shadows = player_monoids.make_monoid({
+    identity = 1,
+    combine = multiply,
+    fold = fold_multiply,
+    apply = function(multiplier, player)
+        local lighting = player:get_lighting()
+        lighting.shadows = lighting.shadows or {}
+        lighting.shadows.intensity = multiplier
+        player:set_lighting(lighting)
+    end
+})
+
+-- Define monoid for color saturation
+lighting_monoids.saturation = player_monoids.make_monoid({
+    identity = 1,
+    combine = multiply,
+    fold = fold_multiply,
+    apply = function(multiplier, player)
+        local lighting = player:get_lighting()
+        lighting.saturation = multiplier
+        player:set_lighting(lighting)
+    end
+})
+
+-- Hook into MTG weather mod for compatibility (requires PR #3020)
+if minetest.get_modpath("weather") and weather and weather.on_update then
+    weather.on_update = function(player, overrides)
+        if overrides == nil then
+            return
+        end
+        if overrides.shadows and overrides.shadows.intensity then
+            local intensity = overrides.shadows.intensity
+            lighting_monoids.shadows:add_change(player, intensity, "weather:cloud_shadows")
+        end
+        overrides.lighting = nil
+        return overrides
+    end
+
+-- set base shadow intensity according to mod config
+-- only basic integration, doesn't update when command is used
+elseif minetest.get_modpath("enable_shadows") then
+    local intensity = tonumber(minetest.settings:get("enable_shadows_default_intensity") or 0.33)
+    minetest.register_on_joinplayer(function(player)
+        lighting_monoids.shadows:add_change(player, intensity, "enable_shadows:base_value")
+    end)
+
+-- set base shadow
+elseif SET_BASE_SHADOW then
+    minetest.register_on_joinplayer(function(player)
+        lighting_monoids.shadows:add_change(player, BASE_SHADOW_INTENSITY, "lighting_monoids:base_value")
+    end)
+end
diff --git a/mod.conf b/mod.conf
new file mode 100644
index 0000000..1fedbbc
--- /dev/null
+++ b/mod.conf
@@ -0,0 +1,8 @@
+name = lighting_monoids
+title = Monoids for Player Lighting
+author = TestificateMods
+depends = player_monoids
+optional_depends = enable_shadows,weather
+description = """
+
+"""
\ No newline at end of file
diff --git a/settingtypes.txt b/settingtypes.txt
new file mode 100644
index 0000000..781621c
--- /dev/null
+++ b/settingtypes.txt
@@ -0,0 +1,4 @@
+# If enabled, lighting_monoids will assign a base value to the shadow intensity.
+lighting_monoids.set_base_shadow (Set base shadow) bool true
+# The base value that will be used when no other effect is active.
+lighting_monoids.base_shadow_intensity (Base shadow intensity) float 0.33 0 1
\ No newline at end of file