8620e18d |
1 | puts "=========" |
2 | puts "OCC24825" |
3 | puts "=========" |
4 | puts "" |
5 | ########################################################### |
6 | # Fit Boolean Operation Algorithm to treat multiple arguments. |
7 | ########################################################### |
8 | |
9 | restore [locate_data_file bug24825_steering-wheel-ring1.brep] b1 |
10 | restore [locate_data_file bug24825_steering-wheel-ring2.brep] b2 |
11 | restore [locate_data_file bug24825_steering-wheel-drum.brep] b4 |
12 | restore [locate_data_file bug24825_steering-wheel-handle.brep] hb |
13 | |
14 | set qs {} |
15 | |
16 | set N 10 |
17 | set N1 [expr 360. / $N ] |
18 | |
19 | for {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 | } |
24 | eval compound $qs b3 |
25 | |
26 | tcopy b1 b5 |
27 | ttranslate b5 0 0 100 |
28 | |
29 | tcopy b2 b6 |
30 | ttranslate b6 0 0 100 |
31 | |
32 | tcopy b3 b7 |
33 | ttranslate b7 0 0 100 |
34 | |
35 | #-cut-# |
36 | |
37 | bclearobjects |
38 | bcleartools |
39 | baddobjects b2 b6 b4 b1 b5 |
40 | baddctools b3 |
41 | baddctools b7 |
42 | |
43 | bfillds |
44 | bbop result 2 |
45 | |
58cf74e0 |
46 | checkprops result -s 142845 |
a4eba920 |
47 | checknbshapes result -vertex 108 -edge 168 -wire 152 -face 86 -shell 7 -solid 7 -compsolid 0 -compound 1 -shape 529 |
5747059b |
48 | checkview -display result -2d -path ${imagedir}/${test_image}.png |