tests/bugs/modalg/bug745_6

   1 puts "TODO OCC12345 ALL: Faulty : Result shape is NULL shape"
   2 puts "TODO OCC12345 ALL: Error : The command is not valid. The length is"
   3
   4 puts "========"
   5 puts "OCC745"
   6 puts "BUC60878"
   7 puts "========"
   8 puts ""
   9 ################################
  10 # There are discontinuities in offset contours:
  11 ################################
  12
  13 restore [locate_data_file BUC60878-wire3.brep] a
  14 checkshape a
  15
  16 if { [catch { mkoffset result a 1 -10 } status] } {
  17     puts "Faulty OCC745"
  18 } else {
  19     renamevar result_1 result
  20     set nb_info [nbshapes result]
  21     regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
  22     puts [format "Result shape result contains %s vertexes" $ve]
  23     if { $ve == 0 } {
  24         puts [format "Faulty : Result shape is NULL shape"]
  25     } else {
  26         regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
  27         if {$wi > 1 } {
  28             set ll [explode result w]
  29             set num [llength $ll]
  30             puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
  31             foreach {k} $ll {
  32                 checkshape $k
  33                 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
  34                 if { $cs != 0 } {
  35                     puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
  36                 } else {
  37                     puts [format "OK: Result shape is CLOSED wire !!! "]
  38                 }
  39             }
  40         }
  41     }
  42 }
  43
  44 set length 0
  45 set 2dviewer 0
  46