# HG changeset patch
# User Axel Jacobs <axel@jaloxa.eu>
# Date 1391118861 0
# Node ID e00e7d28865e0ededec0b5a4e36e49f3de1fc12e
# Parent  be2807ee718339a271efcb988874348a5c4e5660
ltpict: Change default scale factor.

diff -r be2807ee7183 -r e00e7d28865e bin/ltpict.pl
--- a/bin/ltpict.pl	Sun Jan 05 20:43:49 2014 +0000
+++ b/bin/ltpict.pl	Thu Jan 30 21:54:21 2014 +0000
@@ -20,9 +20,12 @@
 my $xres = 600;
 my $yres = 600;
 my $tiny = 0.01;
+my $is_ies = 0;
 my $rpict_cmd = "rpict -ab 0 -ds 0 -dv -av 0 0 0 -x $xres -y $yres";
 my $pfilt_cmd = "pfilt -r .6 -x /2 -y /2";
 
+my $ies = "$td/dist.ies";
+my $fittings = "$td/fitting.rad";
 my $material = "$td/lt.mat";
 my $testroom1 = "$td/testroom1.rad";
 my $testroom2 = "$td/testroom2.rad";
@@ -33,6 +36,11 @@
 my $octree3 = "$td/lt3.oct";
 my $octree4 = "$td/lt4.oct";
 
+# Parse command line arguments
+if ("$ARGV[0]" eq '-i') {    # File is an IES file, not Radiance luminaire
+	$is_ies = 1;
+	shift @ARGV;
+}
 # We need at least one Radiance file or a scene on STDIN (but not both)
 if ($#ARGV < 0) {
 	open(FH, ">$td/stdin.rad") or 
@@ -62,7 +70,7 @@
 my $ytrans = -1.0 * ($dims[2] + $dims[3]) / 2;
 my $ztrans = -1.0 * ($dims[4] + $dims[5]) / 2;
 # Scale so that largest object dimension is unity
-my $scale = 1 / $size;
+my $scale = 0.001 / $size;
 
 my $fitting = "$td/fitting.rad";
 open(FH, ">$fitting") or