mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
Revert "0031470: Modeling Algorithms - Regression: BOP common produces empty result (box and holed sphere)"
This reverts commit b90477afe33ec585fec43fe5286bd2e2b93e21de.
This commit is contained in:
parent
e5f648be49
commit
a28d897290
@ -97,12 +97,12 @@ void Approx_ComputeCLine::Perform(const MultiLine& Line)
|
||||
Standard_Real thetol3d = Precision::Confusion(), thetol2d = Precision::Confusion();
|
||||
UFirst = Line.FirstParameter();
|
||||
ULast = Line.LastParameter();
|
||||
Standard_Real TolU = Max((ULast-UFirst)*1.e-05, Precision::PApproximation());
|
||||
Standard_Real TolU = Max((ULast - UFirst)*1.e-03, Precision::Confusion());
|
||||
Standard_Real myfirstU = UFirst;
|
||||
Standard_Real mylastU = ULast;
|
||||
Standard_Integer aMaxSegments = 0;
|
||||
Standard_Integer aMaxSegments1 = myMaxSegments - 1;
|
||||
Standard_Integer aNbCut = 0, aNbImp = 0, aNbComp = 20;
|
||||
Standard_Integer aNbCut = 0, aNbImp = 0, aNbComp = 10;
|
||||
|
||||
if (!mycut)
|
||||
{
|
||||
|
@ -1,36 +0,0 @@
|
||||
puts "================================================================="
|
||||
puts "OCC31470: BOP common produces empty result (box and holed sphere)"
|
||||
puts "================================================================="
|
||||
puts ""
|
||||
|
||||
plane pln1 51.899912462 99.996691888 62.33204004
|
||||
psphere s1 pln1 15
|
||||
psphere s2 pln1 10
|
||||
bcut ss s1 s2
|
||||
box bb 100 100 100
|
||||
|
||||
bcommon result bb ss
|
||||
savehistory hh
|
||||
|
||||
explode ss f
|
||||
modified ff hh ss_1
|
||||
generated ee hh ss_1
|
||||
|
||||
checkshape result
|
||||
|
||||
checknbshapes result -solid 1 -shell 1 -face 3 -wire 6 -edge 8 -vertex 6
|
||||
|
||||
set tolres [checkmaxtol result]
|
||||
|
||||
if { ${tolres} > 2.e-7} {
|
||||
puts "Error: bad tolerance of result"
|
||||
}
|
||||
|
||||
checkprops result -v 4975.49
|
||||
|
||||
v2d
|
||||
pcurve pc ee ff
|
||||
trim pc pc
|
||||
2dfit
|
||||
|
||||
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|
Loading…
x
Reference in New Issue
Block a user