tests/bugs/modalg_2/bug400

   1 puts "TODO OCC11111 ALL: OCC358 : Faulty"
   2 puts "TODO OCC11111 ALL: Error : The square of result shape is"
   3
   4 puts "========================"
   5 puts " OCC400 "
   6 puts "========================"
   7
   8 restore [locate_data_file OCC400.brep] result
   9
  10 tclean result
  11 isos result 0
  12
  13 vinit
  14 vdisplay result
  15 vfit
  16 vsetdispmode result 1
  17
  18 set tri_info [trinfo result]
  19 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  20 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  21
  22 if { $tri == 66 && $nod ==70} {
  23     puts " Warning:  OCC358  looks like OK, but visual checking is required !!!!"
  24 } else {
  25     puts "OCC358 : Faulty , but visual checking is required !!!!"
  26 }
  27
  28 set square 0
  29 set 3dviewer 1
  30
  31