tests/bugs/modalg/bug755_1

   1
   2 puts "========"
   3 puts "OCC755"
   4 puts "SAM1607"
   5 puts "(case 1)"
   6 puts "========"
   7 puts ""
   8 ####################################################################
   9 ##Result of cut of capteur2 from capteur1 is a solid. It must be a compound, as it consists of 2 bodies.
  10 ####################################################################
  11
  12 restore [locate_data_file OCC755_1.brep] a1
  13 checkshape a1
  14 restore [locate_data_file OCC755_2.brep] a2
  15 checkshape a2
  16
  17 bcut result a1 a2
  18
  19 set wt_is [whatis result]
  20
  21 set lth [llength $wt_is]
  22
  23 if {$lth < 5} {
  24     puts "Faulty OCC755 (case 1)"
  25 } else {
  26     if {[regexp {COMPOUND} $wt_is] == 1} {
  27         puts "OCC755 OK (case 2)"
  28     } else {
  29         puts "Faulty OCC755 (case 2)"
  30     }
  31 }
  32
  33 set square 1.57358e+06
  34 set 2dviewer 0