module ColorWheel.Radian where


toRadian :: Float -> Float
toRadian a =  (a * (2 * pi) / 360) + 1


toRadianFloor :: Float -> Int
toRadianFloor a = floor $ toRadian a