tests/bugs/vis/bug25492

   1 puts "============"
   2 puts "CR25492"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # The selected subshape does not have topological relationship
   7 # with orginal shape in OCC680
   8 #######################################################################
   9 pload ALL
  10
  11 set isEqual 0
  12 vinit
  13 box aShape 5 5 5 3 3 3
  14 vdisplay aShape
  15 vfit
  16 vselmode 4 1
  17 vselect 100 200
  18 vpickselected aSub
  19 explode aShape F
  20
  21
  22 for {set i 1} {$i <= 6 } {incr i} {
  23   set aRes [compare aShape_$i aSub];
  24   if { [lsearch $aRes equal] != -1} {
  25     set isEqual 1
  26   }
  27 }
  28
  29 if {$isEqual == 0} {
  30 puts "Error: No selected sub-shape was found in exploded sub-shapes"
  31 }
  32 checkview -screenshot -3d -path ${imagedir}/${test_image}.png