--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/old_tests/test_noise.nim	Mon Jul 15 20:06:42 2024 +0700
@@ -0,0 +1,17 @@
+import semicongine
+
+const w = 500
+const h = 500
+
+var o = "P2\n" & $ w & " " & $ h & "\n255\n"
+
+for y in 0 ..< h:
+  for x in 0 ..< w:
+    let v = (
+      Perlin(NewVec2f(float(x) * 0.01, float(y) * 0.01)) * 0.7 +
+      Perlin(NewVec2f(float(x) * 0.05, float(y) * 0.05)) * 0.25 +
+      Perlin(NewVec2f(float(x) * 0.2, float(y) * 0.2)) * 0.05
+    )
+    o = o & $(int((v * 0.5 + 0.5) * 255)) & " "
+  o = o & "\n"
+echo o