blob: 9ae9d4c1a51d3bb596e5a49698c141d23953e638 (
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: QualifiedCurv.cdl
-- Created: Mon Apr 15 15:34:24 1991
-- Author: Philippe DAUTRY
-- <fid@phobox>
---Copyright: Matra Datavision 1991
generic class QualifiedCurv from GccEnt (TheCurve as any)
---Purpose: Creates a qualified 2d line.
uses Position from GccEnt
is
Create(Curve : TheCurve ;
Qualifier : Position from GccEnt )
returns QualifiedCurv from GccEnt;
-- is private;
Qualified(me) returns TheCurve
is static;
Qualifier(me) returns Position from GccEnt
is static;
IsUnqualified(me) returns Boolean from Standard
is static;
---Purpose: Returns true if the solution is unqualified and false in the
-- other cases.
IsEnclosing(me) returns Boolean from Standard
is static;
---Purpose: Returns true if the solution is Enclosing the Curv and false in
-- the other cases.
IsEnclosed(me) returns Boolean from Standard
is static;
---Purpose: Returns true if the solution is Enclosed in the Curv and false in
-- the other cases.
IsOutside(me) returns Boolean from Standard
is static;
---Purpose: Returns true if the solution is Outside the Curv and false in
-- the other cases.
fields
TheQualifier : Position from GccEnt;
TheQualified : TheCurve;
-- friends
-- Unqualified(Obj : Curv2d) from GccEnt,
-- Enclosing (Obj : Curv2d) from GccEnt,
-- Enclosed (Obj : Curv2d) from GccEnt,
-- Outside (Obj : Curv2d) from GccEnt
end QualifiedCurv;
|
