tests/bugs/modalg/bug264_6

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