tests/bugs/modalg_2/bug307_2

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_1"
   2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
   3
   4 pload QAcommands
   5
   6 puts "================"
   7 puts "OCC307"
   8 puts "SAM1265"
   9 puts "================"
  10 puts ""
  11
  12 restore [locate_data_file OCC307.brep] f
  13
  14 set che [checkshape f]
  15 if { [regexp {Faulty} $che] == 1} {
  16     puts "Warning OCC307: Source shape is invalid. It was detected by Checkshape command"
  17 } else {
  18     puts "OCC307 OK: Source shape is valid"
  19 }
  20
  21 explode f f
  22
  23 renamevar f w
  24
  25 explode w w
  26
  27 OCC307 result1 f_4 w_6 1
  28 OCC307 result2 f_5 result1 1
  29
  30 checkshape result1
  31 renamevar result2 result
  32
  33 set square 0
  34 set 2dviewer 0