49b0c452 |
1 | puts "============" |
2 | puts "OCC25614" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Provide API access to the new functionalities of Boolean Components |
7 | ############################### |
8 | |
9 | #==================== |
10 | box b 10 10 4 |
11 | ttranslate b 0 0 -2 |
12 | set qs1 {} |
13 | set N 11 |
14 | |
15 | for {set i 0} {$i < $N} {incr i} { |
16 | for {set j 0} {$j < $N} {incr j} { |
17 | tcopy b b_${i}_${j} |
18 | ttranslate b_${i}_${j} [expr $i * 10] [expr $j * 10] 0. |
19 | lappend qs1 b_${i}_${j} |
20 | } |
21 | } |
22 | eval compound $qs1 b1 |
23 | |
24 | pcylinder b 6 10 |
25 | ttranslate b 10 10 -5 |
26 | |
27 | set qs2 {} |
28 | set N 10 |
29 | |
30 | for {set i 0} {$i < $N} {incr i} { |
31 | for {set j 0} {$j < $N} {incr j} { |
32 | tcopy b b_${i}_${j} |
33 | ttranslate b_${i}_${j} [expr $i * 10] [expr $j * 10] 0. |
34 | lappend qs2 b_${i}_${j} |
35 | } |
36 | } |
37 | eval compound $qs2 b2 |
38 | #==================== |
39 | |
40 | bclearobjects |
41 | bcleartools |
42 | baddcompound b1 |
43 | baddctools b2 |
44 | |
45 | bapibop result 1 |
46 | |
47 | set nb_v_good 1808 |
48 | set nb_e_good 3392 |
49 | set nb_w_good 1586 |
50 | set nb_f_good 1586 |
51 | set nb_sh_good 1 |
52 | set nb_sol_good 1 |
53 | set nb_compsol_good 0 |
54 | set nb_compound_good 1 |
55 | set nb_shape_good 8375 |
56 | |
57 | set 3dviewer 1 |