tests/bugs/modalg/buc60649

   1 puts "=========="
   2 puts "BUC60649"
   3 puts "BUC60657"
   4 puts "=========="
   5 puts ""
   6
   7 restore [locate_data_file buc60649a.brep] a
   8 puts [checkshape a]
   9
  10 set che [checkshape a rr]
  11 if { [regexp {OK} $che] != 1 } {
  12     puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
  13     puts "Body of the script was not executed"
  14 } else {
  15     puts "Checking of SOURCE shape by checkshape - OK"
  16     mkoffset result a 1 1
  17     renamevar result_1 result
  18 }
  19 set length 271.473
  20 set 2dviewer 0