ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/cv/iso2klems.pl
Revision: 2.3
Committed: Thu Mar 10 17:26:04 2022 UTC (2 years ago) by greg
Content type: text/plain
Branch: MAIN
Changes since 2.2: +9 -9 lines
Log Message:
style(iso2klems): Improvements to quoting for Windows and Unix

File Contents

# User Rev Content
1 greg 2.1 #!/usr/bin/perl -w
2 greg 2.3 # RCSid $Id: iso2klems.pl,v 2.2 2022/03/08 19:50:06 greg Exp $
3 greg 2.1 #
4     # Convert tabulated isotropic direct-hemispherical and direct-direct to Klems XML
5     #
6     # G. Ward
7     #
8     use strict;
9     my $windoz = ($^O eq "MSWin32" or $^O eq "MSWin64");
10     use File::Temp qw/ :mktemp /;
11     sub userror {
12 greg 2.2 print STDERR "Usage: iso2klems [-t][-f \"x=string;y=string\"][-u unit] [input.dat]\n";
13 greg 2.1 exit 1;
14     }
15     my ($td,$rmtmp,$cmd);
16     if ($windoz) {
17     my $tmploc = `echo \%TMP\%`;
18     chomp $tmploc;
19     $td = mkdtemp("$tmploc\\iso2klems.XXXXXX");
20     $rmtmp = "rd /S /Q $td";
21     } else {
22     $td = mkdtemp("/tmp/iso2klems.XXXXXX");
23     chomp $td;
24     $rmtmp = "rm -rf $td";
25     }
26     my $wrapper = 'wrapBSDF -W -a kf -C "Generated by iso2klems"';
27     my $reverse = 0;
28     # Get options
29     while ($#ARGV >= 0) {
30     if ("$ARGV[0]" eq "-t") {
31     $reverse = ! $reverse;
32 greg 2.2 } elsif ("$ARGV[0]" =~ /^-[fs]$/) {
33 greg 2.1 $wrapper .= " -f \"$ARGV[1]\"";
34     shift @ARGV;
35 greg 2.2 } elsif ("$ARGV[0]" eq "-u") {
36     $wrapper .= " -u $ARGV[1]";
37     shift @ARGV;
38 greg 2.1 } elsif ("$ARGV[0]" =~ /^-./) {
39     userror();
40     } else {
41     last;
42     }
43     shift @ARGV;
44     }
45     my $funcfile = "$td/isofuncs.cal";
46     my @vnm = ("Tspec","Tdiff","Rspec","Rdiff");
47     system "cat @ARGV | tabfunc -i @vnm > $funcfile";
48     die "Invalid input data, requires 5 columns\n" if ( $? );
49     open (MYFH, ">> $funcfile");
50     print MYFH "DEG : PI/180;\n";
51     print MYFH "and(a,b) : if(a,b,a);\n";
52     print MYFH "eq(a,b) : min(a-b+1e-5,b-a+1e-5);\n";
53     print MYFH "rtheta(i) : select(i,5,15,25,35,45,55,65,75,90);\n";
54     print MYFH "nphis(i) : select(i,1,8,16,20,24,24,24,16,12);\n";
55     print MYFH "tdeg1(tb) : if(tb-1.5, (rtheta(tb)+rtheta(tb-1))/2, 0);\n";
56     print MYFH "omega1(tb) : 2*PI*if(tb-1.5, (cos(rtheta(tb-1)*DEG)-cos(rtheta(tb)*DEG))/nphis(tb),";
57     print MYFH "\t(1 - cos(rtheta(1)*DEG)));\n";
58     print MYFH "tbin(b,cnt) : if(nphis(b)-cnt-.5, b, tbin(b+1,cnt-nphis(b)));\n";
59     print MYFH "tdeg(b) : tdeg1(tbin(1,b-1));\n";
60     print MYFH "omega(b) : omega1(tbin(1,b-1));\n";
61     close MYFH;
62     # Compute front and back diffuse hemispherical integrals
63     my $hsamps = 26;
64     my $nsamps = $hsamps * 2;
65     if ($windoz) {
66     $cmd = qq{cnt $nsamps } .
67     qq{| rcalc -f $funcfile -w -e "tdeg=180/$nsamps*(\$1+.5);abs(x):if(x,x,-x)" } .
68     qq{-e "theta=tdeg*DEG;ifact=2*PI*abs(cos(theta))*sin(theta)" } .
69     q{-e "$1=ifact*Tdiff(tdeg);$2=ifact*Rdiff(tdeg)" } .
70     qq{| total -$hsamps -m};
71     } else {
72     $cmd = qq{cnt $nsamps } .
73     qq{| rcalc -f $funcfile -w -e 'tdeg=180/$nsamps*(\$1+.5);abs(x):if(x,x,-x)' } .
74     qq{-e 'theta=tdeg*DEG;ifact=2*PI*abs(cos(theta))*sin(theta)' } .
75     q{-e '$1=ifact*Tdiff(tdeg);$2=ifact*Rdiff(tdeg)' -od } .
76     qq{| total -id2 -$hsamps -m};
77     }
78     # Returns side 1 Th-h, side 1 Rh-h, side 2 Th-h, side 2 Rh-h
79     my @h2h = split /\s+/, `$cmd`;
80     die "Error running rcalc" if ( $? || $#h2h != 3 );
81     # Compute Klems matrices
82     my $TK1dataf = "$td/trans1m.txt";
83     my $RK1dataf = "$td/refl1m.txt";
84     my $TK2dataf = "$td/trans2m.txt";
85     my $RK2dataf = "$td/refl2m.txt";
86     if ($windoz) {
87     $cmd = qq{cnt 145 145 } .
88     qq{| rcalc -f $funcfile } .
89     q{-e "diag=eq($1,$2);tideg=tdeg($1+1);tsdeg=tdeg($2+1);om=omega($1+1);corr=PI/(PI-om)" } .
90     qq{-e "Td1=if($h2h[0]-.001,Tdiff(tideg)*Tdiff(tsdeg)/$h2h[0],0)" } .
91     qq{-e "Rd1=if($h2h[1]-.001,Rdiff(tideg)*Rdiff(tsdeg)/$h2h[1],0)" } .
92     qq{-e "Td2=if($h2h[2]-.001,Tdiff(180-tideg)*Tdiff(180-tsdeg)/$h2h[2],0)" } .
93     qq{-e "Rd2=if($h2h[3]-.001,Rdiff(180-tideg)*Rdiff(180-tsdeg)/$h2h[3],0)" } .
94 greg 2.3 q{-e "$1=if(Tspec(0),if(diag,Tspec(tideg)/om,Td1*corr),Td1)" } .
95     q{-e "$2=if(Rspec(0),if(diag,Rspec(tideg)/om,Rd1*corr),Rd1)" } .
96     q{-e "$3=if(Tspec(180),if(diag,Tspec(180-tideg)/om,Td2*corr),Td2)" } .
97     q{-e "$4=if(Rspec(180),if(diag,Rspec(180-tideg)/om,Rd2*corr),Rd2)" };
98 greg 2.1 } else {
99     $cmd = qq{cnt 145 145 } .
100     qq{| rcalc -f $funcfile } .
101     q{-e 'diag=eq($1,$2);tideg=tdeg($1+1);tsdeg=tdeg($2+1);om=omega($1+1);corr=PI/(PI-om)' } .
102     qq{-e 'Td1=if($h2h[0]-.001,Tdiff(tideg)*Tdiff(tsdeg)/$h2h[0],0)' } .
103     qq{-e 'Rd1=if($h2h[1]-.001,Rdiff(tideg)*Rdiff(tsdeg)/$h2h[1],0)' } .
104     qq{-e 'Td2=if($h2h[2]-.001,Tdiff(180-tideg)*Tdiff(180-tsdeg)/$h2h[2],0)' } .
105     qq{-e 'Rd2=if($h2h[3]-.001,Rdiff(180-tideg)*Rdiff(180-tsdeg)/$h2h[3],0)' } .
106 greg 2.3 q{-e '$1=if(Tspec(0),if(diag,Tspec(tideg)/om,Td1*corr),Td1)' } .
107     q{-e '$2=if(Rspec(0),if(diag,Rspec(tideg)/om,Rd1*corr),Rd1)' } .
108     q{-e '$3=if(Tspec(180),if(diag,Tspec(180-tideg)/om,Td2*corr),Td2)' } .
109     q{-e '$4=if(Rspec(180),if(diag,Rspec(180-tideg)/om,Rd2*corr),Rd2)' };
110 greg 2.1 }
111     system qq{$cmd | rsplit "-t " $TK1dataf $RK1dataf $TK2dataf $RK2dataf};
112     die "Error running rcalc or rsplit" if ( $? );
113     if ($reverse) {
114     $wrapper .= " -tf $TK2dataf -rf $RK2dataf -tb $TK1dataf -rb $RK1dataf";
115     } else {
116     $wrapper .= " -tf $TK1dataf -rf $RK1dataf -tb $TK2dataf -rb $RK2dataf";
117     }
118     system $wrapper;
119     die "Error running: $wrapper\n" if ( $? );
120     exec $rmtmp;