R/MRcube.R

In Aidenloe/AIG: Automatic Item Generator

#' @importFrom magrittr %>%
#' @importFrom grDevices gray
#' @importFrom rgl cube3d
#' @importFrom rgl shade3d
#' @importFrom rgl translate3d

#creates a single 3D cube
cube <- function(x=0,y=0,z=0, bordered=TRUE,
                 filled = TRUE, lwd=2, scale=1,
                 fillcol = gray(.95),
                 bordercol ='black', ...) {


  # x=0;y=0;z=0; bordered=TRUE;
  # filled = TRUE; lwd=2; scale=1;
  # fillcol = gray(.95);
  # bordercol ='black';colored=FALSE


  # if(colored==TRUE){
  #   sam <- sample(1:2,1)
  #   if(sam==1){
  # mycube <- cube3d(color="#4c4c4c") #3d cude. There are others i.e., oh3d, qmesh 3d ... read help.
  #   }else{
      mycube <- cube3d() #3d cude. There are others i.e., oh3d, qmesh 3d ... read help.
  #   }
  # }

  # Reduce size to unit
  mycube$vb[4,] <- mycube$vb[4,]/scale*2 # why convert to 2 using scale?

  for (i in 1:length(x)) {
    # Add cube border
    if (bordered) {
      bcube <- mycube
      bcube$material
      bcube$material$lwd <-lwd # lwd (thickness of the black line)
      bcube$material$front <- 'line' # lines, points or culls on the material used to render the object
      bcube$material$back <- 'line'
      bcube %>% translate3d(x[i], y[i], z[i]) %>% shade3d # or wire 3d is possible too

    }
    # Add cube fill
    if (filled) {
      fcube <- mycube
      fcube$vb[4,] <- fcube$vb[4,]*1.01
      fcube$material$col <- fillcol
      fcube %>% translate3d(x[i], y[i], z[i]) %>% shade3d
    }
  }
}

#cube(filled=TRUE, fillcol='#4c4c4c')