0b0320e7 |
1 | puts "============" |
2 | puts "OCC25475" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | puts "Tests textured background" |
7 | ####################################################################### |
8 | |
9 | set aTextureFile [locate_data_file hatch_1.png] |
10 | set anImage1 $imagedir/${casename}_1.png |
11 | set anImage2 $imagedir/${casename}_2.png |
12 | set anImage3 $imagedir/${casename}_3.png |
13 | set anImage4 $imagedir/${casename}_4.png |
14 | |
15 | pload VISUALIZATION |
16 | vinit |
17 | |
18 | vsetbg $aTextureFile STRETCH |
19 | vdump $anImage1 |
20 | |
21 | vsetbg $aTextureFile NONE |
22 | vsetbg $aTextureFile TILED |
23 | vdump $anImage2 |
24 | |
25 | vsetgradientbg 255 0 0 0 0 255 1 |
26 | vsetbg $aTextureFile CENTERED |
27 | vdump $anImage3 |
28 | |
29 | vsetbg $aTextureFile NONE |
30 | vdump $anImage4 |