From: <bru...@us...> - 2007-04-15 21:31:56
|
Revision: 691 http://svn.sourceforge.net/panotools/?rev=691&view=rev Author: brunopostle Date: 2007-04-15 14:31:53 -0700 (Sun, 15 Apr 2007) Log Message: ----------- Use nona-mask Modified Paths: -------------- trunk/Panotools-Script/bin/pto2tiff Modified: trunk/Panotools-Script/bin/pto2tiff =================================================================== --- trunk/Panotools-Script/bin/pto2tiff 2007-04-13 23:13:21 UTC (rev 690) +++ trunk/Panotools-Script/bin/pto2tiff 2007-04-15 21:31:53 UTC (rev 691) @@ -15,7 +15,7 @@ use Panotools::Script; my $p = new Panotools::Script; - $p->{stitcher} = 'nona'; + $p->{stitcher} = 'nona-mask'; $p->Read ($pto); $p->{panorama}->Set (n => '"TIFF_m r:CROP c:DEFLATE"'); $p->Stitch ($stub .'_'); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-07-15 21:08:14
|
Revision: 712 http://svn.sourceforge.net/panotools/?rev=712&view=rev Author: brunopostle Date: 2007-07-15 14:08:10 -0700 (Sun, 15 Jul 2007) Log Message: ----------- Don't generate cropped tiff images Modified Paths: -------------- trunk/Panotools-Script/bin/pto2tiff Modified: trunk/Panotools-Script/bin/pto2tiff =================================================================== --- trunk/Panotools-Script/bin/pto2tiff 2007-07-13 22:13:38 UTC (rev 711) +++ trunk/Panotools-Script/bin/pto2tiff 2007-07-15 21:08:10 UTC (rev 712) @@ -17,7 +17,7 @@ my $p = new Panotools::Script; $p->{stitcher} = 'nona-mask'; $p->Read ($pto); - $p->Panorama->Set (n => '"TIFF_m r:CROP c:DEFLATE"'); + $p->Panorama->Set (n => '"TIFF_m c:DEFLATE"'); $p->Stitch ($stub .'_'); my $args = '-a -l 29'; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-07-19 21:36:13
|
Revision: 721 http://svn.sourceforge.net/panotools/?rev=721&view=rev Author: brunopostle Date: 2007-07-19 13:47:49 -0700 (Thu, 19 Jul 2007) Log Message: ----------- make more robust and portable probably Modified Paths: -------------- trunk/Panotools-Script/bin/pto2tiff Modified: trunk/Panotools-Script/bin/pto2tiff =================================================================== --- trunk/Panotools-Script/bin/pto2tiff 2007-07-18 22:26:15 UTC (rev 720) +++ trunk/Panotools-Script/bin/pto2tiff 2007-07-19 20:47:49 UTC (rev 721) @@ -20,11 +20,17 @@ $p->Panorama->Set (n => '"TIFF_m c:DEFLATE"'); $p->Stitch ($stub .'_'); + my @temp_files; + for my $index (0 .. scalar @{$p->{image}} - 1) + { + push @temp_files, ($stub .'_'. sprintf ('%.4d', $index) .'.tif'); + } + my $args = '-a'; $args .= ' -w' if $p->Panorama->{v} == 360; - `enblend-mask $args -o $stub.tif $stub\_????.tif`; - `convert $stub.tif $stub.jpg`; + system ('enblend-mask', $args, '-o', "$stub.tif", @temp_files); + system ('convert', "$stub.tif", "$stub.jpg"); print STDERR "Done: $stub.tif\n"; } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-07-26 21:55:32
|
Revision: 727 http://panotools.svn.sourceforge.net/panotools/?rev=727&view=rev Author: brunopostle Date: 2007-07-26 14:55:35 -0700 (Thu, 26 Jul 2007) Log Message: ----------- Fix for previous portability fixes Modified Paths: -------------- trunk/Panotools-Script/bin/pto2tiff Modified: trunk/Panotools-Script/bin/pto2tiff =================================================================== --- trunk/Panotools-Script/bin/pto2tiff 2007-07-26 20:54:55 UTC (rev 726) +++ trunk/Panotools-Script/bin/pto2tiff 2007-07-26 21:55:35 UTC (rev 727) @@ -26,10 +26,10 @@ push @temp_files, ($stub .'_'. sprintf ('%.4d', $index) .'.tif'); } - my $args = '-a'; - $args .= ' -w' if $p->Panorama->{v} == 360; + my @args = ('-a'); + push @args ,'-w' if $p->Panorama->{v} == 360; - system ('enblend-mask', $args, '-o', "$stub.tif", @temp_files); + system ('enblend-mask', @args, '-o', "$stub.tif", @temp_files); system ('convert', "$stub.tif", "$stub.jpg"); print STDERR "Done: $stub.tif\n"; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-12-24 23:19:15
|
Revision: 756 http://panotools.svn.sourceforge.net/panotools/?rev=756&view=rev Author: brunopostle Date: 2007-12-24 15:19:14 -0800 (Mon, 24 Dec 2007) Log Message: ----------- Use same multiple TIFF filename format as hugin Makefile Modified Paths: -------------- trunk/Panotools-Script/bin/pto2tiff Modified: trunk/Panotools-Script/bin/pto2tiff =================================================================== --- trunk/Panotools-Script/bin/pto2tiff 2007-12-23 00:52:55 UTC (rev 755) +++ trunk/Panotools-Script/bin/pto2tiff 2007-12-24 23:19:14 UTC (rev 756) @@ -18,12 +18,12 @@ $p->{stitcher} = 'nona-mask'; $p->Read ($pto); $p->Panorama->Set (n => '"TIFF_m c:DEFLATE"'); - $p->Stitch ($stub .'_'); + $p->Stitch ($stub); my @temp_files; for my $index (0 .. scalar @{$p->{image}} - 1) { - push @temp_files, ($stub .'_'. sprintf ('%.4d', $index) .'.tif'); + push @temp_files, ($stub . sprintf ('%.4d', $index) .'.tif'); } my @args = ('-a'); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2008-01-05 23:42:42
|
Revision: 780 http://panotools.svn.sourceforge.net/panotools/?rev=780&view=rev Author: brunopostle Date: 2008-01-05 15:42:44 -0800 (Sat, 05 Jan 2008) Log Message: ----------- Rewrite without Stitch() method, still doesn't do anything hugin_stitch_project doesn't do Modified Paths: -------------- trunk/Panotools-Script/bin/pto2tiff Modified: trunk/Panotools-Script/bin/pto2tiff =================================================================== --- trunk/Panotools-Script/bin/pto2tiff 2008-01-05 05:11:56 UTC (rev 779) +++ trunk/Panotools-Script/bin/pto2tiff 2008-01-05 23:42:44 UTC (rev 780) @@ -15,21 +15,33 @@ use Panotools::Script; my $p = new Panotools::Script; - $p->{stitcher} = 'nona-mask'; $p->Read ($pto); - $p->Panorama->Set (n => '"TIFF_m c:DEFLATE"'); - $p->Stitch ($stub); - - my @temp_files; - for my $index (0 .. scalar @{$p->{image}} - 1) + if (scalar @{$p->{image}} == 1) { - push @temp_files, ($stub . sprintf ('%.4d', $index) .'.tif'); + $p->Panorama->Set (n => '"TIFF c:DEFLATE"'); } + else + { + $p->Panorama->Set (n => '"TIFF_m c:DEFLATE"'); + } + my $pto_temp = "$stub.pto2tiff.$$.pto"; + $p->Write ($pto_temp); + system ('nona-mask', '-o', $stub, $pto_temp); + unlink $pto_temp; - my @args = ('-a'); - push @args ,'-w' if $p->Panorama->{v} == 360; + if (scalar @{$p->{image}} > 1) + { + my @temp_files; + for my $index (0 .. scalar @{$p->{image}} - 1) + { + push @temp_files, ($stub . sprintf ('%.4d', $index) .'.tif'); + } - system ('enblend-mask', @args, '-o', "$stub.tif", @temp_files); + my @args; + push @args ,'-w' if $p->Panorama->{v} == 360; + + system ('enblend-mask', @args, '-o', "$stub.tif", @temp_files); + } system ('convert', "$stub.tif", "$stub.jpg"); print STDERR "Done: $stub.tif\n"; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |