[panotools-cvs] SF.net SVN: panotools:[1193] trunk/Panotools-Script/bin/ptovariable

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

Revision: 1193
          http://panotools.svn.sourceforge.net/panotools/?rev=1193&view=rev
Author:   brunopostle
Date:     2009-12-20 00:12:10 +0000 (Sun, 20 Dec 2009)

Log Message:
-----------
ptovariable lens variables were not set

Modified Paths:
--------------
    trunk/Panotools-Script/bin/ptovariable

Modified: trunk/Panotools-Script/bin/ptovariable
===================================================================
--- trunk/Panotools-Script/bin/ptovariable	2009-12-19 23:57:00 UTC (rev 1192)
+++ trunk/Panotools-Script/bin/ptovariable	2009-12-20 00:12:10 UTC (rev 1193)
@@ -48,28 +48,26 @@
 my $variable = $pto->Variable;
 
 # FIXME assumes image 0 is anchor
-my $anchor = $variable->{0};
+$variable->{0}->{v} = $view;
 
-$anchor->{v} = $view;
+$variable->{0}->{b} = $barrel;
 
-$anchor->{b} = $barrel;
+$variable->{0}->{d} = $centre;
+$variable->{0}->{e} = $centre;
 
-$anchor->{d} = $centre;
-$anchor->{e} = $centre;
+$variable->{0}->{Vb} = $vignetting;
+$variable->{0}->{Vc} = $vignetting;
+$variable->{0}->{Vd} = $vignetting;
 
-$anchor->{Vb} = $vignetting;
-$anchor->{Vc} = $vignetting;
-$anchor->{Vd} = $vignetting;
+$variable->{0}->{Vx} = $vignetting_centre;
+$variable->{0}->{Vy} = $vignetting_centre;
 
-$anchor->{Vx} = $vignetting_centre;
-$anchor->{Vy} = $vignetting_centre;
+$variable->{0}->{Ra} = $response;
+$variable->{0}->{Rb} = $response;
+$variable->{0}->{Rc} = $response;
+$variable->{0}->{Rd} = $response;
+$variable->{0}->{Re} = $response;
 
-$anchor->{Ra} = $response;
-$anchor->{Rb} = $response;
-$anchor->{Rc} = $response;
-$anchor->{Rd} = $response;
-$anchor->{Re} = $response;
-
 # FIXME assumes image 0 is anchor
 for my $index (1 .. scalar @{$pto->Image} -1)
 {


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