5 ##################################################################
6 ## Modeling Algorithms - Provide shape self-intersection detector
7 ##################################################################
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]
23 ttranslate s 90.0 90.0 0.0
28 compound {*}$aBoxNames s $aCompName
33 vsettransparency $aCompName 0.8
34 vdump $imagedir/${casename}_1.png
36 selfintersect $aCompName -tol 0.0 -profile
38 vdisplay [set aCompName]_overlapped
39 vsetcolor [set aCompName]_overlapped red
40 vsettransparency [set aCompName]_overlapped 0.5
42 vdump $imagedir/${casename}_2.png