1 puts "================================================================"
3 puts "Gradient background will cut view if there is ClipPlane defined."
4 puts "================================================================"
7 set aExpectedImg $imagedir/${casename}_expected_img.png
8 set aVerifiedImg $imagedir/${casename}_verified_img.png
9 set aDiff $imagedir/${casename}_diff.png
20 vclipplane set pln view Driver1/Viewer1/View1
21 vclipplane change pln equation 0 1 0 -0.5
23 vbackground -gradient BLACK BLACK -gradientMode NONE
27 vbackground -gradient BLACK BLACK -gradientMode HORIZONTAL
31 set aDiffRes [diffimage $aExpectedImg $aVerifiedImg 0.1 0 0 $aDiff]
33 puts "ERROR : Test failed: gradient background affects clipping."