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

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

Revision: 1143
          http://panotools.svn.sourceforge.net/panotools/?rev=1143&view=rev
Author:   brunopostle
Date:     2009-11-09 21:34:35 +0000 (Mon, 09 Nov 2009)

Log Message:
-----------
Fix tif2svg --jpeg-proxies option (Thomas Modes)

Modified Paths:
--------------
    trunk/Panotools-Script/bin/enblend-svg
    trunk/Panotools-Script/bin/tif2svg

Modified: trunk/Panotools-Script/bin/enblend-svg
===================================================================
--- trunk/Panotools-Script/bin/enblend-svg	2009-11-09 21:20:43 UTC (rev 1142)
+++ trunk/Panotools-Script/bin/enblend-svg	2009-11-09 21:34:35 UTC (rev 1143)
@@ -39,6 +39,8 @@
     $xml =~ s/style=".*?"/style="fill:#00FF00"/g;
     $xml =~ s/xlink:href="(.*?)"//;
     my $image = $1;
+    # if image is JPEG then it must be a proxy generated by tif2svg
+    $image =~ s/\.jpg$/.tif/;
     push @files, $image;
     $image =~ s/\.[^.[:space:]]+$/_mask.tif/;
 

Modified: trunk/Panotools-Script/bin/tif2svg
===================================================================
--- trunk/Panotools-Script/bin/tif2svg	2009-11-09 21:20:43 UTC (rev 1142)
+++ trunk/Panotools-Script/bin/tif2svg	2009-11-09 21:34:35 UTC (rev 1143)
@@ -66,7 +66,7 @@
     {
         my $tif = $file;
         $file =~ s/\.tif/\.jpg/;
-        system ('convert', $tif, $file);
+        system ('convert', '-geometry', '25%', $tif, $file);
     }
     $file =~ s/.*(\/|\\)//;
     print SVG qq|


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