ae9a414a |
1 | puts "========" |
2 | puts "OCC26180" |
3 | puts "========" |
4 | puts "" |
5 | ################################################################## |
6 | ## Modeling Algorithms - Provide shape self-intersection detector |
7 | ################################################################## |
8 | |
9 | list aBoxNames |
10 | |
11 | set BOX_SIZE 5 |
12 | set BOX_GRID_SIZE 30 |
13 | |
14 | for {set i 0} {$i < $BOX_GRID_SIZE} {incr i} { |
15 | for {set j 0} {$j < $BOX_GRID_SIZE} {incr j} { |
16 | box b_[expr $i]_[expr $j] [expr $i * 6] [expr $j * 6] 0 5 5 5 |
17 | lappend aBoxNames b_[expr $i]_[expr $j] |
18 | lappend aBoxNames " " |
19 | } |
20 | } |
21 | |
22 | psphere s 30 |
23 | ttranslate s 90.0 90.0 0.0 |
24 | incmesh s 0.002 |
25 | trinfo s |
26 | |
27 | set aCompName "C" |
28 | compound {*}$aBoxNames s $aCompName |
29 | |
30 | vinit |
31 | vsetdispmode 1 |
32 | vdisplay $aCompName |
33 | vsettransparency $aCompName 0.8 |
34 | vdump $imagedir/${casename}_1.png |
35 | |
36 | selfintersect $aCompName -tol 0.0 -profile |
37 | |
38 | vdisplay [set aCompName]_overlapped |
39 | vsetcolor [set aCompName]_overlapped red |
40 | vsettransparency [set aCompName]_overlapped 0.5 |
41 | vfit |
42 | vdump $imagedir/${casename}_2.png |