mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
06d40093b7
vlight command has been revised to provide more friendly syntax. Command now accepts light index or name as first argument. Added arguments -enable/-disable for managing enabled state. Added argument -reset to reset light parameters to default values. V3d_Viewer::SetDefaultLights() now sets names "headlight" and "ambient" to created lights. Graphic3d_TypeOfLightSource enumeration values have been renamed to avoid shortcuts. Draw::Atof(), applied corrections to avoid explicit new/delete calls.
23 lines
405 B
Plaintext
23 lines
405 B
Plaintext
puts "========"
|
|
puts "Test to verify the lights are turned off after 'vlight -clear' (and scene is black)"
|
|
puts "========"
|
|
|
|
pload MODELING VISUALIZATION
|
|
|
|
# create box
|
|
box b 1 2 3
|
|
|
|
# draw box
|
|
vclear
|
|
vclose ALL
|
|
vinit View1
|
|
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!"}
|