angleToUnitVector :: Angle -> (Double, Double)
angleToUnitVector a = (cos a', sin a') where a' = deg2rad a
angleToUnitVector :: Angle -> (Double, Double)
angleToUnitVector a = (cos a', sin a') where a' = deg2rad a
angleToUnitVector a = (cos a', sin a') where a' = deg2rad a