0031682: Visualization - Prs3d_ShadingAspect::SetTransparency() has no effect with...
[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
ab1f4580 8vinit View1
95b2678c 9catch { Close D }
e837410d 10NewDocument D BinXCAF
95b2678c 11XAddShape D b
ba00aab7 12XSetColor D b BLUE
95b2678c 13explode b f
ba00aab7 14XSetColor D b_1 RED
95b2678c 15
ab1f4580 16XDisplay D
95b2678c 17vviewparams -proj 1 0.1 0.1
18vfit
19vsetdispmode 1
20
21catch { vclipplane delete pln }
22vclipplane create pln
ab1f4580 23vclipplane set pln view Driver1/Viewer1/View1
95b2678c 24vclipplane change pln equation -1 0 0 5
25
ba00aab7 26# FFP on
95b2678c 27vcaps -ffp 1
28set aColorFfp [vreadpixel 200 200 rgb name]
ba00aab7 29if { "$aColorFfp" != "RED" } { puts "Error: RED color is expected at the back side (FFP)" }
95b2678c 30
ba00aab7 31# GLSL on
95b2678c 32vcaps -ffp 0
33set aColorGlsl [vreadpixel 200 200 rgb name]
ba00aab7 34if { "$aColorGlsl" != "FIREBRICK" } { puts "Error: FIREBRICK color is expected at the back side (GLSL)" }