0025822: Visualization, TKOpenGl - front material should be used instead of back...
[occt.git] / tests / v3d / glsl / distinguish_off
CommitLineData
95b2678c 1puts "========"
2puts "0025822: Visualization, TKOpenGl - front material should be used instead of back material within distinguish mode turned off"
3puts "========"
4
5pload MODELING OCAF XDE
6box b 10 10 10
7vclear
8vclose all
9catch { Close D }
10NewDocument D MDTV-XCAF
11XAddShape D b
12XSetColor D b 0 0 1
13explode b f
14XSetColor D b_1 1 0 0
15
16XShow D
17vviewparams -proj 1 0.1 0.1
18vfit
19vsetdispmode 1
20
21catch { vclipplane delete pln }
22vclipplane create pln
23vclipplane set pln view Driver1/Document_D/View1
24vclipplane change pln equation -1 0 0 5
25
26# FFP on, pixel is RED3, which is expected
27vcaps -ffp 1
28set aColorFfp [vreadpixel 200 200 rgb name]
29if { "$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
34vcaps -ffp 0
35set aColorGlsl [vreadpixel 200 200 rgb name]
36if { "$aColorGlsl" != "RED3" } {
37 puts "Error: RED3 color is expected at the back side (GLSL)"
38}