shredder: Rstan Manipulation API

library(magick)
library(bunny)

girl <- image_read("data-raw/3989510611_e88c931f7d_h.jpg") %>% 
  image_crop(geometry = "700x1191+0+0") %>% 
  image_trim() %>% 
  image_scale("50%")

string <- image_read("data-raw/3989510611_e88c931f7d_h.jpg") %>% 
  image_crop(geometry = "1220x150+0-310") %>% 
  image_trim() %>% 
  image_scale("50%")

mcmc_plot <- image_read("data-raw/figure6.png") %>% 
  image_crop("510x300+130+100") %>% 
  image_scale(geometry_size_percent(100, 200)) %>% 
  image_transparent("white", fuzz = 40) 


ribbon <- image_read('data-raw/hiclipart.com.png')%>%
  image_scale("25%")

dot <- image_read("data-raw/dot.png")

dot_art <- dot%>%
  image_flatten() %>% 
  image_compose(image_canvas(dot, pseudo_image = "gradient:black-white"),
                "CopyOpacity") %>% 
  magick::image_rotate(degrees = 40)%>%
  image_scale("30%")

bg_color <- "#ede6f2"
bg_color2 <- "#f6f3f9"
fg_color <- "#042a2b"
fgd_color1 <- "#772e25"
fgd_color2 <- "#411815"

shred_hex <- 
  image_canvas_hex(fill_color = bg_color, border_color = fg_color, border_size = 5) %>%
  image_composite(image_blank(460, 660, "white"), gravity = "center",offset = "+0+100") %>% 
  image_composite(image_blank(460, 150, bg_color), gravity = "north", offset = "+0-750") %>% 
  image_composite(girl, gravity = "west", offset = "-700+270") %>% 
  #image_composite(dot_art, gravity = "north", offset = "-130+900") %>% 
  image_composite(ribbon, gravity = "north", offset = "-100+950") %>% 
  image_composite(mcmc_plot, gravity = "center", offset = "+0+370") %>% 
  image_composite(image_blur(image_border(image_blank(420, 620, "transparent"), 
                                 color="grey50", geometry = "60x60"), 
                             radius = 60, sigma = 40),
                  gravity = "center",offset = "-10+110") %>%  
  image_composite(image_border(image_blank(470, 670, "transparent"), 
                               color=fgd_color2, geometry = "60x60"), 
                  gravity = "center",offset = "+0+100") %>% 
  image_composite(image_border(image_blank(500, 700, "transparent"), 
                                 color=fgd_color1, geometry = "10x10"), 
                    gravity = "center",offset = "+0+100") %>% 
  image_annotate("shredder", gravity = "center", location = "+0-400", 
                 size=200, font="Aller", color = fg_color, weight = 400)
  
shred_hex %>%
  image_scale("1200x1200") %>%
  image_write("data-raw/shred_hex_ribbon.png", density = 600)

shred_hex %>%
  image_scale("200x200") %>%
  image_write("man/figures/logo_ribbon.png", density = 600)

shred_hex_gh <- shred_hex %>%
  image_scale("400x400")

gh_logo <- bunny::github %>%
  image_scale("40x40")

shred_ghcard <- image_canvas_ghcard(fill_color = bg_color2) %>%
  image_composite(shred_hex_gh, gravity = "East", offset = "+100+0") %>%
  image_annotate("Stan ", gravity = "West", location = "+60-30", 
                 style = "italic", color=fg_color, size=65, font="Volkhov", weight = 700) %>%   
  image_annotate("models. Sliced.", gravity = "West", location = "+210-30",
                 color=fg_color, size=60, font="Volkhov", weight = 500) %>%
  image_compose(gh_logo, gravity="West", offset = "+60+40") %>%
  image_annotate("metrumresearchgroup/shredder", gravity="West", 
                 location="+110+45", size=38, font="Ubuntu Mono") %>%
  image_border_ghcard(bg_color2)

shred_ghcard %>%
  image_write("data-raw/shred_ribbon_ghcard.png", density = 600)