ugly colors draw mandel brot (slow)

2025-09-21 13:02:36 +02:00
parent fbdcdc41a4
commit 3f76529d15
1 changed files with 15 additions and 1 deletions
--- a/main.ua
+++ b/main.ua
@@ -1 +1,15 @@
-"Hello, World!"
+# how many iterations before divergence
+# ? z0=c
+Iter ← ◌⍢(
+  ⊃(+ⁿ2⊙⋅∘|⋅+₁)
+| ↧⊙<₁₀₀₀≤2⌵
+)⊙0.
+# ? iteration_number
+Color ← °hsv [⊙⊙(˜-τ×τ÷1000) 1 1]
+# create [a, b) with n values
+# ? a b n
+Linspace ← +⟜(×⌵-⊙⊙(÷⟜⇡))
+
+X ← Linspace ¯1.8 0.85 200
+Y ← Linspace ¯1.1 1.1 200
+&ims ≡₀Color ≡₀Iter ⊞ℂ Y X