7fd59977 |
1 | -- File: HatchGen_PointOnElement.cdl |
2 | -- Created: Fri Oct 29 15:21:47 1993 |
3 | -- Author: Jean Marc LACHAUME |
4 | -- <jml@phobox> |
5 | -- Copyright: Matra Datavision 1993 |
6 | |
7 | class PointOnElement from HatchGen |
8 | |
9 | |
10 | inherits IntersectionPoint from HatchGen |
11 | |
12 | |
13 | uses |
14 | IntersectionType from HatchGen , |
15 | IntersectionPoint from IntRes2d , |
16 | Orientation from TopAbs |
17 | |
18 | |
19 | is |
20 | |
21 | |
22 | Create |
23 | |
24 | ---Purpose; Creates an empty point on element |
25 | |
26 | ---Category: PointOnElement |
27 | |
28 | returns PointOnElement from HatchGen ; |
29 | |
30 | |
31 | Create (Point : PointOnElement from HatchGen) |
32 | |
33 | ---Purpose: Creates a point from an other. |
34 | |
35 | ---Category: PointOnElement |
36 | |
37 | returns PointOnElement from HatchGen ; |
38 | |
39 | |
40 | Create (Point : IntersectionPoint from IntRes2d) |
41 | |
42 | ---Purpose: Creates a point from an intersection point. |
43 | |
44 | ---Category: PointOnElement |
45 | |
46 | returns PointOnElement from HatchGen ; |
47 | |
48 | |
49 | SetIntersectionType (me : in out ; Type : IntersectionType from HatchGen) |
50 | |
51 | ---Purpose: Sets the intersection type at this point. |
52 | |
53 | ---Category: PointOnElement |
54 | ---C++: inline |
55 | is static ; |
56 | |
57 | |
58 | IntersectionType (me) |
59 | |
60 | ---Purpose: Returns the intersection type at this point. |
61 | |
62 | ---Category: PointOnElement |
63 | |
64 | ---C++: inline |
65 | returns IntersectionType from HatchGen |
66 | is static ; |
67 | |
68 | |
69 | IsIdentical (me; Point : PointOnElement from HatchGen ; |
70 | Confusion : Real from Standard) |
71 | |
72 | ---Purpose: Tests if the point is identical to an other. |
73 | -- That is to say : |
74 | -- P1.myIndex = P2.myIndex |
75 | -- Abs (P1.myParam - P2.myParam) <= Confusion |
76 | -- P1.myPosit = P2.myPosit |
77 | -- P1.myBefore = P2.myBefore |
78 | -- P1.myAfter = P2.myAfter |
79 | -- P1.mySegBeg = P2.mySegBeg |
80 | -- P1.mySegEnd = P2.mySegEnd |
81 | -- P1.myType = P2.myType |
82 | |
83 | ---Category: PointOnElement |
84 | |
85 | returns Boolean from Standard |
86 | is static ; |
87 | |
88 | |
89 | IsDifferent (me; Point : PointOnElement from HatchGen ; |
90 | Confusion : Real from Standard) |
91 | |
92 | |
93 | ---Purpose: Tests if the point is different from an other. |
94 | |
95 | ---Category: PointOnElement |
96 | |
97 | returns Boolean from Standard |
98 | is static ; |
99 | |
100 | |
101 | Dump (me; Index : Integer from Standard = 0) |
102 | |
103 | ---Purpose: Dump of the point on element. |
104 | |
105 | is static ; |
106 | |
107 | |
108 | fields |
109 | |
110 | myType : IntersectionType from HatchGen is protected ; |
111 | |
112 | end PointOnElement from HatchGen ; |