module ColorWheel.Cordinates where



cordinateCalculation :: Float -> Float -> (Float -> Float) -> Float
cordinateCalculation r a calc = r * (calc a) 


calculateX :: Float -> Float -> Float
calculateX r a = cordinateCalculation r a cos


calculateY :: Float -> Float -> Float
calculateY r a = cordinateCalculation r a sin