0031704: Visualization - add an interactive object AIS_LightSource representing a...
[occt.git] / tests / v3d / light_source / display_all
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 -width 1280 -height 720
8 vlight -clear
9 vbackground -color GRAY
10 vrenderparams -shadingModel PBR
11 box b 10 10 10 30 30 30
12 vdisplay b -dispMode 1
13 vaspects b -material Brass
14 vfit
15
16 puts "=== Add light sources and display their presentations ==="
17 vlight -add ambient -color WHITE -name AMBIENT -display
18 vlight -add directional -dir 0 1 0 -name DIR -color GREEN -display
19 vlight -add spotlight  -pos 50 25 25 -dir -1 0 0 -intensity 1000000000 -name SPOT -color RED -display
20 vlight -add positional -pos 25 25 50 -intensity 10000000000 -range 20 -name POSITIONAL -color BLUE -display
21
22 vdump $imagedir/${casename}_def.png
23
24 puts "=== Turn off light sources ==="
25 set mouse_pick_amb  {105 97}
26 set mouse_pick_spot {897 508}
27 set mouse_pick_pos  {640 62}
28 set mouse_pick_dir  {330 536}
29 vselect {*}$mouse_pick_amb
30 vselect {*}$mouse_pick_spot
31 vselect {*}$mouse_pick_pos
32 vselect {*}$mouse_pick_dir
33 vdump $imagedir/${casename}_off.png
34
35 set aColor_spot [vreadpixel 796 454 rgb name]
36 set aColor_pos  [vreadpixel 630 177 rgb name]
37 if { "$aColor_spot" != "LIGHTSALMON3" }    { puts "Error: expected color near the light spot is LIGHTSALMON3" }
38 if { "$aColor_pos"  != "THISTLE4"} { puts "Error: expected color near the positional light is THISTLE4" }
39
40 puts "=== Delete presentations of light sources ==="
41 vremove AMBIENT DIR SPOT POSITIONAL
42
43 puts "=== Display all light sources ==="
44 vlight -change 0 -display
45 vlight -change 1 -display
46 vlight -change 2 -display -showRange 1
47 vlight -change 3 -display -showRange 1
48 vdump $imagedir/${casename}_on.png
49
50 puts "=== Turn on light sources ==="
51 vselect {*}$mouse_pick_amb
52 vselect {*}$mouse_pick_spot
53 vselect {*}$mouse_pick_pos
54 vselect {*}$mouse_pick_dir
55 set aColor_spot [vreadpixel 796 454 rgb name]
56 set aColor_pos  [vreadpixel 630 177 rgb name]
57 set aColor_dir  [vreadpixel 453 453 rgb name]
58 if { "$aColor_spot" != "CORAL" }         { puts "Error: expected color near the light spot is CORAL" }
59 if { "$aColor_pos"  != "LIGHTSLATEBLUE"} { puts "Error: expected color near the positional light is LIGHTSLATEBLUE" }
60 if { "$aColor_dir"  != "BURLYWOOD3" }    { puts "Error: expected color near the directional light is BURLYWOOD3" }
61
62 #vlight -clear
63 #vdump $imagedir/${casename}_cleared.png