1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-04 18:06:22 +03:00
occt/tests/bugs/vis/bug25475
aba 0b0320e76e 0025475: Visualization, TKOpenGl - draw background using primitive arrays
Move background arrays to separate class OpenGl_BackgroundArray
for texture and gradient arrays.

Eliminated warnings on Linux
2015-02-05 14:49:28 +03:00

31 lines
720 B
Plaintext

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