calculateColor :: Color -> (Double, Double, Double) -> Color
calculateColor (r,g,b) (x,y,z) = color
    where color = (incrementColor r (inc x), incrementColor g (inc y), incrementColor b (inc z))
calculateColor :: Color -> (Double, Double, Double) -> Color
calculateColor (r,g,b) (x,y,z) = color
    where color = (incrementColor r (inc x), incrementColor g (inc y), incrementColor b (inc z))
calculateColor (r,g,b) (x,y,z) = color
    where color = (incrementColor r (inc x), incrementColor g (inc y), incrementColor b (inc z))