R/colorspace_functions.R

In rayshader: Create Maps and Visualize Data in 2D and 3D

#'@title Darken Color
#'
#'@description Convert RGB to XYZ color
#'
#'@param col RGB colors
#'@return Euler angles in degrees. c(phi,theta,yaw)
#'@keywords internal
#'@examples
#'#None
darken_color = function(col, darken = 0.5) {
  as.numeric(
    grDevices::convertColor(
      as.numeric(
        grDevices::convertColor(
          convert_color(col),
          from = "sRGB", to = "Lab")
        ) * c(darken,1,1),
      from = "Lab", to = "sRGB")
    )
}