scaleSpectrum :: Float -> CI.PixelRGBF -> CI.PixelRGBF
scaleSpectrum f (CI.PixelRGBF r g b) = CI.PixelRGBF (f*r) (f*g) (f*b)
scaleSpectrum :: Float -> CI.PixelRGBF -> CI.PixelRGBF
scaleSpectrum f (CI.PixelRGBF r g b) = CI.PixelRGBF (f*r) (f*g) (f*b)
scaleSpectrum f (CI.PixelRGBF r g b) = CI.PixelRGBF (f*r) (f*g) (f*b)