tests/bugs/modalg_6/bug26180

   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