tests/bugs/vis/bug288_5

   1 puts "============ OCC288 (case 5) ==============="
   2
   3 restore [locate_data_file OCC288e.brep] result
   4 checkshape result
   5
   6 tclean result
   7 vinit
   8 vdisplay result
   9 vsetdispmode result 1
  10 isos result 0
  11 triangles result
  12 vfit
  13
  14 set tri 0
  15 set nod 0
  16 set info [trinfo result]
  17 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  18 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  19 puts [format " tri= %s  nod= %s " $tri $nod]
  20
  21 # ($tri == 7826 && $noe == 8246) || ($tri == 8218 && $noe == 8638),aki251103
  22
  23 if { ($tri == 6268 && $noe == 6688) } {
  24    puts "Shading of OCC288 (case 5)  looks like OK, but visual checking is required !"
  25 } else {
  26    puts " Shady: Shading of OCC288 (case 5) may be bad, nb tri & nod changed"
  27 }
  28
  29 set only_screen 1
  30