tests/bugs/moddata_3/bug24959_2

   1 puts "========"
   2 puts "OCC24959"
   3 puts "========"
   4 puts ""
   5 ####################################################
   6 ## GCPnts_TangentialDeflection does not implement functionality by its meaning in case of BSpline with local splash
   7 ####################################################
   8
   9 bsplinesurf s 2 12 0.0 3 0.1 1 0.2 1 0.3 1 0.4 1 0.5 1 0.525 1 0.55 1 0.575 1 0.8 1 0.9 1 1.0 3 1 2 0.0 2 1.0 2 16 0 0 1 14 0 0 1 12 0 0 1 10 0 0 1 8 0 0 1 6 0 0 1 4 0 0 1 2 0 0 1 0 0 0 1 -2 0 0 1 -4 0 0 1 -6 0 0 1 -8 0 0 1 16 5 0 1 14 5 0 1 12 5 0 1 10 5 0 1 8 5 0 1 6 5 0 1 4 5 0 1 1.5 9 0 1 0 5 0 1 -2 5 0 1 -4 5 0 1 -6 5 0 1 -8 5 0 1
  10 mkface result s
  11 incmesh result 1
  12 set tri_info [trinfo result]
  13 regexp {deflection ([0-9.+e-]+)} $tri_info full defl
  14
  15 # check deflections
  16 if { $defl > 1 } {
  17   puts "Error: too big deflection on original face (${defl} > 1)"
  18 } else {
  19   puts "Deflection is OK (${defl})"
  20 }
  21
  22 vdisplay result
  23 vsetdispmode 1
  24 vtop
  25 vfit
  26 set only_screen 1