mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
b2af2f567d
1. Curve boundaries were more precised. 2. Some test cases were changed in accordance of their new behavior. 3. Code fragment for WLines joining was moved to higher level (for more universal using in the future). Code was changed in accordance with the last remark. Added test cases bugs/modalg_5/bug25715_1 bug25715_2 bug25715_3
60 lines
1.1 KiB
Plaintext
60 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
|
|
|
|
#-fuse-#
|
|
|
|
bclearobjects
|
|
bcleartools
|
|
baddobjects b2 b6 b4
|
|
baddtools b1 b5
|
|
baddctools b3
|
|
baddctools b7
|
|
|
|
bfillds
|
|
bbop result 1
|
|
|
|
set square 157211
|
|
|
|
set nb_v_good 106
|
|
set nb_e_good 164
|
|
set nb_w_good 142
|
|
set nb_f_good 80
|
|
set nb_sh_good 1
|
|
set nb_sol_good 1
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 1
|
|
set nb_shape_good 495
|
|
|
|
set 2dviewer 1
|