0030690: Draw Harness - provide XDisplay command for displaying XDE document
[occt.git] / tests / v3d / glsl / distinguish_off
1 puts "========"
2 puts "0025822: Visualization, TKOpenGl - front material should be used instead of back material within distinguish mode turned off"
3 puts "========"
4
5 pload MODELING OCAF XDE
6 box b 10 10 10
7 vclear
8 vinit View1
9 catch { Close D }
10 NewDocument D BinXCAF
11 XAddShape D b
12 XSetColor D b 0 0 1
13 explode b f
14 XSetColor D b_1 1 0 0
15
16 XDisplay D
17 vviewparams -proj 1 0.1 0.1
18 vfit
19 vsetdispmode 1
20
21 catch { vclipplane delete pln }
22 vclipplane create pln
23 vclipplane set pln view Driver1/Viewer1/View1
24 vclipplane change pln equation -1 0 0 5
25
26 # FFP on, pixel is RED3, which is expected
27 vcaps -ffp 1
28 set aColorFfp [vreadpixel 200 200 rgb name]
29 if { "$aColorFfp" != "RED3" } {
30   puts "Error: RED3 color is expected at the back side (FFP)"
31 }
32
33 # GLSL on, pixel should has the same color RED3, but actual color is KHAKI1
34 vcaps -ffp 0
35 set aColorGlsl [vreadpixel 200 200 rgb name]
36 if { "$aColorGlsl" != "RED3" } {
37   puts "Error: RED3 color is expected at the back side (GLSL)"
38 }