tests/bugs/moddata_1/bug17

   1 puts "TODO OCC12345 ALL: Faulty OCC17: here can be shading problem"
   2
   3 puts "================"
   4 puts "OCC17"
   5 puts "================"
   6 puts ""
   7
   8 #####################################################
   9 puts " Solid_14 will be the face which is unvisible during displaying entire solid."
  10 #####################################################
  11
  12 restore [locate_data_file OCC17.brep] sh
  13
  14 checkshape sh
  15
  16 explode sh f
  17 renamevar sh_14 result
  18 tclean result
  19 vinit
  20 vdisplay result
  21 vsetdispmode result 1
  22 vfit
  23
  24 set info [trinfo result]
  25 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  26 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  27
  28 if { $tri != 100 && $nod != 94 }  {
  29   puts "Faulty OCC17: here can be shading problem"
  30 }
  31
  32 set 2dviewer 0
  33
  34