newColor :: Color -> StdGen -> (Color,StdGen)
newColor c g = (calculateColor c prob, g')
    where (prob,g') = randVals g
newColor :: Color -> StdGen -> (Color,StdGen)
newColor c g = (calculateColor c prob, g')
    where (prob,g') = randVals g
newColor c g = (calculateColor c prob, g')
    where (prob,g') = randVals g