Nymphaeaceae
Lilly Pads :) library(tidyverse) library(ggplot2) n_points <- 800 theta <- seq(0, 2 * pi, length.out = n_points) radius <- rep(c(0, 1), length.out = n_points) x <- radius * cos(theta) y <- radius * sin(theta) z <- radius * sin(theta/2) # Create a dataframe with the generated data data <- data.frame(x = x, y = y, z = z) # Create the generative art plot plot <- ggplot(data, aes(x = x, y = y)) + geom_line(color = "#5E8C61", size = 0.
By Deisy Morselli Gysi in GenerativeArt art
July 8, 2023