mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
5fe14d0fac
The reason of this problem is in wrong work of classifier algorithm (see the message ~0080992 to the issue #30354). Therefore, the algorithm of IntTools_FClass2d class has been improved. Namely, now orientation of the polygon is computed from area-criterion instead of angle. As result, some simplification of the method IntTools_FClass2d::Init(...) has been made. <!break> 1. New constructor has been added to the class CSLib_Class2d. It allows applying TColgp_SequenceOfPnt2d. 2. DRAW-commands "addpolygonnode" and "polygonprops" have been created. They are covered by the test case "tests/geometry/2dpolygon/A1". 3. New method Poly::PolygonProperties(...) has been created. See help for detailed information. 4. New testgrid "lowalgos classifier" has been created.
41 lines
1.2 KiB
Plaintext
41 lines
1.2 KiB
Plaintext
puts "========"
|
|
puts "0030354: BOP Cut doesn't modify the attached face"
|
|
puts "========"
|
|
puts ""
|
|
|
|
set GoodTolerance 1.0e-7
|
|
set GoodNbCurves 1
|
|
|
|
foreach a [directory c_*] {unset $a}
|
|
|
|
restore [locate_data_file bug30354_Face_14.brep] b1
|
|
restore [locate_data_file bug30354_vol_neg.brep] b2
|
|
|
|
explode b2 f
|
|
|
|
set log1 [bopcurves b1 b2_5 -2d]
|
|
checklength c_1 -l 0.0067028841369758101
|
|
|
|
set log2 [bopcurves b1 b2_5 -2d -p +0.00464653890386874241 +0.04500000000000001915 +1.44140398677482628464 +0.05759380964683875198 -p +0.00000000000000000000 +0.04500000000000000527 +1.44165603752761084522 +0.05089567231303324113]
|
|
checklength c_1 -l 0.0067028841369758101
|
|
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} $log1 full Toler1 NbCurv1
|
|
regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} $log2 full Toler2 NbCurv2
|
|
|
|
checkreal ToleranceNoStartPoint $Toler1 $GoodTolerance 0.0 0.1
|
|
if {$NbCurv1 != $GoodNbCurves} {
|
|
puts "Error: Please check NbCurves for intersector w/o start points"
|
|
}
|
|
|
|
checkreal ToleranceWithStartPoint $Toler2 $GoodTolerance 0.0 0.1
|
|
if {$NbCurv2 != $GoodNbCurves} {
|
|
puts "Error: Please check NbCurves for intersector with start points"
|
|
}
|
|
|
|
smallview
|
|
don c_*
|
|
fit
|
|
disp b1 b2
|
|
|
|
checkview -screenshot -2d -path ${imagedir}/${test_image}.png
|