clr :: Double -> Double -> Double -> AlphaColour Double
clr r g b = opaque(sRGB r g b)
clr :: Double -> Double -> Double -> AlphaColour Double
clr r g b = opaque(sRGB r g b)
clr r g b = opaque(sRGB r g b)