tests/bugs/modalg_2/bug481

   1
   2 puts "========================"
   3 puts " OCC481 "
   4 puts "========================"
   5 puts ""
   6 ##########################################
   7 ##Attached shape could not be displayed in the Shading mode.
   8 ##########################################
   9
  10 restore [locate_data_file OCC481.rle] result
  11 checkshape result
  12
  13 tclean result
  14 vinit
  15 vdisplay result
  16 vfit
  17 vsetdispmode result 1
  18
  19 set tri 0
  20 set nod 0
  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 == 72 && $nod == 74 } {
  27     puts " OCC481 : OK"
  28 } else {
  29     puts " OCC481 : Faulty"
  30 }
  31
  32 set square 314.159
  33 set 3dviewer 1