| 1 | public | |
| 2 | ||
| 3 | type Vector2 | |
| 4 | field Float x y | |
| 5 | ||
| 6 | type Vector3 | |
| 7 | field Float x y z | |
| 8 | ||
| 9 | function vector x y -> v | |
| 10 | arg Float x y ; arg Vector2 v | |
| 11 | v x := x ; v y := y | |
| 12 | ||
| 13 | function vector x y z -> v | |
| 14 | arg Float x y z ; arg Vector3 v | |
| 15 | v x := x ; v y := y ; v z := z | |
| 16 | ||
| 17 | export vector | |