with Agpl.Cv; use Agpl.Cv;
with Agpl.Strings; use Agpl.Strings;
with Text_Io; use Text_Io;
with Ada.Exceptions; use Ada.Exceptions;
with Ada.Numerics; use Ada.Numerics;
procedure T002_Sigdist is
begin
Put_Line ("Dist: " & To_String
(Signed_Distance
((0.0, 0.0, 1.0) ** (1.0, 0.0, 1.0),
(2.0, 0.0, 1.0))));
Put_Line ("Dist: " & To_String
(Signed_Distance
((0.0, 0.0, 1.0) ** (1.0, 0.0, 1.0),
(2.0, 1.0, 1.0))));
Put_Line ("Dist: " & To_String
(Signed_Distance
((0.0, 0.0, 1.0) ** (1.0, 0.0, 1.0),
(2.0, - 1.0, 1.0))));
Put_Line ("Dist: " & To_String
(Signed_Distance
((0.0, 0.0, 1.0) ** (-1.0, -1.0, 1.0),
(0.0, -1.0, 1.0))));
exception
when E : others =>
Put_Line ("Exception: " & Exception_Information (E));
end T002_Sigdist;