blob: d5e7a95ba134999923cb06888b9a81cb845af821 (
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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
-- File: Transition.cdl
-- Created: Wed May 6 14:09:43 1992
-- Author: Jacques GOUSSARD
-- <jag@sdsun1>
---Copyright: Matra Datavision 1992
class Transition from IntSurf
---Purpose: Definition of the transition at the intersection
-- between an intersection line and a restriction curve
-- on a surface.
uses TypeTrans from IntSurf,
Situation from IntSurf
raises DomainError from Standard
is
Create
---Purpose: Empty constructor. Creates an UNDECIDED transition.
returns Transition from IntSurf;
Create(Tangent: Boolean from Standard; Type: TypeTrans from IntSurf)
---Purpose: Create a IN or OUT transition
returns Transition from IntSurf;
Create(Tangent: Boolean from Standard;
Situ: Situation from IntSurf; Oppos: Boolean from Standard)
---Purpose: Create a TOUCH transition.
returns Transition from IntSurf;
SetValue(me: in out; Tangent: Boolean from Standard;
Type: TypeTrans from IntSurf)
---Purpose: Set the values of an IN or OUT transition.
---C++: inline
is static;
SetValue(me: in out; Tangent: Boolean from Standard;
Situ: Situation from IntSurf; Oppos: Boolean from Standard)
---Purpose: Set the values of a TOUCH transition.
---C++: inline
is static;
SetValue(me: in out)
---Purpose: Set the values of an UNDECIDED transition.
---C++: inline
is static;
TransitionType(me)
---Purpose: Returns the type of Transition (in/out/touch/undecided)
-- for the arc given by value. This the transition of
-- the intersection line compared to the Arc of restriction,
-- i-e when the function returns INSIDE for example, it
-- means that the intersection line goes inside the
-- part of plane limited by the arc of restriction.
returns TypeTrans from IntSurf
---C++: inline
is static;
IsTangent(me)
---Purpose: Returns TRUE if the point is tangent to the arc
-- given by Value.
-- An exception is raised if TransitionType returns UNDECIDED.
returns Boolean from Standard
---C++: inline
raises DomainError from Standard
is static;
Situation(me)
---Purpose: Returns a significant value if TransitionType returns
-- TOUCH. In this case, the function returns :
-- INSIDE when the intersection line remains inside the Arc,
-- OUTSIDE when it remains outside the Arc,
-- UNKNOWN when the calsulus cannot give results.
-- If TransitionType returns IN, or OUT, or UNDECIDED, a
-- exception is raised.
returns Situation from IntSurf
---C++: inline
raises DomainError from Standard
is static;
IsOpposite(me)
---Purpose: returns a significant value if TransitionType returns
-- TOUCH.
-- In this case, the function returns true when
-- the 2 curves locally define two different parts of the
-- space.
-- If TransitionType returns IN or OUT or UNDECIDED, an
-- exception is raised.
returns Boolean from Standard
---C++: inline
raises DomainError from Standard
is static;
fields
tangent : Boolean from Standard;
typetra : TypeTrans from IntSurf;
situat : Situation from IntSurf;
oppos : Boolean from Standard;
end Transition;
|
