colorMult :: Double -> Color -> Color
colorMult v (Color r g b) = Color (r * v) (g * v) (b * v)
colorMult :: Double -> Color -> Color
colorMult v (Color r g b) = Color (r * v) (g * v) (b * v)
colorMult v (Color r g b) = Color (r * v) (g * v) (b * v)