diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2022-11-18 02:40:52 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2022-11-18 02:40:52 +1300 |
| commit | e7892f0f87a9258d3b45e9d0cf674ce142f761eb (patch) | |
| tree | 2948e299f1c230bbbf1438d50d186441ba41dc34 /src/datatypes.adb | |
| parent | e60b21609c013661638191b1251d6ae31c389cf9 (diff) | |
Refactored code into appropriate packages
Diffstat (limited to 'src/datatypes.adb')
| -rw-r--r-- | src/datatypes.adb | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/datatypes.adb b/src/datatypes.adb new file mode 100644 index 0000000..64ff017 --- /dev/null +++ b/src/datatypes.adb @@ -0,0 +1,15 @@ + +package body Datatypes is + + + function Create + (X, Y : Quantity; + Solid : in Boolean) + return Particle is + begin + return (Place => Plane.Compose_From_Cartesian (X, Y), Solid => Solid, others => <>); + end Create; + + +end Datatypes; + |