#!/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