fifty shades of pink

molten_heart4.R

#install.packages("remotes")
#remotes::install_github("djnavarro/jasmines")
#remotes::install_github("djnavarro/fifty")

library(jasmines)
library(dplyr)
set.seed(125)
seed_heart(10000) %>%
  mutate(
    x = x * 35,
    y = y * 35
  ) %>%
  time_tempest(
    iterations = 150,
    scale = .1,
    curl_seed = 125
  ) %>%
  mutate(order = time) %>%
  style_ribbon(
    alpha_init = .1,
    alpha_decay = .02,
    seed_fill = "#000000cc",
    size = 1,
    palette = fifty::shades("pink")
  ) %>%
  export_image("~/Desktop/molten_heart4.png")