34 lines
947 B
Plaintext
34 lines
947 B
Plaintext
|
<> (iterating ?x ?y (100) ?z ?a ?b) (?((?:) ?:) *\s)
|
||
|
|
<> (iterating ?x ?y ?n (1) ?a ?b) (?((?:) ?:) \s\s)
|
||
|
|
|
||
|
|
<> (iterating (?x) (?y) (?n) (?c) (?a) (?b)) (
|
||
|
|
iterating (?x) (?y) (?n 1 `+) (?a ?a f* ?b ?b f* `+ 4096 `>)
|
||
|
|
(?a ?a f* ?b ?b f* `- ?x `+)
|
||
|
|
(?a ?b 2048 f* f* ?y `+)
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
<> (?0 ?1 f*) (?0 ?1 `* 1024 `/)
|
||
|
|
<> (?0 ?1 f/) (?0 1024 `* ?1 `/)
|
||
|
|
<> (?0 ?1 `?:) ?:
|
||
|
|
|
||
|
|
<> (mandelbrot (?x) (?y)) (
|
||
|
|
plot-mandelbrot (0) (0) (2529 ?x `/) (2293 ?y `/) (-2048) (-1146)
|
||
|
|
)
|
||
|
|
|
||
|
|
<> (plot-mandelbrot (40) (36) (?r) (?d) (?x) (?y)) ()
|
||
|
|
|
||
|
|
<> (plot-mandelbrot (40) (?j) (?r) (?d) (?x) (?y)) (
|
||
|
|
?(?: ?:) \n
|
||
|
|
iterating (?x) (?y) (0) (0) (0) (0)
|
||
|
|
plot-mandelbrot (0) (?j 1 `+) (?r) (?d) (-2048) (?y ?d `+)
|
||
|
|
)
|
||
|
|
|
||
|
|
<> (plot-mandelbrot (?i) (?j) (?r) (?d) (?x) (?y)) (
|
||
|
|
iterating (?x) (?y) (0) (0) (0) (0)
|
||
|
|
plot-mandelbrot (?i 1 `+) (?j) (?r) (?d) (?x ?r `+) (?y)
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
mandelbrot (40) (36)
|