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