module ColorWheel.Radian where toRadian :: Float -> Float toRadian a = (a * (2 * pi) / 360) + 1 toRadianFloor :: Float -> Int toRadianFloor a = floor $ toRadian a
