tests/bugs/modalg_1/buc60878_3

   1 puts "============="
   2 puts "BUC60878"
   3 puts "============="
   4
   5 #restore BUC60878-wire5.brep a
   6 ###############dtext 0 -10 0 "THE CASE IS INCORRECT"
   7 #mkoffset r a 1 4
   8 #tpcompound res
   9 #checkshape res
  10
  11 restore [locate_data_file BUC60878-wire5.brep] a
  12 checkshape a
  13
  14 set che [checkshape a rr]
  15 if { [regexp {OK} $che] != 1 } {
  16     puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
  17     puts "Body of the script was not executed"
  18 } else {
  19     puts "Checking of SOURCE shape by checkshape - OK"
  20     mkoffset result a 1 4
  21     renamevar result_1 result
  22 }
  23
  24 set length 107.351
  25 set 2dviewer 0