1 -- Created on: 2001-02-15
2 -- Created by: Peter KURNEV
3 -- Copyright (c) 2001-2012 OPEN CASCADE SAS
5 -- The content of this file is subject to the Open CASCADE Technology Public
6 -- License Version 6.5 (the "License"). You may not use the content of this file
7 -- except in compliance with the License. Please obtain a copy of the License
8 -- at http://www.opencascade.org and read it completely before using this file.
10 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13 -- The Original Code and all software distributed under the License is
14 -- distributed on an "AS IS" basis, without warranty of any kind, and the
15 -- Initial Developer hereby disclaims all such warranties, including without
16 -- limitation, any warranties of merchantability, fitness for a particular
17 -- purpose or non-infringement. Please see the License for the specific terms
18 -- and conditions governing the rights and limitations under the License.
22 class PaveBlock from BOPTools
25 -- Class for storing info about a couple
26 --- of neighbouring paves on an edge
30 PointBetween from BOPTools,
32 ShrunkRange from IntTools,
39 returns PaveBlock from BOPTools;
43 Create (anEdge: Integer from Standard;
44 aPave1: Pave from BOPTools;
45 aPave2: Pave from BOPTools);
48 --- Index - DS-index of the edge
50 --- aPave2 - other pave
53 anEdge:Integer from Standard);
56 --- Sets DS-index for the edge that is between aPave1 and aPave2
58 SetOriginalEdge (me:out;
59 anEdge:Integer from Standard);
62 --- Sets DS-index for the edge from which this pave block comes from
65 aPave: Pave from BOPTools);
70 aPave: Pave from BOPTools);
74 SetShrunkRange (me:out;
75 aSR:ShrunkRange from IntTools);
78 --- Sets the Shrunk Range for the pave block
80 SetPointBetween (me:out;
81 aP: PointBetween from BOPTools);
84 --- Sets the point between the paves for the pave block
87 --- Case of Face/Face Pave Block
90 aC:Curve from IntTools);
93 --- Sets the intersection curve to which the pave block belongs to
96 nF1:Integer from Standard);
99 --- Sets the DS-index of the first face
102 nF2:Integer from Standard);
105 --- Sets the DS-index of the second face
108 returns Integer from Standard;
113 returns Integer from Standard;
118 returns Pave from BOPTools;
119 ---C++: return const &
124 returns Pave from BOPTools;
125 ---C++: return const &
130 returns Boolean from Standard;
132 --- Returns TRUE if both paves have vertex index !=0
135 Other:PaveBlock from BOPTools)
136 returns Boolean from Standard;
138 --- Returns TRUE if <Other> is equal to me
141 aT1:out Real from Standard;
142 aT2:out Real from Standard);
144 --- Returns values for paves' parameters
147 returns Range from IntTools;
148 ---C++: return const &
150 --- Returns parmetric range for paves' parameters
153 returns ShrunkRange from IntTools;
154 ---C++: return const &
159 returns PointBetween from BOPTools;
160 ---C++: return const &
165 returns Curve from IntTools;
166 ---C++: return const &
171 returns Integer from Standard;
176 returns Integer from Standard;
181 aPaveX: Pave from BOPTools)
182 returns Boolean from Standard;
186 myEdge : Integer from Standard;
187 myOriginalEdge : Integer from Standard;
188 myPave1 : Pave from BOPTools;
189 myPave2 : Pave from BOPTools;
190 myRange : Range from IntTools;
191 myShrunkRange : ShrunkRange from IntTools;
192 myCurve : Curve from IntTools;
193 myFace1 : Integer from Standard;
194 myFace2 : Integer from Standard;
195 myPointBetween : PointBetween from BOPTools;