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.

Got me so high, and then she dropped me

As flores de plástico não morrem

Hold me close and hold me fast, the magic spell you cast, this is la vie en rose…