R/sleep_deprived_art.R

In djnavarro/rosemary: Generative Artwork by Danielle Navarro

# https://www.flickr.com/photos/stringrbelle/49598592133/

#' @rdname rosemary
#' @export
sleep_deprived_art <- function(dir = NULL, ...) {

  dir <- check_dir(dir)
  file <- file.path(dir, "sleep_deprived_art.png")

  jasmines::use_seed(1) %>%
    jasmines::scene_discs(
      rings = 3, points = 10000, size = 5
    ) %>%
    dplyr::mutate(ind = 1:dplyr::n()) %>%
    jasmines::unfold_warp(
      iterations = 1,
      scale = .5,
      output = "layer"
    ) %>%
    jasmines::unfold_tempest(
      iterations = 20,
      scale = .01
    ) %>%
    jasmines::style_ribbon(
      palette = jasmines::palette_named("vik"),
      colour = "ind",
      alpha = c(.1,.1),
      background = "oldlace"
    ) %>%
    jasmines::export_image(
      filename = file
    )

  cat("image written to:", file, "\n")
  return(invisible(NULL))

}