Implement point lights.

2 files changed, 18 insertions, 7 deletions

diff --git a/tests/dimension/demo.pov b/tests/dimension/demo.pov
index 5aa044e..b6833bc 100644
--- a/tests/dimension/demo.pov
+++ b/tests/dimension/demo.pov
@@ -19,17 +19,21 @@
 
 // Render demo scene
 
+light_source {
+  <-15, 20, 10>, rgb <1, 1, 1>
+}
+
 box {
   <-1, -1, -1>, <1, 1, 1>
   rotate <45, 0, 0>
   pigment {
-    color rgbft <0, 0, 1, 0.25, 0.25>
+    rgbft <0, 0, 1, 0.25, 0.25>
   }
 }
 
 sphere {
   <0, 0, 0>, 1.25
   pigment {
-    color rgb <0, 1, 0>
+    rgb <0, 1, 0>
   }
 }
diff --git a/tests/dimension/demo.sh b/tests/dimension/demo.sh
index ae65a9d..fbd6fc3 100755
--- a/tests/dimension/demo.sh
+++ b/tests/dimension/demo.sh
@@ -21,24 +21,31 @@
 
 demo=$(${top_builddir}/dimension/dimension --tokenize --parse ${srcdir}/demo.pov)
 demo_exp="$(echo -n \
-'(box {
+'(light_source {
+    < - (integer "15") , (integer "20") , (integer "10") > ,
+    rgb < (integer "1") , (integer "1") , (integer "1") >
+  }
+  box {
     < - (integer "1") , - (integer "1") , - (integer "1") > ,
     < (integer "1") , (integer "1") , (integer "1") >
     rotate < (integer "45") , (integer "0") , (integer "0") >
     pigment {
-      color rgbft < (integer "0") , (integer "0") , (integer "1") ,
-                    (float "0.25") , (float "0.25") >
+      rgbft < (integer "0") , (integer "0") , (integer "1") ,
+              (float "0.25") , (float "0.25") >
     }
   }
   sphere {
     < (integer "0") , (integer "0") , (integer "0") > , (float "1.25")
     pigment {
-      color rgb < (integer "0") , (integer "1") , (integer "0") >
+      rgb < (integer "0") , (integer "1") , (integer "0") >
     }
   })' \
 | tr '\n' ' ' | sed -r 's/[[:space:]]+/ /g')
 $(echo -n \
-'((box
+'((light_source
+    (vector (integer -15) (integer 20) (integer 10) (integer 0) (integer 0))
+    (vector (integer 1) (integer 1) (integer 1) (integer 0) (integer 0)))
+  (box
     (vector (integer -1) (integer -1) (integer -1) (integer 0) (integer 0))
     (vector (integer 1) (integer 1) (integer 1) (integer 0) (integer 0))
     (object-modifiers