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
59 lines
1.1 KiB
Plaintext
59 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
|
|
|
|
#-common-#
|
|
|
|
bclearobjects
|
|
bcleartools
|
|
baddobjects b2 b6 b4 b1 b5
|
|
baddctools b3
|
|
baddctools b7
|
|
|
|
bfillds
|
|
bbop result 0
|
|
|
|
set square 10008.9
|
|
|
|
set nb_v_good 86
|
|
set nb_e_good 132
|
|
set nb_w_good 126
|
|
set nb_f_good 126
|
|
set nb_sh_good 40
|
|
set nb_sol_good 40
|
|
set nb_compsol_good 0
|
|
set nb_compound_good 1
|
|
set nb_shape_good 551
|
|
|
|
set 2dviewer 1
|