1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-09 13:22:24 +03:00
Files
occt/tests/bugs/vis/bug25775
tiv 293211aee0 0030592: Draw Harness, ViewerTest - provide vbackground command unifying vsetbg, vsetbgmode, vsetgradientbg, vsetgrbgmode, vsetcolorbg
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.
2019-04-22 19:31:24 +03:00

26 lines
811 B
Plaintext

puts "========"
puts "OCC25775"
puts "========"
puts ""
################################################################
# "Default Gradient Backgound" in V3d_Viewer has no effect in new created V3d_View.
################################################################
pload ALL
vbackground -default -gradient BLACK GRAY25 -gradientMode HORIZONTAL
vinit View1 w=400 h=400
if { [checkcolor 399 100 0.25 0.25 0.25] != 1 } {
puts "Error: bug with default gradient color is reproduced."
}
vinit View2 w=400 h=400
if { [checkcolor 399 100 0.25 0.25 0.25] != 1 } {
puts "Error: bug with default gradient color is reproduced."
}
vbackground -default -color 0.501961 0.501961 0.501961
vinit View3
if { [checkcolor 100 100 0.5 0.5 0.5] != 1 } {
puts "Error: bug with default background color is reproduced."
}