7fd59977 |
1 | -- File: IntPatch_RstInt.cdl |
2 | -- Created: Fri May 7 12:45:18 1993 |
3 | -- Author: Jacques GOUSSARD |
4 | ---Copyright: Matra Datavision 1993 |
5 | |
6 | class RstInt from IntPatch |
7 | |
8 | ---Purpose: trouver les points d intersection entre la ligne de |
9 | -- cheminement et les arcs de restriction |
10 | |
11 | uses Polygo from IntPatch, |
7fd59977 |
12 | Line from IntPatch, |
13 | HSurface from Adaptor3d, |
14 | TopolTool from Adaptor3d |
15 | |
16 | raises DomainError from Standard |
17 | |
18 | is |
19 | |
20 | PutVertexOnLine(myclass; |
21 | L : in out Line from IntPatch; |
22 | Surf : HSurface from Adaptor3d; |
23 | Domain : TopolTool from Adaptor3d; |
24 | OtherSurf : HSurface from Adaptor3d; |
25 | OnFirst : Boolean from Standard ; |
26 | Tol : Real from Standard) |
27 | |
28 | raises DomainError from Standard; |
29 | --- The exception is raised if the Line from is neither |
30 | -- a WLine nor a RLine. |
31 | |
32 | end RstInt; |