tests/bugs/modalg_1/buc60782_1

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