Warning, /include/opencascade/IntCurveSurface_QuadricCurveFunc.gxx is written in an unsupported language. File is not indexed.
0001 // Created on: 1993-08-19
0002 // Created by: Laurent BUCHARD
0003 // Copyright (c) 1993-1999 Matra Datavision
0004 // Copyright (c) 1999-2014 OPEN CASCADE SAS
0005 //
0006 // This file is part of Open CASCADE Technology software library.
0007 //
0008 // This library is free software; you can redistribute it and/or modify it under
0009 // the terms of the GNU Lesser General Public License version 2.1 as published
0010 // by the Free Software Foundation, with special exception defined in the file
0011 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
0012 // distribution for complete text of the license and disclaimer of any warranty.
0013 //
0014 // Alternatively, this file may be used under the terms of Open CASCADE
0015 // commercial license or contractual agreement.
0016
0017 #include <gp_Vec.hxx>
0018
0019
0020 //================================================================================
0021 IntCurveSurface_QuadricCurveFunc::IntCurveSurface_QuadricCurveFunc(const TheQuadric& Q,
0022 const TheCurve& C)
0023 : myQuadric(Q), myCurve(C)
0024 {
0025 }
0026 //================================================================================
0027 Standard_Boolean IntCurveSurface_QuadricCurveFunc::Value(const Standard_Real Param,
0028 Standard_Real& F) {
0029 F = myQuadric.Distance(TheCurveTool::Value(myCurve,Param));
0030 return(Standard_True);
0031 }
0032
0033 Standard_Boolean IntCurveSurface_QuadricCurveFunc::Derivative(const Standard_Real Param,
0034 Standard_Real& D) {
0035 gp_Pnt P;
0036 gp_Vec T;
0037 TheCurveTool::D1(myCurve,Param,P,T);
0038 D = T.Dot(myQuadric.Gradient(P));
0039 return(Standard_True);
0040 }
0041
0042 Standard_Boolean IntCurveSurface_QuadricCurveFunc::Values(const Standard_Real Param,
0043 Standard_Real& F,
0044 Standard_Real& D) {
0045 gp_Pnt P;
0046 gp_Vec T,Grad;
0047 TheCurveTool::D1(myCurve,Param,P,T);
0048 myQuadric.ValAndGrad(P,F,Grad);
0049 D = T.Dot(Grad);
0050 return(Standard_True);
0051 }
0052
0053
0054
