# Flumy Facies Colormap

# Color of facies with RGB components
col.flumy = rbind(
  # Undefined (UDF)
  c(0.60,0.60,0.90),
  # Channel Lag (CL)
  c(1.00,0.50,0.00),
  # Point Bar / LAPs (PB)
  c(1.00,1.00,0.00),
  # Sand Plug (SP)
  c(0.75, 0.75,0.55),
  # Crevasse Splay I (CSI)
  c(0.80, 0.50, 0.20),
  # Splay II Channels (CCh)
  c(0.80, 1.00, 0.20),
  # Crevasse Splay II (CSII)
  c(0.80, 0.80, 0.20),
  # Levee (LV)
  c(0.40, 0.80, 0.20),
  # Overbank (OB)
  c(0.00, 1.00, 0.00),
  # Mud Plug (MP)
  c(0.00, 0.80, 0.50),
  # Hemipelagic Plug (HP)
  c(0.50, 0.50, 0.50),
  # Wetland (WL)
  c(0.85, 0.45, 0.85),
  # Draping (DR)
  c(0.60, 0.80, 0.90),
  # Pelagic (PL)
  c(1.00, 0.80, 1.00))
  
# Convert into hexadecimal colorscale
col.flumy = rgb(matrix(as.integer(col.flumy*256),length(col.flumy)/3,3), maxColorValue = 256)