tests/bugs/modalg/buc60782_2

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_2"
   2 puts "TODO OCC12345 ALL: Faulty : mistakes are found in SOURCE  shape by checkshape command"
   3 puts "TODO OCC12345 ALL: Faulty BUC60782"
   4 puts "TODO OCC12345 ALL: Error : The command can not be build."
   5
   6 puts "========================"
   7 puts "BUC60782"
   8 puts "CASE 2"
   9 puts "========================"
  10 puts ""
  11 puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
  12 puts ""
  13
  14 restore [locate_data_file buc60782b.brep] a
  15 set che [checkshape a]
  16 if { [regexp {Faulty} $che ] == 1 } {
  17     puts "Faulty BUC60782 (case 2): Source shape is invalid"
  18 } else {
  19     puts "BUC60782 OK (case 2): Sourse shape is correct"
  20 }
  21
  22 set che [checkshape a rr]
  23 if { [regexp {OK} $che ] != 1} {
  24     puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
  25     puts "Body of the script was not executed"
  26 } else {
  27     puts "Checking of SOURCE shape by checkshape - OK"
  28     if [catch { mkoffset result a 1 10 } catch_result] {
  29         puts "Faulty BUC60782: mkoffset works wrongly"
  30         renamevar a result
  31     } else {
  32         puts "OK BUC60782: offset is created"
  33         tpcompound result
  34     }
  35 }
  36 set square 0
  37 set 2dviewer 0