tests/bugs/moddata/bug258_2

   1
   2 puts "========================"
   3 puts " OCC258 "
   4 puts "(case 2)"
   5 puts "========================"
   6
   7 restore [locate_data_file shading_144.brep] result
   8 puts [checkshape result]
   9
  10 tclean result
  11 isos result 0
  12 vinit
  13 vdisplay result
  14 vsetdispmode result 1
  15 vfit
  16 triangles result
  17
  18 set info [trinfo result]
  19 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  20 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  21
  22 if { $tri < 70 || $nod < 72 }  {
  23   puts "Error (case 2) : here is shading problem"
  24 }
  25
  26 set 3dviewer 0
  27
  28