tests/bugs/moddata/bug60707

   1
   2 puts "==========="
   3 puts "BUC60707"
   4 puts "==========="
   5 puts ""
   6 #################################################
   7 ## Fillets created in CasCade version 3 do not display as shaded surfaces.
   8 #################################################
   9 restore [locate_data_file buc60707a.brep] result
  10 puts [checkshape result]
  11
  12 tclean result
  13 incmesh result .1
  14 triangles result
  15 set info [trinfo result]
  16 regexp { +([-0-9.+eE]+) +triangles} $info full Maxtriangl
  17
  18 if { $Maxtriangl < 1 } {
  19    puts "Error : inside mesh for shading wasn't build"
  20 }
  21
  22 set 3dviewer 0
  23
  24
  25