Total circles area: Difference between revisions
Content added Content deleted
(→{{header|Uiua}}: improved algorithm) |
m (→{{header|Uiua}}: updated comments) |
||
Line 3,811: | Line 3,811: | ||
# For each r generate a 2r.2r grid and set cells that are within circle. |
# For each r generate a 2r.2r grid and set cells that are within circle. |
||
InCircle ← <ⁿ2⟜(⊞(/+≡ⁿ2⊟).+⇡⊃(×2|¯)) |
InCircle ← <ⁿ2⟜(⊞(/+≡ⁿ2⊟).+⇡⊃(×2|¯)) |
||
# |
# Fade this circle out, then add to accumulator, offset appropriately. |
||
Filler ← ⍜(↻|⬚0+)⊙: ⊃(+¯|×0.1InCircle) ⊃(⊢|↘1) ↻¯1 |
Filler ← ⍜(↻|⬚0+)⊙: ⊃(+¯|×0.1InCircle) ⊃(⊢|↘1) ↻¯1 |
||
# Fold over all circles, accumulating into a blank grid. |
# Fold over all circles, accumulating into a blank grid. |