equal
deleted
inserted
replaced
12 |
12 |
13 use File::Temp qw/ tempdir /; |
13 use File::Temp qw/ tempdir /; |
14 my $td = tempdir( CLEANUP => 1 ); |
14 my $td = tempdir( CLEANUP => 1 ); |
15 use File::Copy qw(copy); |
15 use File::Copy qw(copy); |
16 |
16 |
17 my $res = 1024; # Default output image dimensions |
17 my $res = 1024; # Default output image dimensions |
18 my $tiny = 0.01; |
18 my $tiny = 0.01; |
19 my $maxsize = 0.001; # max luminaire size after scaling |
19 my $maxsize = 0.001; # max luminaire size after scaling |
20 my $is_ies = 0; |
20 my $is_ies = 0; |
21 |
21 |
22 my $ies = "$td/dist.ies"; |
22 my $ies = "$td/dist.ies"; |
23 my $lumi = "$td/lumi.rad"; # Fitting as given on cmd line, or as generated by ies2rad |
23 my $lumi = "$td/lumi.rad"; # Fitting as given on cmd line, or as generated by ies2rad |
24 my $lumi2 = "$td/lumi2.rad"; # Fitting scaled to size |
24 my $lumi2 = "$td/lumi2.rad"; # Fitting scaled to size |
25 my $mat = "$td/lt.mat"; |
25 my $mat = "$td/lt.mat"; |