tests/bugs/modalg_2/bug264_0

   1
   2 puts "========"
   3 puts "OCC264"
   4 puts " (case 0)"
   5 puts "========"
   6
   7 restore [locate_data_file OCC264_00.rle] result
   8 checkshape result
   9
  10 tclean result
  11 vinit
  12 vdisplay result
  13 vclear
  14
  15 isos result 0
  16 triangles result
  17
  18 set tri_info [trinfo result]
  19 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  20 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  21
  22 if { $tri != 6 && $nod != 8 }  {
  23     puts "Faulty OCC264_0: here is shading problem"
  24 } else {
  25     puts "Shading of OCC264_0 is OK"
  26 }
  27
  28 set square 1.3135
  29 set 3dviewer 0