699239e4 |
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 | } |