diff options
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; + |