[panotools-cvs] SF.net SVN: panotools: [785] trunk/Panotools-Script/bin/qtvr2erect

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

Revision: 785
          http://panotools.svn.sourceforge.net/panotools/?rev=785&view=rev
Author:   brunopostle
Date:     2008-01-11 14:56:23 -0800 (Fri, 11 Jan 2008)

Log Message:
-----------
Remove use of deprecated Stitch() method

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

Modified: trunk/Panotools-Script/bin/qtvr2erect
===================================================================
--- trunk/Panotools-Script/bin/qtvr2erect	2008-01-11 22:46:42 UTC (rev 784)
+++ trunk/Panotools-Script/bin/qtvr2erect	2008-01-11 22:56:23 UTC (rev 785)
@@ -21,25 +21,27 @@
     my $erect = new Panotools::Script;
     $erect->Panorama->Set (h => int ($width * 1.5708),
                            w => 2 * int ($width * 1.5708),
-                           n => '"TIFF"', E => 0);
+                           n => '"TIFF c:DEFLATE"');
     $erect->Image->[0] = new Panotools::Script::Line::Image;
-    $erect->Image->[0]->Set (f => 0, w => $width, h => $height, v => 90, Eev => 0,
+    $erect->Image->[0]->Set (f => 0, w => $width, h => $height, v => 90,
                              r => 0, p => 0, y => 0, n => "\"$stubcube"."_0.pnm\"");
     $erect->Image->[1] = new Panotools::Script::Line::Image;
-    $erect->Image->[1]->Set (f => 0, w => $width, h => $height, v => 90, Eev => 0,
+    $erect->Image->[1]->Set (f => 0, w => $width, h => $height, v => 90,
                              r => 0, p => 0, y => 90, n => "\"$stubcube"."_1.pnm\"");
     $erect->Image->[2] = new Panotools::Script::Line::Image;
-    $erect->Image->[2]->Set (f => 0, w => $width, h => $height, v => 90, Eev => 0,
+    $erect->Image->[2]->Set (f => 0, w => $width, h => $height, v => 90,
                              r => 0, p => 0, y => 180, n => "\"$stubcube"."_2.pnm\"");
     $erect->Image->[3] = new Panotools::Script::Line::Image;
-    $erect->Image->[3]->Set (f => 0, w => $width, h => $height, v => 90, Eev => 0,
+    $erect->Image->[3]->Set (f => 0, w => $width, h => $height, v => 90,
                              r => 0, p => 0, y => -90, n => "\"$stubcube"."_3.pnm\"");
     $erect->Image->[4] = new Panotools::Script::Line::Image;
-    $erect->Image->[4]->Set (f => 0, w => $width, h => $height, v => 90, Eev => 0,
+    $erect->Image->[4]->Set (f => 0, w => $width, h => $height, v => 90,
                              r => 0, p => 90, y => 0, n => "\"$stubcube"."_4.pnm\"");
     $erect->Image->[5] = new Panotools::Script::Line::Image;
-    $erect->Image->[5]->Set (f => 0, w => $width, h => $height, v => 90, Eev => 0,
+    $erect->Image->[5]->Set (f => 0, w => $width, h => $height, v => 90,
                              r => 0, p => -90, y => 0, n => "\"$stubcube"."_5.pnm\"");
-    $erect->Stitch ("$mov.tif");
 
+    my $pto_temp = "$stubcube.qtvr2erect.$$.pto";
+    $erect->Write ($pto_temp);
+    system ('nona', '-o', "$mov.tif", $pto_temp);
 }


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