ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cv/iso2klems.pl
(Generate patch)

Comparing ray/src/cv/iso2klems.pl (file contents):
Revision 2.4 by greg, Fri Aug 12 23:55:00 2022 UTC vs.
Revision 2.5 by greg, Tue Oct 4 14:08:17 2022 UTC

# Line 42 | Line 42 | while ($#ARGV >= 0) {
42          }
43          shift @ARGV;
44   }
45 + userror() if ($#ARGV >= 0);
46   my $funcfile = "$td/isofuncs.cal";
47   my @vnm = ("Tspec","Tdiff","Rspec","Rdiff");
48 < system "cat @ARGV | tabfunc -i @vnm > $funcfile";
48 > if ($#ARGV == 0) {
49 >        system "tabfunc -i @vnm < \"$ARGV[0]\" > $funcfile";
50 > } else {
51 >        system "tabfunc -i @vnm > $funcfile";
52 > }
53   die "Invalid input data, requires 5 columns\n" if ( $? );
54   open (MYFH, ">> $funcfile");
55   print MYFH "DEG : PI/180;\n";

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines