0023024: Update headers of OCCT files
[occt.git] / src / ApproxInt / ApproxInt_PrmPrmSvSurfaces.cdl
1 -- Created on: 1993-03-17
2 -- Created by: Laurent BUCHARD
3 -- Copyright (c) 1993-1999 Matra Datavision
4 -- Copyright (c) 1999-2012 OPEN CASCADE SAS
5 --
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.
10 --
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.
13 --
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.
20
21
22 generic class PrmPrmSvSurfaces from ApproxInt (
23     ThePSurface         as any;
24     ThePSurfaceTool     as any;
25     TheLine             as Transient)
26
27 inherits SvSurfaces from ApproxInt
28
29 uses 
30     Pnt     from gp,
31     Pnt2d   from gp,
32     Vec     from gp,
33     Vec2d   from gp
34
35     class TheInt2S instantiates Int2S from IntImp(
36         ThePSurface,ThePSurfaceTool);
37
38 is 
39     Create(Surf1,Surf2: ThePSurface);
40     
41     Compute(me: in out; 
42             u1,v1,u2,v2: in out Real from Standard;
43             Pt: out Pnt from gp;
44             Tg: out Vec from gp;
45             Tguv1,Tguv2: out Vec2d from gp)
46             ---Purpose: returns True if Tg,Tguv1 Tguv2 can be computed.
47        returns Boolean from Standard    is static;
48        
49     Pnt(me: in out;
50         u1,v1,u2,v2: in Real from Standard;
51         P: out Pnt from gp) is static;
52         
53     Tangency(me: in out;
54              u1,v1,u2,v2: in Real from Standard;
55              Tg: out Vec from gp)
56        returns Boolean from Standard is static;
57        
58     TangencyOnSurf1(me: in out;
59                     u1,v1,u2,v2: in Real from Standard;
60                     Tg: out Vec2d from gp)
61        returns Boolean from Standard is static;
62        
63     TangencyOnSurf2(me: in out;
64                     u1,v1,u2,v2: in Real from Standard;
65                     Tg: out Vec2d from gp)
66        returns Boolean from Standard is static;   
67     
68 fields
69     MyParOnS1            : Pnt2d        from gp;
70     MyParOnS2            : Pnt2d        from gp;
71     MyPnt                : Pnt          from gp;
72     MyTguv1              : Vec2d        from gp;
73     MyTguv2              : Vec2d        from gp;
74     MyTg                 : Vec          from gp;
75     MyIsTangent          : Boolean      from Standard;
76     MyHasBeenComputed    : Boolean      from Standard;
77     
78     MyParOnS1bis            : Pnt2d        from gp;
79     MyParOnS2bis            : Pnt2d        from gp;
80     MyPntbis                : Pnt          from gp;
81     MyTguv1bis              : Vec2d        from gp;
82     MyTguv2bis              : Vec2d        from gp;
83     MyTgbis                 : Vec          from gp;
84     MyIsTangentbis          : Boolean      from Standard;
85     MyHasBeenComputedbis    : Boolean      from Standard;
86     
87     MyIntersectionOn2S   : TheInt2S;
88  
89 end PrmPrmSvSurfaces;
90
91
92