mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +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.
29 lines
1.0 KiB
Plaintext
29 lines
1.0 KiB
Plaintext
puts "================================="
|
|
puts "0031704: Visualization - add an interactive object AIS_LightSource representing a light source"
|
|
puts "================================="
|
|
|
|
pload MODELING VISUALIZATION
|
|
vclear
|
|
vinit View1
|
|
vlight -clear
|
|
vbackground -color GRAY
|
|
vrenderparams -shadingModel PHONG
|
|
vlight amblight -type AMBIENT -color WHITE -intensity 0.1
|
|
box b 10 10 10 30 30 30
|
|
vdisplay b -dispMode 1
|
|
vaspects b -material Brass
|
|
vfit
|
|
|
|
puts "=== Check headlight option with spotlight ==="
|
|
vlight aSpotlight -type SPOTLIGHT -dir 0 0 -1 -head 1 -intensity 1000000000 -color GREEN -display
|
|
set aColor1 [vreadpixel 200 200 rgb name]
|
|
if { "$aColor1" != "GREEN" } { puts "Error: expected color near the light is GREEN" }
|
|
vdump $imagedir/${casename}_spot.png
|
|
|
|
puts "=== Check headlight option with positional light ==="
|
|
vlight aSpotlight -remove
|
|
vlight aPosLight -type POSITIONAL -head 1 -color RED -display
|
|
set aColor2 [vreadpixel 200 200 rgb name]
|
|
if { "$aColor2" != "RED" } { puts "Error: expected color near the light is RED" }
|
|
vdump $imagedir/${casename}_pos.png
|