15 lines
354 B
Plaintext
15 lines
354 B
Plaintext
# how many iterations before divergence
|
|
# iteration_number ? z0=c
|
|
Iter ← /+<2↧∞⌵⍥⟜⊸(+⊙°√)32 .
|
|
|
|
# [r g b] ? iteration_number
|
|
Color ← °hsv ⍉ ⊂¯η⊂0.75 ¤ ¬↧1÷12
|
|
# create [a, b) with n values
|
|
# ? a b n
|
|
Linspace ← ⍜-×⊙⊙(÷⟜⇡)
|
|
|
|
X ← Linspace ¯2 0.85 400
|
|
Y ← Linspace ¯1.2 1.2 400
|
|
|
|
&ims Color Iter ⊞ℂ Y X
|