autumnal voronoi tree

voronoi_tree_02.R

library(flametree)
library(voronoise)
library(ambient)
library(scico)
library(dplyr)

theme_mono <- voronoise:::theme_mono

ft <- flametree_grow(
  seed = 333, 
  time = 5,
  scale = c(.5, .8, .9, .9),
  angle = c(-20, 15, 20, 35),
  split = 4
) %>% mutate(
  x = normalise(coord_x),
  y = normalise(coord_y)
)

lf <- ft %>% filter(id_leaf, id_step == 2)

vt <- ggplot(lf, aes(x, y)) +
  geom_voronoise(
    mapping = aes(fill = seg_col), 
    max.radius = .01, 
    expand = -.0002, 
    radius = 0
  ) +
  geom_voronoise(
    mapping = aes(fill = seg_col), 
    max.radius = .01, 
    expand = -.001, 
    radius = 0,
    perturb = perturb_float(
      angles = c(-90, -120), 
      noise = c(5, 1)
    )
  ) +
  geom_bezier(
    mapping = aes(
      group = id_path, 
      size = .1 + seg_wid * 6
    ), 
    lineend = "round",
    data = ft, 
    show.legend = FALSE) +
  geom_point(size = .2) +
  scale_size_identity() + 
  scale_fill_scico() +
  theme_mono("antiquewhite") + 
  coord_equal()

ggsave(
  filename = "~/Desktop/vt_02.png", 
  plot = vt, 
  width = 100/3, 
  height = 100/3, 
  dpi = 150
)