diff options
| author | ubq323 <ubq323@ubq323.website> | 2024-06-26 13:19:13 +0100 |
|---|---|---|
| committer | ubq323 <ubq323@ubq323.website> | 2024-06-26 13:19:13 +0100 |
| commit | e97db36651ae3c6171644b6e4d7bf7cf613b061d (patch) | |
| tree | a7db51d179252ce4660aa5bffe292e82c7d4d051 /tests | |
| parent | c1ad2da9bd1497737c46c53e27f915cc26bc49a6 (diff) | |
mandel_local test
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/mandel_local.bth | 23 | ||||
| -rw-r--r-- | tests/mandel_local.out | 31 |
2 files changed, 54 insertions, 0 deletions
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)))) diff --git a/tests/mandel_local.out b/tests/mandel_local.out new file mode 100644 index 0000000..f9b5e6d --- /dev/null +++ b/tests/mandel_local.out @@ -0,0 +1,31 @@ +........................................#................... +............................................................ +......................................#..................... +....................................####.................... +....................................####.................... +..................................#..##..................... +.............................##..##########................. +.............................##################............. +.............................#################.............. +............................###################............. +...........................#######################.......... +.................#.##.....######################............ +.................#######..#######################........... +................#########.#######################........... +.............###################################............ +.#############################################.............. +.............###################################............ +................#########.#######################........... +.................#######..#######################........... +.................#.##.....######################............ +...........................#######################.......... +............................###################............. +.............................#################.............. +.............................##################............. +.............................##..##########................. +..................................#..##..................... +....................................####.................... +....................................####.................... +......................................#..................... +............................................................ +nil |