|
- module RGBTransformTest1 where
-
- import ColorWheel.HSVTransformations
- import ColorWheel.RGBDefinition
-
-
- transformationTest1 :: IO ()
- transformationTest1 = do
- result <- hsv2rgb 120 0.9 0.75
- if result == RGB {r = 19.125, g = 191.25, b = 19.125}
- then
- print "OK!"
- else
- print "FAIL!"
|