tests/bugs/vis/bug288_1

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