a942f2da |
1 | puts "=========" |
2 | puts "OCC24639" |
3 | puts "=========" |
4 | puts "" |
5 | ########################################################### |
6 | # Parallelization FillDS part of BO |
7 | ########################################################### |
8 | |
9 | set N 5 |
10 | set dC 1. |
11 | set aC [expr $N + $dC] |
12 | |
13 | #------------------------------------------ |
14 | # z |
15 | vertex v1 0 0 0 |
16 | vertex v2 0 0 $aC |
17 | edge ez v1 v2 |
18 | |
19 | set qz {} |
20 | for {set i 0} {$i < $N} {incr i} { |
21 | for {set j 0} {$j < $N} {incr j} { |
22 | tcopy ez ez_${i}_{$j} |
23 | ttranslate ez_${i}_{$j} [expr $i + ${dC}] [expr $j + $dC] 0. |
24 | lappend qz ez_${i}_{$j} |
25 | } |
26 | } |
27 | eval compound $qz bz |
28 | |
29 | #------------------------------------------ |
30 | # x |
31 | vertex v1 0. 0. 0. |
32 | vertex v2 $aC 0. 0. |
33 | edge ex v1 v2 |
34 | |
35 | set qx {} |
36 | for {set i 0} {$i < $N} {incr i} { |
37 | for {set j 0} {$j < $N} {incr j} { |
38 | tcopy ex ex_${i}_{$j} |
39 | ttranslate ex_${i}_{$j} 0. [expr $i + $dC] [expr $j + $dC] |
40 | lappend qx ex_${i}_{$j} |
41 | } |
42 | } |
43 | eval compound $qx bx |
44 | |
45 | #------------------------------------------ |
46 | # y |
47 | vertex v1 0. 0. 0. |
48 | vertex v2 0. $aC 0. |
49 | edge ey v1 v2 |
50 | |
51 | set qy {} |
52 | for {set i 0} {$i < $N} {incr i} { |
53 | for {set j 0} {$j < $N} {incr j} { |
54 | tcopy ey ey_${i}_{$j} |
55 | ttranslate ey_${i}_{$j} [expr $i + $dC] 0. [expr $j + $dC] |
56 | lappend qy ey_${i}_{$j} |
57 | } |
58 | } |
59 | eval compound $qy by |
60 | |
61 | nurbsconvert bx bx |
62 | nurbsconvert by by |
63 | nurbsconvert bz bz |
64 | |
65 | # add the arguments |
66 | bclearobjects |
67 | bcleartools |
68 | baddcompound bx |
69 | baddcompound by |
70 | baddcompound bz |
71 | |
72 | # intersection step |
73 | bfillds -t |
74 | |
75 | # intersection step |
76 | bfillds -t -s |