1 -- Created on: 1992-05-15
2 -- Created by: Jacques GOUSSARD
3 -- Copyright (c) 1992-1999 Matra Datavision
4 -- Copyright (c) 1999-2014 OPEN CASCADE SAS
6 -- This file is part of Open CASCADE Technology software library.
8 -- This library is free software; you can redistribute it and/or modify it under
9 -- the terms of the GNU Lesser General Public License version 2.1 as published
10 -- by the Free Software Foundation, with special exception defined in the file
11 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
12 -- distribution for complete text of the license and disclaimer of any warranty.
14 -- Alternatively, this file may be used under the terms of Open CASCADE
15 -- commercial license or contractual agreement.
17 generic class SearchInside from IntStart (
19 ThePSurfaceTool as any;
20 TheTopolTool as Transient; -- as SITopolTool from IntStart
27 uses InteriorPoint from IntSurf,
28 SequenceOfInteriorPoint from IntSurf
31 raises NotDone from StdFail,
32 OutOfRange from Standard
39 returns SearchInside from IntStart;
42 Create (F: in out TheFunction; Surf: ThePSurface; T: TheTopolTool;
43 Epsilon : Real from Standard)
45 returns SearchInside from IntStart;
48 Perform(me: in out; F: in out TheFunction; Surf: ThePSurface;
50 Epsilon: Real from Standard)
54 Perform(me: in out; F: in out TheFunction; Surf: ThePSurface;
55 UStart,VStart: Real from Standard)
70 ---Purpose: Returns the number of points.
71 -- The exception NotDone if raised if IsDone
77 raises NotDone from StdFail
82 Value(me; Index: Integer)
84 ---Purpose: Returns the point of range Index.
85 -- The exception NotDone if raised if IsDone
87 -- The exception OutOfRange if raised if
88 -- Index <= 0 or Index > NbPoints.
90 returns InteriorPoint from IntSurf
94 raises NotDone from StdFail,
95 OutOfRange from Standard
102 done : Boolean from Standard;
103 list : SequenceOfInteriorPoint from IntSurf;