mandelbrot

1 files changed, 21 insertions, 0 deletions

diff --git a/tests/mandel.bth b/tests/mandel.bth
new file mode 100644
index 0000000..5eb3fcd
--- /dev/null
+++ b/tests/mandel.bth
@@ -0,0 +1,21 @@
+(do
+ (set pxy 0)
+ (while (< pxy 30)
+        (set cim (/ (- pxy 15) 15))
+        (set pxx 0)
+        (while (< pxx 60)
+               (set cre (/ (- pxx 40) 20))
+               (set i 0)
+               (set zim cim)
+               (set zre cre)
+               (while (< i 25)
+                      (set nzre (+ cre (- (* zre zre) (* zim zim))))
+                      (set nzim (+ cim (* 2 (* zre zim))))
+                      (set zre nzre)
+                      (set zim nzim)
+                      (set i (+ i 1)))
+               (set mag (+ (* zre zre) (* zim zim)))
+               (print (if (< mag 4) "#" "."))
+               (set pxx (+ pxx 1)))
+        (puts "")
+        (set pxy (+ pxy 1))))