--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/bin/rlux.pl	Sun Apr 10 19:00:53 2011 +0100
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+#
+# Compute illuminance from ray origin and direction
+#
+# This is re-write of Greg's rlux.csh
+
+use strict;
+use warnings;
+
+if($#ARGV < 0) {
+	print "Usage: $0 [rtrace args] octree";
+	exit(1);
+}
+
+my $args = join(' ', @ARGV);
+my $cmd = "rtrace -i+ -dv- -h- -x 1 $args";
+$cmd .= " | rcalc -e '$1=47.4*$1+120*$2+11.6*$3' -u";
+system "$cmd";
+
+#EOF
\ No newline at end of file