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