tests/bugs/vis/bug29791

   1 puts "============"
   2 puts "0029791: Visualization - Wrong result of SelectMgr_RectangularFrustum::IsClipped"
   3 puts "============"
   4 puts ""
   5
   6 pload MODELING VISUALIZATION
   7 restore [locate_data_file occ/bottle.brep] b
   8 vclear
   9 vinit View1
  10 vdisplay -dispMode 1 -highMode 1 b
  11 vfit
  12 vzbufftrihedron
  13 vclipplane p -equation 1 0 0 -20 -set
  14
  15 # clipping plane orthogonal to the camera direction
  16 vfront
  17 vfit
  18 vmoveto 150 200
  19 vstate -entities
  20 vselect 150 200
  21 if { [vreadpixel 150 200 rgb name] != "BLACK"      } { puts "Error: object is not clipped" }
  22 if { [vreadpixel 350 200 rgb name] != "GOLDENROD1" } { puts "Error: object should NOT be selected" }
  23 vdump $imagedir/${casename}_1.png
  24
  25 # depth range starts behinds the picking ray
  26 vviewparams -scale 14.7435 -proj 0.193921 -0.891229 0.410007 -up -0.0205984 0.414149 0.909976 -at 11.3689 1.32152 24.9954
  27 vmoveto 150 200
  28 vstate -entities
  29 vselect 150 200
  30 if { [vreadpixel 150 200 rgb name] != "BLACK"      } { puts "Error: object is not clipped" }
  31 if { [vreadpixel 300 200 rgb name] != "GOLDENROD1" } { puts "Error: object should NOT be selected" }
  32
  33 vdump $imagedir/${casename}_2.png