tests/bugs/modalg_2/bug287

   1 puts "TODO OCC12345 ALL: Error : The square of result shape is"
   2 puts "TODO OCC12345 ALL: OCC287 : Faulty"
   3
   4 puts "========================"
   5 puts " OCC287 "
   6 puts "========================"
   7
   8 restore [locate_data_file shading_170.brep] result
   9 checkshape result
  10
  11 tclean result
  12 isos result 0
  13 incmesh result .1
  14 triangles result
  15
  16 # set 3dviewer 1
  17
  18 set tri 0
  19 set nod 0
  20
  21 set tri_info [trinfo result]
  22 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  23 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  24
  25 if { $tri != 604 && $nod != 363} {
  26     puts " Warning:  OCC287  looks like OK, but visual checking is required !!!!"
  27 } else {
  28     puts "OCC287 : Faulty"
  29 }
  30
  31 puts ""
  32 puts "Besides, it is impossible to load this shape in 3D Viewer"
  33 vinit
  34 vdisplay result
  35 vfit
  36 vsetdispmode result 1
  37
  38 set square 0
  39 set 3dviewer 0
  40