1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-07 18:30:55 +03:00
occt/src/Geom2dGcc/Geom2dGcc_FunctionTanObl.cxx
abv 42cf5bc1ca 0024002: Overall code and build procedure refactoring -- automatic
Automatic upgrade of OCCT code by command "occt_upgrade . -nocdl":
- WOK-generated header files from inc and sources from drv are moved to src
- CDL files removed
- All packages are converted to nocdlpack
2015-07-12 07:42:38 +03:00

74 lines
2.4 KiB
C++

// Created on: 1992-01-20
// Created by: Remi GILET
// Copyright (c) 1992-1999 Matra Datavision
// Copyright (c) 1999-2014 OPEN CASCADE SAS
//
// This file is part of Open CASCADE Technology software library.
//
// This library is free software; you can redistribute it and/or modify it under
// the terms of the GNU Lesser General Public License version 2.1 as published
// by the Free Software Foundation, with special exception defined in the file
// OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
// distribution for complete text of the license and disclaimer of any warranty.
//
// Alternatively, this file may be used under the terms of Open CASCADE
// commercial license or contractual agreement.
#include <Geom2dAdaptor_Curve.hxx>
#include <Geom2dGcc_CurveTool.hxx>
#include <Geom2dGcc_FunctionTanObl.hxx>
#include <gp_Dir2d.hxx>
#include <gp_Pnt2d.hxx>
#include <gp_Vec2d.hxx>
Geom2dGcc_FunctionTanObl::
Geom2dGcc_FunctionTanObl(const Geom2dAdaptor_Curve& C,
const gp_Dir2d& Dir )
{
TheCurv = C;
TheDirection = Dir;
}
Standard_Boolean Geom2dGcc_FunctionTanObl::
Value (const Standard_Real X,
Standard_Real& Fval ) {
gp_Pnt2d Point;
gp_Vec2d Vect;
Geom2dGcc_CurveTool::D1(TheCurv,X,Point,Vect);
Standard_Real NormeD1 = Vect.Magnitude();
Fval = TheDirection.XY().Crossed(Vect.XY())/NormeD1;
return Standard_True;
}
Standard_Boolean Geom2dGcc_FunctionTanObl::
Derivative (const Standard_Real X,
Standard_Real& Deriv )
{
gp_Pnt2d Point;
gp_Vec2d Vec1;
gp_Vec2d Vec2;
Geom2dGcc_CurveTool::D2(TheCurv,X,Point,Vec1,Vec2);
Standard_Real NormeD1 = Vec1.Magnitude();
Deriv = TheDirection.XY().Crossed(Vec2.XY())/NormeD1-
Vec1.XY().Dot(Vec2.XY())*TheDirection.XY().Crossed(Vec1.XY())/NormeD1;
return Standard_True;
}
Standard_Boolean Geom2dGcc_FunctionTanObl::
Values (const Standard_Real X ,
Standard_Real& Fval ,
Standard_Real& Deriv ) {
gp_Pnt2d Point;
gp_Vec2d Vec1;
gp_Vec2d Vec2;
Geom2dGcc_CurveTool::D2(TheCurv,X,Point,Vec1,Vec2);
Standard_Real NormeD1 = Vec1.Magnitude();
Fval = TheDirection.XY().Crossed(Vec1.XY())/NormeD1;
Deriv = TheDirection.XY().Crossed(Vec2.XY())/NormeD1-
Vec1.XY().Dot(Vec2.XY())*TheDirection.XY().Crossed(Vec1.XY())/NormeD1;
return Standard_True;
}