2 puts "0025475: Visualization, TKOpenGl - draw background using primitive arrays"
3 puts "Tests textured background"
7 set aTextureFile [locate_data_file hatch_1.png]
12 vbackground -image $aTextureFile -imageMode STRETCH
13 vdump $imagedir/${casename}_1.png
15 vbackground -image $aTextureFile -imageMode NONE
16 vbackground -image $aTextureFile -imageMode TILED
17 vdump $imagedir/${casename}_2.png
19 vbackground -gradient RED BLUE -gradientMode HORIZONTAL
20 vbackground -image $aTextureFile -imageMode CENTERED
21 vdump $imagedir/${casename}_3.png
23 vbackground -image $aTextureFile -imageMode NONE
24 vdump $imagedir/${casename}_4.png