tests/bugs/vis/bug288_4

   1 puts "========================"
   2 puts " OCC288 "
   3 puts "(case 4)"
   4 puts "========================"
   5
   6 restore [locate_data_file shading_151.brep] result
   7 checkshape result
   8
   9 tclean result
  10 vinit
  11 vdisplay result
  12 vsetdispmode result 1
  13 isos result 0
  14 triangles result
  15 vfit
  16
  17 set tri 0
  18 set nod 0
  19 set info [trinfo result]
  20 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  21 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  22 puts [format " tri= %s  nod= %s " $tri $nod]
  23
  24 if { $tri != 4176 && $nod != 2857} {
  25    puts "Warning:  OCC288 (case 4)  looks like OK, but visual checking is required !!!!"
  26 } else {
  27    puts " OCC288 (case 4) : Faulty"
  28 }
  29
  30 set only_screen 1
  31