tests/bugs/modalg_4/bug745_10

   1 puts "TODO OCC12345 ALL: Faulty OCC745"
   2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
   3
   4 puts "========"
   5 puts "OCC745"
   6 puts "========"
   7 puts ""
   8 #############################################
   9 # Negative offset parameter leads to positive offset and vise
  10 # versa. Result of the offset represent an edge instead of wire.
  11 #############################################
  12
  13 restore [locate_data_file OCC745_nb1.brep] w
  14 mkoffset result w 1 -1
  15
  16 set list [whatis result_1]
  17
  18 if { [regexp {WIRE} $list] == 0 } {
  19     puts "Faulty OCC745"
  20 } else {
  21     puts "OCC745 OK"
  22 }
  23
  24 renamevar result_1 result
  25
  26 set length 0
  27 set 2dviewer 0