add morphisms for angle, temperature & real numbers
This commit is contained in:
parent
6f85e004b9
commit
65cd0b6853
3 changed files with 211 additions and 0 deletions
morphisms
72
morphisms/angle.morphism-base
Normal file
72
morphisms/angle.morphism-base
Normal file
|
@ -0,0 +1,72 @@
|
|||
```
|
||||
#define PHI 6.28318530718
|
||||
```
|
||||
|
||||
morph_angle_as_degrees_to_turns_float ()
|
||||
Angle ~ Degrees ~ ℝ ~ native.Float
|
||||
--> Angle ~ Turns ~ ℝ ~ native.Float
|
||||
```
|
||||
*dst = *src / 360.0;
|
||||
return 0;
|
||||
```
|
||||
|
||||
morph_angle_as_degrees_to_turns_double ()
|
||||
Angle ~ Degrees ~ ℝ ~ native.Double
|
||||
--> Angle ~ Turns ~ ℝ ~ native.Double
|
||||
```
|
||||
*dst = *src / 360.0;
|
||||
return 0;
|
||||
```
|
||||
|
||||
|
||||
morph_angle_as_turns_to_degrees_float ()
|
||||
Angle ~ Turns ~ ℝ ~ native.Float
|
||||
--> Angle ~ Degrees ~ ℝ ~ native.Float
|
||||
```
|
||||
*dst = *src * 360.0;
|
||||
return 0;
|
||||
```
|
||||
|
||||
morph_angle_as_turns_to_degrees_double ()
|
||||
Angle ~ Turns ~ ℝ ~ native.Double
|
||||
--> Angle ~ Degrees ~ ℝ ~ native.Double
|
||||
```
|
||||
*dst = *src * 360.0;
|
||||
return 0;
|
||||
```
|
||||
|
||||
|
||||
|
||||
|
||||
morph_angle_as_radians_to_turns_float ()
|
||||
Angle ~ Radians ~ ℝ ~ native.Float
|
||||
--> Angle ~ Turns ~ ℝ ~ native.Float
|
||||
```
|
||||
*dst = *src / PHI;
|
||||
return 0;
|
||||
```
|
||||
|
||||
morph_angle_as_radians_to_turns_double ()
|
||||
Angle ~ Radians ~ ℝ ~ native.Double
|
||||
--> Angle ~ Turns ~ ℝ ~ native.Double
|
||||
```
|
||||
*dst = *src / PHI;
|
||||
return 0;
|
||||
```
|
||||
|
||||
|
||||
morph_angle_as_turns_to_radians_float ()
|
||||
Angle ~ Turns ~ ℝ ~ native.Float
|
||||
--> Angle ~ Radians ~ ℝ ~ native.Float
|
||||
```
|
||||
*dst = *src * PHI;
|
||||
return 0;
|
||||
```
|
||||
|
||||
morph_angle_as_degrees_to_radians_double ()
|
||||
Angle ~ Turns ~ ℝ ~ native.Double
|
||||
--> Angle ~ Radians ~ ℝ ~ native.Double
|
||||
```
|
||||
*dst = *src * PHI;
|
||||
return 0;
|
||||
```
|
Loading…
Add table
Add a link
Reference in a new issue