tests/bugs/modalg/bug109

   1 puts "TODO OCC12345 ALL: Faulty BUC61057: here can be shading problem"
   2
   3 puts "================"
   4 puts "BUC61057"
   5 puts "OCC109"
   6 puts "================"
   7 puts ""
   8 ##########################################################
   9 ## Visualisation of the attached shape is wrong in the shading mode.
  10 ##########################################################
  11
  12 restore [locate_data_file OCC109.brep] result
  13
  14 checkshape result
  15
  16 vinit
  17 tclean result
  18 vdisplay result
  19 vsetdispmode result 1
  20 vfit
  21
  22 set tri_info [trinfo result]
  23 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  24 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  25
  26 if { $tri != 294 && $nod != 300 }  {
  27     puts "Faulty BUC61057: here can be shading problem"
  28 } else {
  29     puts "Shading of BUC61057 is OK"
  30 }
  31
  32 set square 33.8757
  33 set only_screen 1
  34