mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-13 11:46:28 +08: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.
19 lines
489 B
Plaintext
Executable File
19 lines
489 B
Plaintext
Executable File
puts "============"
|
|
puts "0023363: Lost gradient background when switching to the hollow interior style"
|
|
puts "============"
|
|
puts ""
|
|
|
|
vclear
|
|
vinit View1
|
|
vaxo
|
|
vbackground -gradient 0.980392 0 0 GREEN -gradientMode VERTICAL
|
|
pcylinder p 100 200
|
|
vdisplay -dispMode 1 p
|
|
vaspects p -setInteriorStyle HOLLOW -setDrawEdges 1
|
|
|
|
set color1 [vreadpixel 10 0 rgb]
|
|
set rd1 [lindex $color1 0]
|
|
if { $rd1 == 0 } { puts "Faulty ${BugNumber}" }
|
|
|
|
checkview -screenshot -3d -path ${imagedir}/${test_image}.png
|