Warnings on vc14 were eliminated
[occt.git] / src / IntImpParGen / IntImpParGen_ImpParTool.gxx
1 // Copyright (c) 1995-1999 Matra Datavision
2 // Copyright (c) 1999-2014 OPEN CASCADE SAS
3 //
4 // This file is part of Open CASCADE Technology software library.
5 //
6 // This library is free software; you can redistribute it and/or modify it under
7 // the terms of the GNU Lesser General Public License version 2.1 as published
8 // by the Free Software Foundation, with special exception defined in the file
9 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
10 // distribution for complete text of the license and disclaimer of any warranty.
11 //
12 // Alternatively, this file may be used under the terms of Open CASCADE
13 // commercial license or contractual agreement.
14
15 #include <gp_Vec2d.hxx>
16
17
18
19 IntImpParGen_ImpParTool::IntImpParGen_ImpParTool(const ImpTool& ITool,
20                                                  const ParCurve& PC):
21          TheImpTool(ITool) 
22 {  
23   TheParCurve = (Standard_Address)(&PC);
24 }
25
26
27 Standard_Boolean IntImpParGen_ImpParTool::Value(const Standard_Real Param,
28                                    Standard_Real& ApproxDistance) {
29   
30   ApproxDistance = TheImpTool.Distance(ParTool::Value((*((ParCurve *)(TheParCurve))),Param));
31   return(Standard_True);
32 }
33
34 Standard_Boolean IntImpParGen_ImpParTool::Derivative(const Standard_Real Param,
35                                         Standard_Real& D_ApproxDistance_DV) {
36   
37   gp_Pnt2d Pt;
38   gp_Vec2d TanParCurve;
39   gp_Vec2d Grad=TheImpTool.GradDistance(ParTool::Value((*((ParCurve *)(TheParCurve))),Param));
40   ParTool::D1((*((ParCurve *)(TheParCurve))),Param,Pt,TanParCurve);
41   D_ApproxDistance_DV = Grad.Dot(TanParCurve);
42   return(Standard_True);
43 }
44
45
46 Standard_Boolean IntImpParGen_ImpParTool::Values(const Standard_Real Param,
47                                     Standard_Real& ApproxDistance,
48                                     Standard_Real& Deriv) {
49   
50   this->Value(Param,ApproxDistance);
51   this->Derivative(Param,Deriv);
52   return(Standard_True);
53 }
54
55
56