tests/bugs/modalg/bug439

   1
   2 puts "========================"
   3 puts " OCC439 "
   4 puts "========================"
   5 puts ""
   6 #####################################################
   7 ## Cut operation produces NOT Valid result on attached shapes
   8 #####################################################
   9
  10 restore [locate_data_file OCC439.brep] a
  11 explode a
  12
  13 checkshape a_1
  14 checkshape a_2
  15
  16 bcut result a_1 a_2
  17
  18 set che [checkshape result]
  19 if { [regexp {Faulty} $che ] == 1 } {
  20     puts "Faulty OCC134: Resulte shape is invalid. It was detected by Checkshape command"
  21 } else {
  22     puts "OCC134 OK: Result shape is valid"
  23 }
  24
  25 set square 247000
  26 set 2dviewer 0