1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-09 18:50:54 +03:00
occt/tests/bugs/modalg_5/bug24825_cut
ski 58cf74e0c0 0025945: Make stable checking of shape global properties in tests
- Added function checkprops, set default tolerance parameter to 1.0e-4
- Using "area" instead of "square".
- Options "-equal\notequal" isn't used together with "-s" in blend and offset test cases.
- Correct regressions/differences/improvements and CPU problem (set props tolerance to 0.1)
- Corrected test cases to use checkprops proc.
- Correct image difference
- Updated TODOs in test cases.
- Updated test cases to get correct images of result shape
2015-12-10 16:56:03 +03:00

49 lines
1.1 KiB
Plaintext

puts "========="
puts "OCC24825"
puts "========="
puts ""
###########################################################
# Fit Boolean Operation Algorithm to treat multiple arguments.
###########################################################
restore [locate_data_file bug24825_steering-wheel-ring1.brep] b1
restore [locate_data_file bug24825_steering-wheel-ring2.brep] b2
restore [locate_data_file bug24825_steering-wheel-drum.brep] b4
restore [locate_data_file bug24825_steering-wheel-handle.brep] hb
set qs {}
set N 10
set N1 [expr 360. / $N ]
for {set i 0} {$i < $N} {incr i} {
tcopy hb hb_${i}
trotate hb_${i} 0. 0. 0. 0. 0. 1. [expr $i * $N1 ]
lappend qs hb_${i}
}
eval compound $qs b3
tcopy b1 b5
ttranslate b5 0 0 100
tcopy b2 b6
ttranslate b6 0 0 100
tcopy b3 b7
ttranslate b7 0 0 100
#-cut-#
bclearobjects
bcleartools
baddobjects b2 b6 b4 b1 b5
baddctools b3
baddctools b7
bfillds
bbop result 2
checkprops result -s 142845
checknbshapes result -vertex 108 -edge 168 -wire 152 -face 86 -shell 7 -solid 7 -compsolid 0 -compound 1 -shape 529
set 2dviewer 1