tests/bugs/moddata_1/bug20

   1 puts "TODO OCC12345 ALL: Faulty OCC20: here is shading problem"
   2
   3 puts "================"
   4 puts "OCC20"
   5 puts "================"
   6 puts ""
   7 ###############################
   8 ## Face apearence in shading mode is wrong
   9 ###############################
  10
  11 pload QAcommands
  12 restore [locate_data_file OCC20.brep] result
  13
  14 checkshape result
  15
  16 tclean result
  17 vinit
  18 vdisplay result
  19 vsetdispmode result 1
  20
  21 vviewparams 5.1346924 95.358439 -4.910448 0.23495967 -0.302 0.923899 -0.7304302 0.5722587 0.372815 9.550874 -7.55706 -28.83166
  22
  23 isos result 0
  24 triangles result
  25
  26 set info [trinfo result]
  27 regexp { +([-0-9.+eE]+) +triangles} $info full tri
  28 regexp { +([-0-9.+eE]+) +nodes} $info full nod
  29
  30 if { $tri != 416 || $nod != 367 }  {
  31    puts "Faulty OCC20: here is shading problem"
  32 }
  33
  34 set 2dviewer 0
  35