inst/experiments/pat/crochet.R

In baptiste/minixcali: Excalidraw Document Builder

library(tidyverse)

# This function creates an individual pattern
pattern <- function(a, b, c = pi/2, d = pi/5, e = 4) {
  data_frame(
    x = accumulate(1:40, ~.x-sin((.y %% e)*c-ceiling((.y-1)/e)*d), .init = a),
    y = accumulate(1:40, ~.x+besselJ((.y %% e)*c-ceiling((.y-1)/e)*d, 1), .init = b))
}

set.seed(1234)
for(ii in seq(1,50)){
  
  # I arrange patterns on a circle
  t <- seq(0, 2*pi, length.out = 120)
  ar <- sample(seq(0.2,1.8,length=10),1)
  nu <- sample(seq(1,4,by=1),1)
  centers <- data_frame(x = cos(t), y = sin(t))
  
  # To initialize parameters of function pattern
  c  <- sample(seq(from = 0, to = 2*pi, by = pi/32), 1)
  d  <- sample(seq(from = 0, to = 2*pi, by = pi/32), 1)
  e  <- sample(1:20, 1)
  
  # This creates the plot
  apply(centers, 1, function(r) pattern(a = r[1], 
                                        b = r[2],
                                        c = c,
                                        d = d,
                                        e = e)) %>% 
    bind_rows(.id="df") %>% 
    ggplot() +
    geom_path(aes(x, y, group = df), alpha = 0.15) + 
    coord_fixed()+
    theme_void()
  
  
  # Do you like the drawing? Save it!
  # ggsave("choose_a_name.png", height=5, width=5, units='in', dpi=800)
  
  ggsave(glue::glue("pattern-{ii}.svg"), height=10, width=10, units='in', dpi=800)
  
}