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;