0032121: Draw Harness, ViewerTest - implement -reset option for vlight command
[occt.git] / tests / v3d / light_source / headlight
1 puts "================================="
2 puts "0031704: Visualization - add an interactive object AIS_LightSource representing a light source"
3 puts "================================="
4
5 pload MODELING VISUALIZATION
6 vclear
7 vinit View1
8 vlight -clear
9 vbackground -color GRAY
10 vrenderparams -shadingModel PHONG
11 vlight amblight -type AMBIENT -color WHITE -intensity 0.1
12 box b 10 10 10 30 30 30
13 vdisplay b -dispMode 1
14 vaspects b -material Brass
15 vfit
16
17 puts "=== Check headlight option with spotlight ==="
18 vlight aSpotlight -type SPOTLIGHT -dir 0 0 -1 -head 1 -intensity 1000000000 -color GREEN -display
19 set aColor1 [vreadpixel 200 200 rgb name]
20 if { "$aColor1" != "GREEN" } { puts "Error: expected color near the light is GREEN" }
21 vdump $imagedir/${casename}_spot.png
22
23 puts "=== Check headlight option with positional light ==="
24 vlight aSpotlight -remove
25 vlight aPosLight -type POSITIONAL -head 1 -color RED -display
26 set aColor2 [vreadpixel 200 200 rgb name]
27 if { "$aColor2" != "RED" } { puts "Error: expected color near the light is RED" }
28 vdump $imagedir/${casename}_pos.png