Rodeo

Genuary Day 8: Draw one million of something.

Generative output created in R using one million squares. Composition inspired by "Perpetual Oscillations" by @annalucia. Available on @rodeodotclub.

generative artist | engineer | pipe dreamer

The creative social network. ✳︎ rodeo.club

Genuary Day 8: Draw one million of something.

Generative output created in R using one million squares. Composition inspired by "Perpetual Oscillations" by @annalucia. Available on @rodeodotclub. 
https://rodeo.club/post/0x26A1b36fE253C3Bfc4760997cbE07D03DB88e370/6

Generative art collector and appreciator. 

https://linktr.ee/daniel_pearson

art <- data.frame(x = rep(c(1:1000), 1000),  y = rep(c(1:1000), 1000), color = sample(rep(c("#FD4A34", "#E6E4D8", "#01AB7E", "#E98A44", "#2DB5DB", "#E7818E", "#FD4A34", "#E6E4D8", "#01AB7E", "#F92D26", "#FD4A34", "#E6E4D8", "#01AB7E", "#FEC200", "#2DB5DB", "#E7818E", "#FD4A34", "#E6E4D8", "#FEC200", "#F92D26"))))%>% 
  mutate(x = sin(x*y)) %>% 
  mutate(y = sort(y))

ggplot(art) +
  geom_point(data = art, aes(x = x, y = y), color = art$color, fill = art$color, shape = 22) +
  theme_void()