tests/bugs/moddata_2/bug237

   1 puts "================"
   2 puts "OCC237"
   3 puts "================"
   4 puts ""
   5 #######################################################
   6 ## Hang-ups during the intersection of attached surfaces
   7 #######################################################
   8
   9 restore [locate_data_file OCC236b.rle] su1
  10 ############### checkshape su1 # is not a topological shape
  11 restore [locate_data_file OCC237b.rle] su2
  12 ############### checkshape su2 # is not a topological shape
  13
  14 if [catch {intersect result su1 su2 }] {
  15     set mistake 1
  16 } else {
  17     set mistake 0
  18 }
  19
  20 if { $mistake != 0} {
  21     puts "Faulty OCC237: Intersection was made WRONGLY"
  22 } else {
  23     puts "OCC237 OK  : Intersection command works properly"
  24 }
  25
  26 set 2dviewer 0
  27