tests/bugs/modalg/bug264_7

   1
   2 puts "========"
   3 puts "OCC264"
   4 puts " (case 7)"
   5 puts "========"
   6
   7 restore [locate_data_file OCC264_07.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 != 114 && $nod != 116) && ($tri != 116 && $nod != 118) }  {
  26     puts "Shady OCC264_7: here may be shading problem"
  27 } else {
  28     puts "Shading of OCC264_7 is OK"
  29 }
  30
  31 set square 150.283
  32 set 2dviewer 0
  33