mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
293211aee0
A new command vbackground is created. Old background commands are made aliases for the newly created command (including vsetdefaultbg). Tests are modified using newly added command vbackground.
25 lines
694 B
Plaintext
25 lines
694 B
Plaintext
puts "============"
|
|
puts "0025475: Visualization, TKOpenGl - draw background using primitive arrays"
|
|
puts "Tests textured background"
|
|
puts "============"
|
|
puts ""
|
|
|
|
set aTextureFile [locate_data_file hatch_1.png]
|
|
|
|
pload VISUALIZATION
|
|
vinit View1
|
|
|
|
vbackground -image $aTextureFile -imageMode STRETCH
|
|
vdump $imagedir/${casename}_1.png
|
|
|
|
vbackground -image $aTextureFile -imageMode NONE
|
|
vbackground -image $aTextureFile -imageMode TILED
|
|
vdump $imagedir/${casename}_2.png
|
|
|
|
vbackground -gradient RED BLUE1 -gradientMode HORIZONTAL
|
|
vbackground -image $aTextureFile -imageMode CENTERED
|
|
vdump $imagedir/${casename}_3.png
|
|
|
|
vbackground -image $aTextureFile -imageMode NONE
|
|
vdump $imagedir/${casename}_4.png
|