Hosted by
 |
with Real_Numbers; use Real_Numbers;
with Real_Vectors; use Real_Vectors;
with Lines; use Lines;
package Cubics is
type Cubic_Record is new Line_Record with record
Control_A, Control_B : Vector;
end record;
type Cubic is access Cubic_Record;
function Create
(To : in Vector;
Control_A : in Vector;
Control_B : in Vector)
return Line;
function Length
(Start : in Vector;
This : access Cubic_Record)
return Real;
procedure Scale
(This : access Cubic_Record;
Factor : in Real);
procedure Translate
(This : access Cubic_Record;
Offset : in Vector);
function Way_Point
(Start : in Vector;
This : access Cubic_Record;
Part : in Real)
return Vector;
function Make_Cubic_Through_Points
(F0 : in Vector;
F1 : in Vector;
F2 : in Vector;
F3 : in Vector)
return Line;
procedure Make_Cubic
(Start : in Vector;
A, B : in Line;
Result : out Line;
Error : out Real);
function Postscript
(This : access Cubic_Record)
return String;
end Cubics;
|