blob: 5b7fb9bf3e262f7674f9859951346ec66b9e65bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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)))
(write (if (< mag 4) "#" "."))
(set! pxx (+ pxx 1)))))
(say "")
(set! pxy (+ pxy 1))))
|
