0029528: Visualization, TKOpenGl - allow defining sRGB textures
[occt.git] / 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] != "PERU"  } { 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] != "GOLDENROD3" } { puts "Error: object should NOT be selected" }
32
33 vdump $imagedir/${casename}_2.png