tests/bugs/vis/bug344

   1 puts "================"
   2 puts "BUC61047"
   3 puts "OCC344"
   4 puts "================"
   5 puts ""
   6
   7 #############################################
   8 ## An exception - <access violation> is raised during visualization.
   9 #############################################
  10
  11 restore [locate_data_file OCC344.brep] result
  12 checkshape result
  13 tclean result
  14
  15 vinit
  16 vdisplay result
  17 vsetdispmode result 1
  18 vfit
  19 vclear
  20 isos result 0
  21 triangles result
  22
  23 set info [trinfo result]
  24 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  25 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  26
  27 if { $tri == 9 && $nod == 8 }  {
  28    puts "Warning OCC344: here is shading problem"
  29 } else {
  30    puts "Shading of OCC344 looks like OK, but visual checking is required"
  31 }
  32
  33 checkview -screenshot -3d -path ${imagedir}/${test_image}.png