#!/usr/bin/perl
#Editor vim:syn=perl
use strict;
use warnings;
use Test::More 'no_plan';
use lib 'lib';
use File::Temp qw/ tempdir /;
use File::Spec;
my $tempdir = tempdir (CLEANUP => 1);
use Panotools::Script;
my $p = new Panotools::Script;
$p->Read ('t/data/cemetery/hugin.pto');
my $image = $p->Image->[1];
# image is 239x320
is ($image->W2, 119.5);
is ($image->a ($p), 0.0);
is ($image->b ($p), -0.0258324);
is ($image->c ($p), 0.0);
my $coor_1 = $image->_inv_radial ($p, [50,50]);
like ($coor_1->[0], '/^49.159907/');
like ($coor_1->[1], '/^49.159907/');
my $coor_2 = $image->_radial ($p, $coor_1);
like ($coor_2->[0], '/^49.99999/');
like ($coor_2->[1], '/^49.99999/');
my $vec = $image->To_Cartesian ($p, [119.5,160]);
$image->{r} = 0; $image->{p} = 90; $image->{y} = 0;
$vec = $image->To_Cartesian ($p, [119.5,160]);
my $distance = $p->Control->[0]->Distance ($p);