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 vbackground -gradient BLACK BLACK -gradientMode NONE
  24
  25 vdump $aExpectedImg
  26
  27 vbackground -gradient BLACK BLACK -gradientMode HORIZONTAL
  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 }