src/datatypes.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
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;