csh2perl: bin/ltview.pl@79e0315f3ba1 (annotated)

38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	1	#!/usr/bin/perl
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	2	#
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	3	# Make an interactive preview of a luminaire
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	4	#
44 c8df2d579470 ltview: working and tested on LINUX and Vista Axel Jacobs <axel@jaloxa.eu> parents: 38 diff changeset	5	# This script is based on Radiance's objview.pl plus
c8df2d579470 ltview: working and tested on LINUX and Vista Axel Jacobs <axel@jaloxa.eu> parents: 38 diff changeset	6	# Rob Guglielmetti's ltview extension to his objview.rb
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	7	#
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	8	# Written by Axel Jacobs <axel@jaloxa.eu>
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	9
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	10	use strict;
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	11	use warnings;
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	12	use Math::Trig;
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	13	use File::Temp qw/ tempdir /;
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	14
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	15	my $td = tempdir( CLEANUP => 1 );
4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	16	my $oct = "$td/ltview.oct";
4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	17	my $room = "$td/room.rad";
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	18	my $box; # Overall box dimensions
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	19	my $rif = "$td/ltview.rif";
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	20	my $lumi = "$td/lumi.rad"; # Fitting as given on cmd line, or generated by ies2rad
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	21	my $lumi2 = "$td/lumi2.rad"; # Fitting centred at origin
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	22	my $raddev = "x11"; # Default output device. Overwrite with -o
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	23	my $is_ies = 0; # Input file is IES photometry, not a Radiance luminaire
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	24
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	25	while (@ARGV) {
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	26	$_ = $ARGV[0];
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	27	if (m/-i/) {
4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	28	$is_ies = 1;
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	29	} elsif (m/-o/) { # output device (rvu -devices)
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	30	$raddev = $ARGV[1];
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	31	shift @ARGV;
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	32	} elsif (m/-b/) {
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	33	$box = $ARGV[1]; # Box dimensions
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	34	shift @ARGV;
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	35	} elsif (m/^-\w/) {
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	36	die("ltview: Bad option: '$_'\n");
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	37	} else {
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	38	last;
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	39	}
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	40	shift @ARGV;
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	41	}
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	42
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	43	# We need exactly one Radiance luminaires or IES file
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	44	if (! $#ARGV == 0) {
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	45	die("ltview: Need one Radiance luminaire or IES file.\n");
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	46	} elsif ($is_ies == 0) {
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	47	# Input file is a Radiance luminaire
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	48	$lumi = $ARGV[0];
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	49	} else {
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	50	# Input file is IES photometry
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	51	system qq[ ies2rad -p $td -o lumi "$ARGV[0]" ];
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	52	}
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	53
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	54
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	55	# Work out centre of luminaire
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	56	my $dimstr = `getbbox -h "$lumi"`;
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	57	chomp $dimstr;
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	58	# Values returned by getbbox are indented and delimited with multiple spaces.
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	59	$dimstr =~ s/^\s+//; # remove leading spaces
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	60	my @dims = split(/\s+/, $dimstr); # convert to array
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	61
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	62	# Find largest axes-aligned luminaire dimension
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	63	# The box will be ten times as large, unless overwritten with -b option.
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	64	my @diffs = reverse sort { $a <=> $b } ($dims[1]-$dims[0], $dims[3]-$dims[2], $dims[5]-$dims[4]);
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	65	my $lsize = $diffs[0];
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	66
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	67	# Centre fitting at origin
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	68	my $xtrans = -1.0 * ($dims[0] + $dims[1]) / 2;
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	69	my $ytrans = -1.0 * ($dims[2] + $dims[3]) / 2;
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	70	my $ztrans = -1.0 * ($dims[4] + $dims[5]) / 2;
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	71	system qq[ xform -t $xtrans $ytrans $ztrans "$lumi" > $lumi2 ];
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	72
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	73
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	74	# Make the enclosing box
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	75	my $b2;
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	76	if (defined $box) {
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	77	# Room dimensions are giving explicitly.
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	78	$b2 = $box / 2;
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	79	} else {
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	80	# Box dimensions are ten times largest luminaire bbox dimensions.
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	81	$b2 = $lsize * 10.0 / 2.0;
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	82	}
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	83
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	84	open(FH, ">$room") or
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	85	die("ltview: Can't write to temporary file '$room'\n");
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	86	print FH <<EndOfRoom;
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	87	void plastic wall_mat 0 0 5 .2 .2 .2 0 0
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	88
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	89	# Don't generate -y face so we can look into the box
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	90	#wall_mat polygon box.1540 0 0 12 $b2 -$b2 -$b2 $b2 -$b2 $b2 -$b2 -$b2 $b2 -$b2 -$b2 -$b2
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	91	wall_mat polygon box.4620 0 0 12 -$b2 -$b2 $b2 -$b2 $b2 $b2 -$b2 $b2 -$b2 -$b2 -$b2 -$b2
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	92	wall_mat polygon box.2310 0 0 12 -$b2 $b2 -$b2 $b2 $b2 -$b2 $b2 -$b2 -$b2 -$b2 -$b2 -$b2
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	93	wall_mat polygon box.3267 0 0 12 $b2 $b2 -$b2 -$b2 $b2 -$b2 -$b2 $b2 $b2 $b2 $b2 $b2
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	94	wall_mat polygon box.5137 0 0 12 $b2 -$b2 $b2 $b2 -$b2 -$b2 $b2 $b2 -$b2 $b2 $b2 $b2
7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	95	wall_mat polygon box.6457 0 0 12 -$b2 $b2 $b2 -$b2 -$b2 $b2 $b2 -$b2 $b2 $b2 $b2 $b2
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	96	EndOfRoom
4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	97	close(FH);
44 c8df2d579470 ltview: working and tested on LINUX and Vista Axel Jacobs <axel@jaloxa.eu> parents: 38 diff changeset	98
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	99	my $scene = "$room $lumi2";
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	100	# Make this work under Windoze
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	101	if ( $^O =~ /MSWin32/ ) {
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	102	$scene =~ s{\\}{/}g;
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	103	$oct =~ s{\\}{/}g;
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	104	$raddev = "qt";
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	105	}
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	106
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	107	# Tweak scene bounding box so we get a nice view covering all of the box, without
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	108	# having a wasteful black border around it. Must work for arbitrary box dims.
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	109	my $zone = 1.1 * $b2 * ( 1 + 1/tan(22.5*pi/180) );
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	110
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	111	open(FH, ">$rif") or
66 7e56c36eb1ae ltview: IES input works now Axel Jacobs <axel@jaloxa.eu> parents: 61 diff changeset	112	die("ltview: Can't write to temporary file '$rif'\n");
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	113	print FH <<EndOfRif;
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	114	scene= $scene
61 4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	115	ZONE= Interior -$zone $zone -$zone $zone -$zone $zone
4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	116	UP= Z
4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	117	view= y
4f3a9f297a6a ltview: Big tidy-up Axel Jacobs <axel@jaloxa.eu> parents: 44 diff changeset	118	OCTREE= $oct
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	119	oconv= -f
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	120	render= -av 0 0 0
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	121	INDIRECT= 0
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	122	QUALITY= Med
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	123	DETAIL= Low
79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	124	VARIABILITY= Med
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	125	EndOfRif
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	126	close(FH);
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	127
69 79e0315f3ba1 ltview: Scale room, not fitting Axel Jacobs <axel@jaloxa.eu> parents: 66 diff changeset	128	exec "rad -o $raddev $rif";
38 a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	129
a21b69f32c77 ltview: WIP luminaire viewer based on objview.rb Axel Jacobs <axel@jaloxa.eu> parents: diff changeset	130	#EOF

author	Axel Jacobs <axel@jaloxa.eu>
	Mon, 14 Apr 2014 22:19:12 +0100
changeset 69	79e0315f3ba1
parent 66	7e56c36eb1ae
child 80	e97d9b1fb4f7
permissions	-rwxr-xr-x