tests/bugs/modalg_2/bug358

   1 puts "========================"
   2 puts " BUC60977 "
   3 puts " OCC358 "
   4 puts "========================"
   5 #####
   6 puts "The helical pipe is not shaded in AISViewer"
   7 #####
   8
   9 restore [locate_data_file OCC358a.brep] f
  10 checkshape f
  11
  12 restore [locate_data_file OCC358b.brep] w
  13 checkshape w
  14
  15 pipe result w f
  16
  17 vinit
  18 vdisplay result
  19 vfit
  20 vsetdispmode result 1
  21 # checkshape res
  22 # maxtolerance res
  23
  24 set tri 0
  25 set nod 0
  26
  27 set tri_info [trinfo result]
  28 regexp { +([-0-9.+eE]+) +triangles} $tri_info full tri
  29 regexp { +([-0-9.+eE]+) +nodes} $tri_info full nod
  30
  31 if { $tri == 12966 && $nod == 6896} {
  32     puts " OCC358  looks like OK"
  33 } else {
  34     puts [format " tri= %s  nod= %s " $tri $nod]
  35     puts " OCC358  : Shady (bad shading)"
  36 }
  37
  38 set square 24861.2
  39 set 2dviewer 0
  40