tests/bugs/modalg/buc60409_2

   1
   2 puts "============="
   3 puts "   BUC60409  "
   4 puts "     CUT     "
   5 puts "============="
   6
   7 restore [locate_data_file buc60409a.brep] c
   8 restore [locate_data_file buc60409b.brep] s
   9
  10 set che [checkshape c]
  11 if { [regexp {Faulty} $che ] == 1 } {
  12     puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
  13     puts "Body of the script was NOT executed"
  14     renamevar c result
  15 } else {
  16     puts "BUC60409 OK (shape 1): Source shape is valid"
  17     set che [checkshape s]
  18     if { [regexp {Faulty} $che ] == 1 } {
  19         puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
  20         puts "Body of the script was NOT executed"
  21         renamevar s result
  22     } else {
  23         puts "BUC60409 OK (shape 2): Source shape is valid"
  24         bcut result c s
  25     }
  26 }
  27 set square 31.8476
  28 set 2dviewer 0