1 -- Created on: 1993-11-10
2 -- Created by: Jean Marc LACHAUME
3 -- Copyright (c) 1993-1999 Matra Datavision
4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
6 -- The content of this file is subject to the Open CASCADE Technology Public
7 -- License Version 6.5 (the "License"). You may not use the content of this file
8 -- except in compliance with the License. Please obtain a copy of the License
9 -- at http://www.opencascade.org and read it completely before using this file.
11 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
12 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
14 -- The Original Code and all software distributed under the License is
15 -- distributed on an "AS IS" basis, without warranty of any kind, and the
16 -- Initial Developer hereby disclaims all such warranties, including without
17 -- limitation, any warranties of merchantability, fitness for a particular
18 -- purpose or non-infringement. Please see the License for the specific terms
19 -- and conditions governing the rights and limitations under the License.
22 generic class HatchingGen from HatchGen (TheHatchingCurve as any)
25 ErrorStatus from HatchGen ,
26 PointOnHatching from HatchGen ,
27 PointsOnHatching from HatchGen ,
28 Domain from HatchGen ,
29 Domains from HatchGen ,
33 OutOfRange from Standard
39 returns HatchingGen from HatchGen;
42 Create (Curve : TheHatchingCurve)
44 ---Purpose: Creates a hatching.
46 returns HatchingGen from HatchGen ;
51 ---Purpose: Returns the curve associated to the hatching.
53 ---C++: return const &
55 returns TheHatchingCurve
59 ChangeCurve (me : in out)
61 ---Purpose: Returns the curve associated to the hatching.
65 returns TheHatchingCurve
69 TrimDone (me : in out ; Flag : Boolean from Standard)
71 ---Purpose: Sets the flag about the trimming computations to the
79 ---Purpose: Returns the flag about the trimming computations.
81 returns Boolean from Standard
85 TrimFailed (me : in out ; Flag : Boolean from Standard)
87 ---Purpose: Sets the flag about the trimming failure to the
95 ---Purpose: Returns the flag about the trimming failure.
97 returns Boolean from Standard
101 IsDone (me : in out ; Flag : Boolean from Standard)
103 ---Purpose: Sets the flag about the domains computation to the
111 ---Purpose: Returns the flag about the domains computation.
113 returns Boolean from Standard
117 Status (me : in out ; Status : ErrorStatus from HatchGen)
119 ---Purpose: Sets the error status.
126 ---Purpose: Returns the error status.
128 returns ErrorStatus from HatchGen
132 ---Category: Points on hatching.
134 AddPoint (me : in out ; Point : PointOnHatching from HatchGen ;
135 Confusion : Real from Standard)
137 ---Purpose: Adds an intersection point to the hatching.
144 ---Purpose: Returns the number of intersection points
147 returns Integer from Standard
151 Point (me ; Index : Integer from Standard)
153 ---Purpose: Returns the Index-th intersection point of the
155 -- The exception OutOfRange is raised if
156 -- Index < 1 or Index > NbPoints.
158 ---C++: return const &
160 returns PointOnHatching from HatchGen
161 raises OutOfRange from Standard
165 ChangePoint (me : in out ; Index : Integer from Standard)
167 ---Purpose: Returns the Index-th intersection point of the
169 -- The exception OutOfRange is raised if
170 -- Index < 1 or Index > NbPoints.
174 returns PointOnHatching from HatchGen
175 raises OutOfRange from Standard
179 RemPoint (me : in out ; Index : Integer from Standard)
181 ---Purpose: Removes the Index-th intersection point of the
183 -- The exception OutOfRange is raised if
184 -- Index < 1 or Index > NbPoints.
186 raises OutOfRange from Standard
190 ClrPoints (me : in out)
192 ---Purpose: Removes all the intersection points of the hatching.
197 ---Category: Domains.
200 AddDomain (me : in out ; Domain : Domain from HatchGen)
202 ---Purpose: Adds a domain to the hatching.
209 ---Purpose: Returns the number of domains of the hatching.
211 returns Integer from Standard
215 Domain (me ; Index : Integer from Standard)
217 ---Purpose: Returns the Index-th domain of the hatching.
218 -- The exception OutOfRange is raised if
219 -- Index < 1 or Index > NbDomains.
221 ---C++: return const &
223 returns Domain from HatchGen
224 raises OutOfRange from Standard
228 RemDomain (me : in out ; Index : Integer from Standard)
230 ---Purpose: Removes the Index-th domain of the hatching.
231 -- The exception OutOfRange is raised if
232 -- Index < 1 or Index > NbDomains.
234 raises OutOfRange from Standard
238 ClrDomains (me : in out)
240 ---Purpose: Removes all the domains of the hatching.
245 ClassificationPoint (me)
246 ---Purpose: Returns a point on the curve.
247 -- This point will be used for the classification.
248 returns Pnt2d from gp
253 myCurve : TheHatchingCurve ;
254 myTrimDone : Boolean from Standard ;
255 myTrimFailed : Boolean from Standard ;
256 myPoints : PointsOnHatching from HatchGen ;
257 myIsDone : Boolean from Standard ;
258 myStatus : ErrorStatus from HatchGen ;
259 myDomains : Domains from HatchGen ;
261 end HatchingGen from HatchGen ;