14 lines
297 B
Haskell
14 lines
297 B
Haskell
|
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!"
|