Hosted by
 |
with Real_Numbers; use Real_Numbers;
with Real_Vectors; use Real_Vectors;
with Lines; use Lines;
package Straights is
type Straight_Record is new Line_Record with null record;
type Straight is access Straight_Record;
function Create
(To : in Vector)
return Line;
function Length
(Start : in Vector;
This : access Straight_Record)
return Real;
procedure Scale
(This : access Straight_Record;
Factor : in Real);
procedure Translate
(This : access Straight_Record;
Offset : in Vector);
function Way_Point
(Start : in Vector;
This : access Straight_Record;
Part : in Real)
return Vector;
function Postscript
(This : access Straight_Record)
return String;
end Straights;
|