tests/bugs/vis/bug25475

   1 puts "============"
   2 puts "0025475: Visualization, TKOpenGl - draw background using primitive arrays"
   3 puts "Tests textured background"
   4 puts "============"
   5 puts ""
   6
   7 set aTextureFile [locate_data_file hatch_1.png]
   8
   9 pload VISUALIZATION
  10 vinit View1
  11
  12 vbackground -image $aTextureFile -imageMode STRETCH
  13 vdump $imagedir/${casename}_1.png
  14
  15 vbackground -image $aTextureFile -imageMode NONE
  16 vbackground -image $aTextureFile -imageMode TILED
  17 vdump $imagedir/${casename}_2.png
  18
  19 vbackground -gradient RED BLUE -gradientMode HORIZONTAL
  20 vbackground -image $aTextureFile -imageMode CENTERED
  21 vdump $imagedir/${casename}_3.png
  22
  23 vbackground -image $aTextureFile -imageMode NONE
  24 vdump $imagedir/${casename}_4.png