0024915: Wrong intersection curves between two cylinders
[occt.git] / tests / bugs / modalg_5 / bug24825_cut
CommitLineData
8620e18d 1puts "========="
2puts "OCC24825"
3puts "========="
4puts ""
5###########################################################
6# Fit Boolean Operation Algorithm to treat multiple arguments.
7###########################################################
8
9restore [locate_data_file bug24825_steering-wheel-ring1.brep] b1
10restore [locate_data_file bug24825_steering-wheel-ring2.brep] b2
11restore [locate_data_file bug24825_steering-wheel-drum.brep] b4
12restore [locate_data_file bug24825_steering-wheel-handle.brep] hb
13
14set qs {}
15
16set N 10
17set N1 [expr 360. / $N ]
18
19for {set i 0} {$i < $N} {incr i} {
20 tcopy hb hb_${i}
21 trotate hb_${i} 0. 0. 0. 0. 0. 1. [expr $i * $N1 ]
22 lappend qs hb_${i}
23}
24eval compound $qs b3
25
26tcopy b1 b5
27ttranslate b5 0 0 100
28
29tcopy b2 b6
30ttranslate b6 0 0 100
31
32tcopy b3 b7
33ttranslate b7 0 0 100
34
35#-cut-#
36
37bclearobjects
38bcleartools
39baddobjects b2 b6 b4 b1 b5
40baddctools b3
41baddctools b7
42
43bfillds
44bbop result 2
45
46set square 103838
47
ecc4f148 48set nb_v_good 280
49set nb_e_good 338
8620e18d 50set nb_w_good 142
51set nb_f_good 80
52set nb_sh_good 3
53set nb_sol_good 3
54set nb_compsol_good 0
55set nb_compound_good 1
ecc4f148 56set nb_shape_good 847
8620e18d 57
58set 2dviewer 1