1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
puts "============"
puts "OCC25475"
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
vsetbg $aTextureFile STRETCH
vdump $anImage1
vsetbg $aTextureFile NONE
vsetbg $aTextureFile TILED
vdump $anImage2
vsetgradientbg 255 0 0 0 0 255 1
vsetbg $aTextureFile CENTERED
vdump $anImage3
vsetbg $aTextureFile NONE
vdump $anImage4
|
