puts "================================================================"
puts "CR25778"
puts "Gradient background will cut view if there is ClipPlane defined."
puts "================================================================"
puts ""

set aExpectedImg $imagedir/${casename}_expected_img.png
set aVerifiedImg $imagedir/${casename}_verified_img.png
set aDiff $imagedir/${casename}_diff.png

vinit View1
vclear
vaxo
vsetdispmode 1
box b 1 1 1
vdisplay b
vfit

vclipplane create pln
vclipplane set pln view Driver1/Viewer1/View1
vclipplane change pln equation 0 1 0 -0.5

vbackground -gradient BLACK BLACK -gradientMode NONE

vdump $aExpectedImg

vbackground -gradient BLACK BLACK -gradientMode HORIZONTAL

vdump $aVerifiedImg

set aDiffRes [diffimage $aExpectedImg $aVerifiedImg 0.1 0 0 $aDiff]
if {$aDiffRes != 0} {
  puts "ERROR : Test failed: gradient background affects clipping."
}
