puts "============"
-puts "OCC25475"
+puts "0025475: Visualization, TKOpenGl - draw background using primitive arrays"
+puts "Tests textured background"
puts "============"
puts ""
-#######################################################################
-puts "Tests textured background"
-#######################################################################
set aTextureFile [locate_data_file hatch_1.png]
-set anImage1 $imagedir/${casename}_1.png
-set anImage2 $imagedir/${casename}_2.png
-set anImage3 $imagedir/${casename}_3.png
-set anImage4 $imagedir/${casename}_4.png
pload VISUALIZATION
-vinit
+vinit View1
vsetbg $aTextureFile STRETCH
-vdump $anImage1
+vdump $imagedir/${casename}_1.png
vsetbg $aTextureFile NONE
vsetbg $aTextureFile TILED
-vdump $anImage2
+vdump $imagedir/${casename}_2.png
vsetgradientbg 255 0 0 0 0 255 1
vsetbg $aTextureFile CENTERED
-vdump $anImage3
+vdump $imagedir/${casename}_3.png
vsetbg $aTextureFile NONE
-vdump $anImage4
+vdump $imagedir/${casename}_4.png