mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
64c759f898
GLSL and Ray Tracing - take into account non-physical materials. Move Ray Tracing test cases to v3d/raytrace grid.
20 lines
362 B
Plaintext
20 lines
362 B
Plaintext
puts "========"
|
|
puts "Test to verify the lights are turned off after 'vlight clear' (and scene is black)"
|
|
puts "========"
|
|
|
|
# create box
|
|
box b 1 2 3
|
|
|
|
# draw box
|
|
vinit View1
|
|
vclear
|
|
vsetdispmode 1
|
|
vdisplay b
|
|
vfit
|
|
|
|
vlight clear
|
|
|
|
set color [vreadpixel 100 100 rgb]
|
|
set black "0 0 0"
|
|
if {[string equal $color $black] != 1} {error "Lights do not seems to be cleared!"}
|