[panotools-cvs] SF.net SVN: panotools: [845] trunk/Panotools-Script/bin/match-n-shift

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

Revision: 845
          http://panotools.svn.sourceforge.net/panotools/?rev=845&view=rev
Author:   brunopostle
Date:     2008-06-08 14:49:52 -0700 (Sun, 08 Jun 2008)

Log Message:
-----------
Link photometric parameters in final project file

Modified Paths:
--------------
    trunk/Panotools-Script/bin/match-n-shift

Modified: trunk/Panotools-Script/bin/match-n-shift
===================================================================
--- trunk/Panotools-Script/bin/match-n-shift	2008-06-03 22:50:49 UTC (rev 844)
+++ trunk/Panotools-Script/bin/match-n-shift	2008-06-08 21:49:52 UTC (rev 845)
@@ -189,9 +189,11 @@
     $image->{n} = '"'. $paths_input[$index] .'"';
     ($image->{w}, $image->{h}) = imgsize (File::Spec->rel2abs ($paths_input[$index]));
     $image->{S} = $crop_s if defined $crop_s;
-    $image->{v} = '=0' if $index > 0;
-    $image->{d} = '=0' if $index > 0;
-    $image->{e} = '=0' if $index > 0;
+    # link all lens parameters
+    $image->Set (v => '=0', d => '=0', e => '=0',
+        Ra => '=0', Rb => '=0', Rc => '=0', Rd => '=0', Re => '=0',
+        Va => '=0', Vb => '=0', Vc => '=0', Vd => '=0', Vx => '=0', Vy => '=0')
+            if ($index > 0);
     $index++;
 }
 


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