#!/usr/bin/perl -w

use strict;
use warnings;
use File::Temp qw/ tempdir /;
use File::Basename;

#my $td = tempdir( CLEANUP => 0 );
my $td = "/tmp/objline";
mkdir $td;
#print "Temdir: $td\n";
my @rad = ();
my @prllmgf = ();
my @oblqmgf = ();

#my $name;
#my $path;
#my $extn;
my $fn = "";

my $oblqxf = "-rz 45 -ry 45";

if ($#ARGV < 0) {
	# Input is from STDIN: Capture to file
	open(FH, ">$td/stdin.rad");
	while (<>) {
		print FH;
	}
	close FH;
	# Pretend stdin.rad was passed as a filename
	@ARGV = ("$td/stdin.rad");
}

foreach (@ARGV) {
	my ($name, $path, $extn) = fileparse($_);
	$fn = $name.$extn;
	push(@rad, "$td/$fn.orig");
	push(@prllmgf, "$td/$fn.orig.mgf");
	push(@oblqmgf, "$td/$fn.oblq.mgf");

	# Make sure in-line commands such as !genbox are expanded
	system "xform -c $_ > $td/$fn.orig";
	system "rad2mgf $td/$fn.orig > $td/$fn.orig.mgf";

	open (FH, ">$td/$fn.oblq.mgf");
	print FH "i $fn.orig.mgf $oblqxf > $td/$fn.oblq.mgf\n";
	close (FH);
}

my $rce = '\'xm=($1+$2)/2;ym=($3+$4)/2;zm=($5+$6)/2';
$rce .= ';max(a,b):if(a-b,a,b);r=max(max($2-$1,$4-$3),$6-$5)*.52';
$rce .= ';$1=xm-r;$2=xm+r;$3=ym-r;$4=ym+r;$5=zm-r;$6=zm+r\'';

my $rads = join(' ', @rad);
my $prlldim = `getbbox -h $rads |rcalc -t' ' -e $rce`;
chomp($prlldim);
print "prlldim: $prlldim\n";
my $oblqdim = `xform $oblqxf $rads |getbbox -h|rcalc -t' ' -e $rce`;
chomp($oblqdim);
print "oblqdim: $oblqdim\n";

my $prlls = join(' ', @prllmgf); #!!!
print "prlls: $prlls\n";
my $oblqs = join(' ', @oblqmgf);
my $cmd;
foreach ('x', 'y', 'z') {
	$cmd = "mgf2meta -t .005 $_ " . $prlldim . ' ' . $prlls . " >$td/$_.mta";
	#system "mgf2meta -t .005 $_ $prlldim $prlls >$td/$_.mta";
	system "$cmd";
}
$cmd = "mgf2meta -t .005 x " . $oblqdim . ' ' . $oblqs . " >$td/o.mta";
system "$cmd";

system("plot4", "$td/x.mta", "$td/y.mta", "$td/z.mta", "$td/o.mta");

#EOF