tests/bugs/vis/bug331

   1  puts "========================"
   2 puts " OCC331 "
   3 puts "========================"
   4 puts ""
   5 #######################################################
   6 ## Dark spot on a sphere after nurbsconvert
   7 #######################################################
   8
   9 box b -5 -5 -5 10 10 10
  10 psphere s 6
  11
  12 bfuse res s b
  13
  14 nurbsconvert result res
  15
  16 tclean result
  17 vinit
  18 vdisplay result
  19 vfit
  20 vsetdispmode result 1
  21 vfit
  22
  23 set tri 0
  24 set nod 0
  25 set info [trinfo result]
  26 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  27 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  28 puts [format " tri= %s  nod= %s " $tri $nod]
  29
  30 if { $tri != 3808 && $nod != 2188} {
  31    puts " OCC331: Looks like OK, but visual checking is required!!!"
  32 } else {
  33    puts " OCC331: Faulty - Dark spot on a sphere after nurbsconvert"
  34 }
  35
  36
  37 set only_screen 1
  38
  39