tests/bugs/vis/bug21578

   1 puts "TODO OCC11111 ALL: OCC21578: Faulty"
   2 puts "TODO OCC11111 ALL: Error : The square of result shape is"
   3
   4 puts "============"
   5 puts "OCC21578"
   6 puts "============"
   7 puts ""
   8 ######################################################
   9 # Attached shape is not vizualized in the shaded mode
  10 ######################################################
  11
  12 set BugNumber OCC21578
  13
  14 restore [locate_data_file OCC21578.brep] result
  15
  16 vinit
  17 tclean result
  18 vsetdispmode 1
  19 vdisplay result
  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 regexp {Maximal deflection +([-0-9.+eE]+)} $tri_info full defl
  26
  27 set good_tri 231
  28 set good_nod 236
  29 set good_defl 0.004029564463949387
  30
  31 puts [format " Triangles= %s  Nodes= %s Deflection= %s " $tri $nod $defl]
  32
  33 set status 0
  34 if {${tri} != ${good_tri}} {
  35   set status 1
  36 }
  37 if {${nod} != ${good_nod}} {
  38   set status 1
  39 }
  40 #if {${defl} != ${good_defl}} {
  41 #  set status 1
  42 #}
  43
  44 if { ${status} != 0 } {
  45   puts "${BugNumber}: Faulty"
  46 } else {
  47   puts "${BugNumber}: OK"
  48 }
  49
  50 set only_screen 1
  51 set square 0
  52