tests/bugs/vis/bug364

   1 puts "========================"
   2 puts "BUC61000"
   3 puts " OCC364 "
   4 puts "========================"
   5 puts ""
   6 ##############################################
   7 ## Face is invisible in the shading mode in the 3D View.
   8 ##############################################
   9
  10 restore [locate_data_file OCC364.brep] result
  11 checkshape result
  12
  13 tclean result
  14 isos result 0
  15 vinit
  16 vdisplay result
  17 vsetdispmode result 1
  18 vfit
  19 triangles result
  20
  21 set info [trinfo result]
  22 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  23 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  24
  25 if { $tri != 84 || $nod != 84 }  {
  26    puts "Faulty OCC364: here is shading problem"
  27 } else {
  28    puts "Shading of  OCC364 is OK"
  29 }
  30
  31 set only_screen 1
  32
  33
  34