[panotools-cvs] SF.net SVN: panotools:[1049] trunk/Panotools-Script

[<bru...@us...>]

Revision: 1049
          http://panotools.svn.sourceforge.net/panotools/?rev=1049&view=rev
Author:   brunopostle
Date:     2009-09-16 18:14:47 +0000 (Wed, 16 Sep 2009)

Log Message:
-----------
support for i-line Tx, Ty, Tz & Ts 'tilt' parameters in libpano13-2.9.15

Modified Paths:
--------------
    trunk/Panotools-Script/Changes
    trunk/Panotools-Script/lib/Panotools/Script/Line/Image.pm

Modified: trunk/Panotools-Script/Changes
===================================================================
--- trunk/Panotools-Script/Changes	2009-09-16 17:52:00 UTC (rev 1048)
+++ trunk/Panotools-Script/Changes	2009-09-16 18:14:47 UTC (rev 1049)
@@ -1,6 +1,7 @@
 Revision history for Panotools::Script.
 
 0.24
+    - support for i-line Tx, Ty, Tz & Ts 'tilt' parameters in libpano13-2.9.15
 
 0.23
     - Add new projections to pod documentation and ptoinfo output

Modified: trunk/Panotools-Script/lib/Panotools/Script/Line/Image.pm
===================================================================
--- trunk/Panotools-Script/lib/Panotools/Script/Line/Image.pm	2009-09-16 17:52:00 UTC (rev 1048)
+++ trunk/Panotools-Script/lib/Panotools/Script/Line/Image.pm	2009-09-16 18:14:47 UTC (rev 1049)
@@ -62,6 +62,9 @@
   Rd
   Re
 
+  Tx,Ty,Tz     Tilt on x axis, y axis, z axis
+  Ts           Scaling of field of view in the tilt transformation
+
   Vm           vignetting correction mode (default 0):
                    0: no vignetting correction
                    1: radial vignetting correction (see j,k,l,o options)
@@ -113,9 +116,9 @@
     my $self = shift;
 }
 
-sub _valid { return '^([abcdefghjnprtvwy]|[SCXYZ]|K[0-2][ab]|V[abcdfmxy]|Eev|E[rb]|R[abcde])(.*)' }
+sub _valid { return '^([abcdefghjnprtvwy]|[SCXYZ]|K[0-2][ab]|V[abcdfmxy]|Eev|E[rb]|T[xyzs]|R[abcde])(.*)' }
 
-sub _valid_ptoptimizer { return '^([abcdefghnprtvwySC])(.*)' }
+sub _valid_ptoptimizer { return '^([abcdefghnprtvwySC]|T[xyzs])(.*)' }
 
 sub _sanitise_ptoptimizer
 {
@@ -207,6 +210,7 @@
     push @report, ['Format', $format];
     push @report, ['Horizontal Field of View', $self->{v}];
     push @report, ['Roll Pitch Yaw', $self->{r} .','. $self->{p} .','. $self->{y}];
+    push @report, ['Tilt', $self->{Tx} .','. $self->{Ty} .','. $self->{Tz} .','. $self->{Ts}] if defined $self->{Ts};
     push @report, ['Lens distortion', $self->{a} .','. $self->{b} .','. $self->{c}] if defined $self->{a};
     push @report, ['Image centre', $self->{d} .','. $self->{e}] if defined $self->{d};
     push @report, ['Image shear', $self->{g} .','. $self->{t}] if defined $self->{g};


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.