From e97db36651ae3c6171644b6e4d7bf7cf613b061d Mon Sep 17 00:00:00 2001
From: ubq323 <ubq323@ubq323.website>
Date: Wed, 26 Jun 2024 13:19:13 +0100
Subject: mandel_local test

---
 tests/mandel_local.bth | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 tests/mandel_local.bth

(limited to 'tests/mandel_local.bth')

diff --git a/tests/mandel_local.bth b/tests/mandel_local.bth
new file mode 100644
index 0000000..f2a1213
--- /dev/null
+++ b/tests/mandel_local.bth
@@ -0,0 +1,23 @@
+(let (pxy 0)
+	(while (< pxy 30)
+		(let (cim (/ (- pxy 15) 15)
+			  pxx 0)
+		    (while (< pxx 60)
+				(let (cre (/ (- pxx 40) 20)
+				      i 0
+					  zim cim
+					  zre cre
+				      mag 0
+					  nzre 0
+					  nzim 0)
+		           (while (< i 25)
+		                  (set nzre (+ cre (- (* zre zre) (* zim zim))))
+		                  (set nzim (+ cim (* 2 (* zre zim))))
+		                  (set zre nzre)
+		                  (set zim nzim)
+		                  (set mag (+ (* zre zre) (* zim zim)))
+		                  (set i (if (< mag 4) (+ i 1) 999)))
+		           (print (if (< mag 4) "#" "."))
+		           (set pxx (+ pxx 1)))))
+		    (puts "")
+		    (set pxy (+ pxy 1))))
-- 
cgit v1.2.3