blob: 4daeb1371ca223da535779aef8935c60afa652c8 (
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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
-- File: PGeom_SweptSurface.cdl
-- Created: Tue Mar 2 11:09:11 1993
-- Author: Philippe DAUTRY
-- <fid@phylox>
-- Copyright: Matra Datavision 1993
deferred class SweptSurface from PGeom inherits Surface from PGeom
---Purpose : A swept surface is one that is constructed by
-- sweeping a curve by another curve.
--
---See Also : SweptSurface from Geom.
uses Dir from gp,
Curve from PGeom,
SurfaceForm from GeomAbs,
Shape from GeomAbs
is
Initialize;
---Purpose: Initializes the field(s) with default value(s).
---Level: Internal
Initialize(aBasisCurve: Curve from PGeom;
aDirection: Dir from gp);
---Purpose: Initialize the fields with these values.
---Level: Internal
BasisCurve (me: mutable; aBasisCurve: Curve from PGeom);
---Purpose : Set the value of the field basisCurve with <aBasisCurve>.
---Level: Internal
BasisCurve (me) returns Curve from PGeom;
---Purpose : Returns the value of the field basisCurve.
---Level: Internal
Direction (me: mutable; aDirection: Dir from gp);
---Purpose : Set the value of the field direction with <aDirection>.
---Level: Internal
Direction (me) returns Dir from gp;
---Purpose : Returns the value of the field direction.
---Level: Internal
fields
basisCurve : Curve from PGeom is protected;
direction : Dir from gp is protected;
end;
|
