tests/bugs/modalg_1/buc60878_1

   1 puts "============="
   2 puts "BUC60878"
   3 puts "============="
   4
   5 #restore BUC60878-wire1.brep a
   6 #########dtext -10 -10 -60 "THE CASE IS INCORRECT"
   7 #mkoffset r a 1 0.5
   8 #tpcompound res
   9 #checkshape res
  10
  11 restore [locate_data_file BUC60878-wire1.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 0.5
  21     renamevar result_1 result
  22 }
  23
  24 checkprops result -l 370.796
  25 checkshape result
  26 checksection result
  27 checkview -display result -2d -path ${imagedir}/${test_image}.png