0031704: Visualization - add an interactive object AIS_LightSource representing a...
[occt.git] / tests / v3d / light_source / headlight
diff --git a/tests/v3d/light_source/headlight b/tests/v3d/light_source/headlight
new file mode 100644 (file)
index 0000000..2b4361c
--- /dev/null
@@ -0,0 +1,28 @@
+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 -add 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 -add spotlight -dir 0 0 -1 -head 1 -intensity 1000000000 -color GREEN -display aSpotlight
+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 -remove 1
+vlight -add positional -head 1 -color RED -display aPosLight
+set aColor2 [vreadpixel 200 200 rgb name]
+if { "$aColor2" != "RED" } { puts "Error: expected color near the light is RED" }
+vdump $imagedir/${casename}_pos.png