1 #!/usr/bin/perl

     2 #

     3 # Compute illuminance from ray origin and direction

     4 #

     5 # This is re-write of Greg's rlux.csh

     6 

     7 use strict;

     8 use warnings;

     9 

    10 if($#ARGV < 0) {

    11 	print "Usage: $0 [rtrace args] octree";

    12 	exit(1);

    13 }

    14 

    15 my $args = join(' ', @ARGV);

    16 my $cmd = "rtrace -i+ -dv- -h- -x 1 $args";

    17 $cmd .= " | rcalc -e '$1=47.4*$1+120*$2+11.6*$3' -u";

    18 system "$cmd";

    19 

    20 #EOF