tests/bugs/vis/bug288_1

   1 puts "========================"
   2 puts " OCC288 "
   3 puts "(case 1)"
   4 puts "========================"
   5
   6 restore [locate_data_file shading_058.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 != 5148 && $nod != 3042} {
  25    puts " Warning:  OCC288 (case 1)  looks like OK, but visual checking is required!!"
  26 } else {
  27    puts " OCC288 (case 1) : Faulty"
  28 }
  29
  30 set only_screen 1
  31