2024-06-11 15:17:58 +02:00
|
|
|
|
export {
|
2024-12-24 12:51:36 +01:00
|
|
|
|
/*
|
2024-06-11 15:17:58 +02:00
|
|
|
|
let angle-normalize =
|
|
|
|
|
λ a : Angle
|
|
|
|
|
~ Degree
|
|
|
|
|
~ ℝ_0,360
|
|
|
|
|
~ ℤ_360
|
|
|
|
|
~ ℤ_2^64
|
|
|
|
|
~ machine.UInt64
|
|
|
|
|
~ machine.Word
|
|
|
|
|
↦ Angle~Degree~ℝ_0,360~ℤ_360: machine.UInt64.rem a 360;
|
|
|
|
|
|
|
|
|
|
let angle-degree-to-turns =
|
|
|
|
|
λ a : Angle
|
|
|
|
|
~ Degree
|
|
|
|
|
~ ℝ_0,360
|
|
|
|
|
~ ℝ
|
|
|
|
|
~ machine.Float64
|
|
|
|
|
↦ f/ a 360 ;
|
2024-12-24 12:51:36 +01:00
|
|
|
|
*/
|
2024-06-11 15:17:58 +02:00
|
|
|
|
}
|