tests/bugs/moddata_2/bug258_1

   1
   2 puts "========================"
   3 puts " OCC258 "
   4 puts "(case 1)"
   5 puts "========================"
   6
   7 restore [locate_data_file shading_143.brep] result
   8 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 < 71 || $nod < 73 }  {
  23   puts "Error (case 1) : here is shading problem"
  24 }
  25
  26 set 3dviewer 0
  27