0031704: Visualization - add an interactive object AIS_LightSource representing a...
[occt.git] / tests / v3d / light_source / display_all
diff --git a/tests/v3d/light_source/display_all b/tests/v3d/light_source/display_all
new file mode 100644 (file)
index 0000000..85573c3
--- /dev/null
@@ -0,0 +1,63 @@
+puts "================================="
+puts "0031704: Visualization - add an interactive object AIS_LightSource representing a light source"
+puts "================================="
+
+pload MODELING VISUALIZATION
+vclear
+vinit View1 -width 1280 -height 720
+vlight -clear
+vbackground -color GRAY
+vrenderparams -shadingModel PBR
+box b 10 10 10 30 30 30
+vdisplay b -dispMode 1
+vaspects b -material Brass
+vfit
+
+puts "=== Add light sources and display their presentations ==="
+vlight -add ambient -color WHITE -name AMBIENT -display
+vlight -add directional -dir 0 1 0 -name DIR -color GREEN -display
+vlight -add spotlight  -pos 50 25 25 -dir -1 0 0 -intensity 1000000000 -name SPOT -color RED -display
+vlight -add positional -pos 25 25 50 -intensity 10000000000 -range 20 -name POSITIONAL -color BLUE -display
+
+vdump $imagedir/${casename}_def.png
+
+puts "=== Turn off light sources ==="
+set mouse_pick_amb  {105 97}
+set mouse_pick_spot {897 508}
+set mouse_pick_pos  {640 62}
+set mouse_pick_dir  {330 536}
+vselect {*}$mouse_pick_amb
+vselect {*}$mouse_pick_spot
+vselect {*}$mouse_pick_pos
+vselect {*}$mouse_pick_dir
+vdump $imagedir/${casename}_off.png
+
+set aColor_spot [vreadpixel 796 454 rgb name]
+set aColor_pos  [vreadpixel 630 177 rgb name]
+if { "$aColor_spot" != "LIGHTSALMON3" }    { puts "Error: expected color near the light spot is LIGHTSALMON3" }
+if { "$aColor_pos"  != "THISTLE4"} { puts "Error: expected color near the positional light is THISTLE4" }
+
+puts "=== Delete presentations of light sources ==="
+vremove AMBIENT DIR SPOT POSITIONAL
+
+puts "=== Display all light sources ==="
+vlight -change 0 -display
+vlight -change 1 -display
+vlight -change 2 -display -showRange 1
+vlight -change 3 -display -showRange 1
+vdump $imagedir/${casename}_on.png
+
+puts "=== Turn on light sources ==="
+vselect {*}$mouse_pick_amb
+vselect {*}$mouse_pick_spot
+vselect {*}$mouse_pick_pos
+vselect {*}$mouse_pick_dir
+set aColor_spot [vreadpixel 796 454 rgb name]
+set aColor_pos  [vreadpixel 630 177 rgb name]
+set aColor_dir  [vreadpixel 453 453 rgb name]
+if { "$aColor_spot" != "CORAL" }         { puts "Error: expected color near the light spot is CORAL" }
+if { "$aColor_pos"  != "LIGHTSLATEBLUE"} { puts "Error: expected color near the positional light is LIGHTSLATEBLUE" }
+if { "$aColor_dir"  != "BURLYWOOD3" }    { puts "Error: expected color near the directional light is BURLYWOOD3" }
+
+#vlight -clear
+#vdump $imagedir/${casename}_cleared.png