0027986: Visualization - AIS_InteractiveContext::SetLocation() does not update dynami...
[occt.git] / tests / bugs / vis / bug25778
CommitLineData
699239e4 1puts "================================================================"
2puts "CR25778"
3puts "Gradient background will cut view if there is ClipPlane defined."
4puts "================================================================"
5puts ""
6
7set aExpectedImg $imagedir/${casename}_expected_img.png
8set aVerifiedImg $imagedir/${casename}_verified_img.png
9set aDiff $imagedir/${casename}_diff.png
10
11vinit View1
12vclear
13vaxo
14vsetdispmode 1
15box b 1 1 1
16vdisplay b
17vfit
18
19vclipplane create pln
20vclipplane set pln view Driver1/Viewer1/View1
21vclipplane change pln equation 0 1 0 -0.5
22
23vsetgradientbg 0 0 0 0 0 0 0
24
25vdump $aExpectedImg
26
27vsetgradientbg 0 0 0 0 0 0 1
28
29vdump $aVerifiedImg
30
31set aDiffRes [diffimage $aExpectedImg $aVerifiedImg 0.1 0 0 $aDiff]
32if {$aDiffRes != 0} {
33 puts "ERROR : Test failed: gradient background affects clipping."
34}