photog.social is one of the many independent Mastodon servers you can use to participate in the fediverse.
A place for your photos and banter. Photog first is our motto Please refer to the site rules before posting.

Administered by:

Server stats:

289
active users

#generativeart

51 posts35 participants5 posts today

#GenerativeArt interlude

More fun with OEIS integer sequences.

Today we'll make some pseudospirals: a sequence of arcs with 90 degree turns in between, where the radii are driven off a sequence. Arcs may have a gain function applied. Negative radii flip direction.

A200437: Number of -n..n arrays x(0..9) of 10 elements with zero sum and no two or three adjacent elements summing to zero
Sequence negation (every 17th), no gain

```
library(tidyverse)
library(interp)
x = c(runif(500), 0,0,1,1)
y = c(runif(500), 0,1,0,1)
triangles(tri.mesh(x = x,y = y)) |>
as_tibble() |>
mutate(i=1:n()) |>
rowwise() |>
mutate(tri = list(
tibble(x=x[c(node1,node2,node3,node1)],
y=y[c(node1,node2,node3,node1)]))) |>
unnest('tri') |>
ggplot() +
geom_polygon(aes(x=x,y=y,group=i,fill=i), show.legend=FALSE) +
scale_fill_viridis_c(option='F') +
theme_void()
```