blob: 0d908f2b16add383ff1a255999a75d816b8452a1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
-- File: GeomFill_TgtField.cdl
-- Created: Mon Dec 4 11:11:31 1995
-- Author: Laurent BOURESCHE
-- <lbo@phylox>
---Copyright: Matra Datavision 1995
deferred class TgtField from GeomFill inherits TShared from MMgt
---Purpose: Root class defining the methods we need to make an
-- algorithmic tangents field.
uses
Vec from gp,
BSpline from Law
is
IsScalable(me) returns Boolean from Standard is virtual;
Scale(me : mutable; Func : BSpline from Law) is virtual;
Value(me; W : Real from Standard)
returns Vec from gp
---Purpose: Computes the value of the field of tangency at
-- parameter W.
is deferred;
D1(me; W : Real from Standard)
returns Vec from gp
---Purpose: Computes the derivative of the field of tangency at
-- parameter W.
is deferred;
D1(me; W : Real from Standard; V, DV : out Vec from gp)
---Purpose: Computes the value and the derivative of the field of
-- tangency at parameter W.
is deferred;
end TgtField;
|
