1 -- Created on: 1993-05-07
2 -- Created by: Jacques GOUSSARD
3 -- Copyright (c) 1993-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
9 -- under the terms of the GNU Lesser General Public 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 class RstInt from IntPatch
19 ---Purpose: trouver les points d intersection entre la ligne de
20 -- cheminement et les arcs de restriction
22 uses Polygo from IntPatch,
24 HSurface from Adaptor3d,
25 TopolTool from Adaptor3d
27 raises DomainError from Standard
31 PutVertexOnLine(myclass;
32 L : in out Line from IntPatch;
33 Surf : HSurface from Adaptor3d;
34 Domain : TopolTool from Adaptor3d;
35 OtherSurf : HSurface from Adaptor3d;
36 OnFirst : Boolean from Standard ;
37 Tol : Real from Standard)
39 raises DomainError from Standard;
40 --- The exception is raised if the Line from is neither
41 -- a WLine nor a RLine.