mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
b92f35729a
Main changes are in "IntWalk_IWalking::TestDeflection(...)" function (IntWalk_IWalking_5.gxx). Some test cases were corrected according to their new behavior.
137 lines
3.6 KiB
Plaintext
137 lines
3.6 KiB
Plaintext
// Copyright (c) 1995-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.
|
|
|
|
#define EpsAng 1.e-8
|
|
#define EpsAng2 1.e-16
|
|
#define Tolpetit 1.e-16
|
|
|
|
#ifndef DEB
|
|
#define No_Standard_RangeError
|
|
#define No_Standard_OutOfRange
|
|
#endif
|
|
|
|
#define SURF (*((ThePSurface *)(surf)))
|
|
#define FUNC (*((TheISurface *)(func)))
|
|
|
|
|
|
IntImp_ZerImpFunc::IntImp_ZerImpFunc() :
|
|
computed(Standard_False),
|
|
derived(Standard_False)
|
|
{
|
|
}
|
|
|
|
IntImp_ZerImpFunc::IntImp_ZerImpFunc(const ThePSurface& PS ,
|
|
const TheISurface& IS) :
|
|
computed(Standard_False),
|
|
derived(Standard_False)
|
|
{
|
|
surf = (Standard_Address)(&PS);
|
|
func = (Standard_Address)(&IS);
|
|
}
|
|
|
|
IntImp_ZerImpFunc::IntImp_ZerImpFunc(const TheISurface& IS) :
|
|
computed(Standard_False),
|
|
derived(Standard_False)
|
|
{
|
|
func = (Standard_Address)(&IS);
|
|
}
|
|
|
|
Standard_Integer IntImp_ZerImpFunc::NbVariables() const
|
|
{
|
|
return 2;
|
|
}
|
|
|
|
Standard_Integer IntImp_ZerImpFunc::NbEquations() const
|
|
{
|
|
return 1;
|
|
}
|
|
|
|
Standard_Boolean IntImp_ZerImpFunc::Value(const math_Vector& X,
|
|
math_Vector& F)
|
|
{
|
|
u = X(1);
|
|
v = X(2);
|
|
pntsol = ThePSurfaceTool::Value(SURF, u, v);
|
|
valf = TheISurfaceTool::Value(FUNC, pntsol.X(), pntsol.Y(), pntsol.Z());
|
|
F(1) = valf;
|
|
computed = Standard_False;
|
|
derived = Standard_False;
|
|
return Standard_True;
|
|
}
|
|
|
|
Standard_Boolean IntImp_ZerImpFunc::Derivatives(const math_Vector& X,
|
|
math_Matrix& D)
|
|
{
|
|
u = X(1);
|
|
v = X(2);
|
|
ThePSurfaceTool::D1(SURF, u, v, pntsol, d1u, d1v);
|
|
TheISurfaceTool::Gradient(FUNC, pntsol.X(), pntsol.Y(), pntsol.Z(),gradient);
|
|
D(1,1) = d1u.Dot(gradient);
|
|
D(1,2) = d1v.Dot(gradient);
|
|
computed = Standard_False;
|
|
derived = Standard_True;
|
|
return Standard_True;
|
|
}
|
|
|
|
Standard_Boolean IntImp_ZerImpFunc::Values(const math_Vector& X,
|
|
math_Vector& F,
|
|
math_Matrix& D)
|
|
{
|
|
u = X(1);
|
|
v = X(2);
|
|
ThePSurfaceTool::D1(SURF, u, v, pntsol, d1u, d1v);
|
|
TheISurfaceTool::ValueAndGradient(FUNC, pntsol.X(), pntsol.Y(), pntsol.Z(),
|
|
valf, gradient);
|
|
F(1) = valf;
|
|
D(1,1) = d1u.Dot(gradient);
|
|
D(1,2) = d1v.Dot(gradient);
|
|
computed = Standard_False;
|
|
derived = Standard_True;
|
|
return Standard_True;
|
|
}
|
|
|
|
Standard_Boolean IntImp_ZerImpFunc::IsTangent()
|
|
{
|
|
if (!computed) {
|
|
computed = Standard_True;
|
|
if(!derived) {
|
|
ThePSurfaceTool::D1(SURF, u, v, pntsol, d1u, d1v);
|
|
derived = Standard_True;
|
|
}
|
|
|
|
tgdu = gradient.Dot(d1v);
|
|
tgdv = -gradient.Dot(d1u);
|
|
Standard_Real N2grad = gradient.SquareMagnitude();
|
|
Standard_Real N2grad_EpsAng2 = N2grad * EpsAng2;
|
|
Standard_Real N2d1u = d1u.SquareMagnitude();
|
|
Standard_Real N2d1v = d1v.SquareMagnitude();
|
|
tangent =(tgdu * tgdu <= N2grad_EpsAng2 * N2d1v) &&
|
|
(tgdv * tgdv <= N2grad_EpsAng2 * N2d1u);
|
|
if(!tangent) {
|
|
d3d.SetLinearForm(tgdu,d1u,tgdv,d1v);
|
|
d2d = gp_Dir2d(tgdu, tgdv);
|
|
if (d3d.Magnitude() <= Tolpetit) { // jag
|
|
tangent = Standard_True;
|
|
}
|
|
}
|
|
}
|
|
return tangent;
|
|
}
|
|
|
|
#undef EpsAng
|
|
#undef EpsAng2
|
|
#undef Tolpetit
|
|
#undef FUNC
|
|
#undef SURF
|