Lego 5x5x3 Imagewith 3x3x3 kernel

LegoCNN

library(brickr)

make_bricks <- function(brick_width = 5,
                        brick_length = 5,
                        n_layers = 3,
                        colors = c("Bright red",
                                   "Bright green",
                                   "Bright blue"),
                        render = FALSE){
  x <- rep(sort(rep(1:brick_width, brick_length)), n_layers)
  y <- rep(1:brick_length, n_layers*brick_width)
  z <- sort(rep(1:n_layers,brick_width * brick_length))
  
  bricks <- data.frame(x = x, y = y, z = z)
  
  #Color them in sets of these 3 options
  bricks$color <- sort(rep(colors, brick_length * brick_width))
  
  if (render){
    bricks %>% bricks_from_coords(use_bricks = c("1x1")) %>% build_bricks()
  }
  return(bricks)
}

move_kernel <- function(image,kernel,x = 0, y = 0){
  kernel$z <- kernel$z + 3
  kernel$x <- kernel$x + x
  kernel$y <- kernel$y + y
  df <- rbind(image,kernel)
  df %>% bricks_from_coords(use_bricks = c("1x1")) %>% build_bricks()
  
}

image <- make_bricks()
kernel <- make_bricks(3,3,3, colors = rep("Medium stone grey",3))
move_kernel(image, kernel)