From e709c1df68d49ef282e4024a8ab4362544d7ea65 Mon Sep 17 00:00:00 2001
From: taxicomics <168220579+taxicomics@users.noreply.github.com>
Date: Mon, 27 May 2024 15:44:13 +0200
Subject: [PATCH] Create terrain_generator.lua

inital upload
---
 lua_scripts/terrain_generator.lua | 73 +++++++++++++++++++++++++++++++
 1 file changed, 73 insertions(+)
 create mode 100644 lua_scripts/terrain_generator.lua

diff --git a/lua_scripts/terrain_generator.lua b/lua_scripts/terrain_generator.lua
new file mode 100644
index 0000000..9a6edfb
--- /dev/null
+++ b/lua_scripts/terrain_generator.lua
@@ -0,0 +1,73 @@
+function generate_terrain(seed)
+if(seed!=nil)srand(seed)
+local complexity=11
+-- generate a random heightmap
+local hmap={}
+for x=0,127 do
+    hmap[x]={}
+    for y=0,127 do
+        hmap[x][y]=rnd(complexity)
+    end
+end
+
+-- smooth the heightmap using a simple average filter
+local function smooth()
+    local temp={}
+    for x=0,127 do
+        temp[x]={}
+        for y=0,127 do
+            local sum=0
+            local ct=0
+            for dx=-1,1 do
+                for dy=-1,1 do
+                    local nx=x+dx
+                    local ny=y+dy
+                    if nx>-1 and nx<128 and ny>-1 and ny<128 then
+                        sum+=hmap[nx][ny]
+                        ct+=1
+                    end
+                end
+            end
+            temp[x][y]=sum/ct
+        end
+    end
+    hmap=temp
+end
+
+    -- smooth the heightmap 5 times
+    for i=1,4 do
+        smooth()
+    end
+
+--setting the pixel values
+        for x=0,127 do
+        for y=0,127 do
+            local val=(hmap[x][y])
+--write your own logic here!
+--this could be substituted 
+--with mset() or sth similar
+--and take the values into 
+--account.ill provide a small
+--example
+            if val<4.5 then
+            --deep water
+                sset(x,y,1)
+            elseif val<5 then
+            --water
+                sset(x,y,12)
+            elseif val<5.2 then
+            --beach
+                sset(x,y,9)
+            elseif val<6 then
+            --grass
+                sset(x,y,3)
+            elseif val<6.7 then
+            --mountain
+                sset(x,y,13)
+            else
+            --snow
+                sset(x,y,6)
+            end
+        end
+    end
+end