-- | A good light color style for the @genColorGroups@ color palette
-- function. The parameter shifts the hue for the first group.
lightColorGroupStyle :: Double -> ColorParams Double
lightColorGroupStyle zeroHue = ColorParams {
    cpScale   = 0.6
  , cpZeroHue = zeroHue
  , cpVBottom = 0.8, cpVRange = 0.15
  , cpSBottom = 0.3,  cpSRange = 0.00
  }
lightColorGroupStyle :: Double -> ColorParams Double
lightColorGroupStyle zeroHue = ColorParams {
    cpScale   = 0.6
  , cpZeroHue = zeroHue
  , cpVBottom = 0.8, cpVRange = 0.15
  , cpSBottom = 0.3,  cpSRange = 0.00
  }
lightColorGroupStyle zeroHue = ColorParams {
    cpScale   = 0.6
  , cpZeroHue = zeroHue
  , cpVBottom = 0.8, cpVRange = 0.15
  , cpSBottom = 0.3,  cpSRange = 0.00
  }