tests/bugs/vis/bug27836

   1 puts "========"
   2 puts "Gradient background is lost at some camera positions"
   3 puts "========"
   4
   5 # Test case setup the camera in such a position,
   6 # so that background plane will be clipped by Z-range if not handled by Z-fit.
   7
   8 pload MODELING VISUALIZATION
   9 box b 0 0 -100 100 90 10
  10
  11 vclear
  12 vinit View1
  13 vaxo
  14 vsetgradientbg 180 200 255 180 180 180 2
  15 vzbufftrihedron
  16 vdisplay -dispMode 1 b
  17 vsetlocation b 0 0 1000
  18 vfit
  19
  20 vviewparams -scale 6.66 -eye 48 43 -210 -at 50 45 -95
  21
  22 if { [vreadpixel 100 300 rgb name] != "GRAY74" } { puts "Error: gradient background is not displayed" }
  23
  24 vdump $imagedir/${casename}.png