From: <bru...@us...> - 2007-05-09 20:59:55
|
Revision: 704 http://svn.sourceforge.net/panotools/?rev=704&view=rev Author: brunopostle Date: 2007-05-09 13:59:56 -0700 (Wed, 09 May 2007) Log Message: ----------- erect2qtvr quote --outfile Modified Paths: -------------- trunk/Panotools-Script/bin/erect2qtvr Modified: trunk/Panotools-Script/bin/erect2qtvr =================================================================== --- trunk/Panotools-Script/bin/erect2qtvr 2007-05-09 08:26:36 UTC (rev 703) +++ trunk/Panotools-Script/bin/erect2qtvr 2007-05-09 20:59:56 UTC (rev 704) @@ -149,7 +149,7 @@ $outfile = "$stub.mov" unless (defined $outfile); -`jpeg2qtvr $qtvr_opts --prefix=$prefix- --preview=$prefix-preview- --outfile=$outfile`; +`jpeg2qtvr $qtvr_opts --prefix=$prefix- --preview=$prefix-preview- --outfile="$outfile"`; __END__ 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:16:15
|
Revision: 722 http://svn.sourceforge.net/panotools/?rev=722&view=rev Author: brunopostle Date: 2007-07-19 14:16:18 -0700 (Thu, 19 Jul 2007) Log Message: ----------- Improve portability and fix/add bugs Modified Paths: -------------- trunk/Panotools-Script/bin/erect2qtvr Modified: trunk/Panotools-Script/bin/erect2qtvr =================================================================== --- trunk/Panotools-Script/bin/erect2qtvr 2007-07-19 20:47:49 UTC (rev 721) +++ trunk/Panotools-Script/bin/erect2qtvr 2007-07-19 21:16:18 UTC (rev 722) @@ -9,13 +9,13 @@ my $opts = {}; -my $qtvr_opts = ''; +my @qtvr_opts = (); while (@ARGV) { my ($key, $value) = split ('=', shift); $opts->{$key} = $value; - $qtvr_opts .= $key .'='. quotemeta ($value) .' '; + push @qtvr_opts, ($key .'='. $value); } my $cleanup = $opts->{'--cleanup'} || 1; @@ -149,7 +149,7 @@ $outfile = "$stub.mov" unless (defined $outfile); -`jpeg2qtvr $qtvr_opts --prefix=$prefix- --preview=$prefix-preview- --outfile="$outfile"`; +system ('jpeg2qtvr', @qtvr_opts, "--prefix=$prefix-", "--preview=$prefix-preview-", "--outfile=$outfile"); __END__ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-11-18 19:36:26
|
Revision: 743 http://panotools.svn.sourceforge.net/panotools/?rev=743&view=rev Author: brunopostle Date: 2007-11-18 11:36:27 -0800 (Sun, 18 Nov 2007) Log Message: ----------- Fix --cleanup option Modified Paths: -------------- trunk/Panotools-Script/bin/erect2qtvr Modified: trunk/Panotools-Script/bin/erect2qtvr =================================================================== --- trunk/Panotools-Script/bin/erect2qtvr 2007-10-21 09:47:20 UTC (rev 742) +++ trunk/Panotools-Script/bin/erect2qtvr 2007-11-18 19:36:27 UTC (rev 743) @@ -19,7 +19,7 @@ push @qtvr_opts, ($key .'='. $value); } -my $cleanup = 1; $cleanup = 0 if ($opts->{'--cleanup'} == 0); +my $cleanup = 1; $cleanup = 0 if (defined $opts->{'--cleanup'} and $opts->{'--cleanup'} == 0); my $quality = $opts->{'--quality'} || 70; my $pitch = $opts->{'--pitch'} || 0; my $yaw = $opts->{'--yaw'} || 0; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2007-12-23 00:52:53
|
Revision: 755 http://panotools.svn.sourceforge.net/panotools/?rev=755&view=rev Author: brunopostle Date: 2007-12-22 16:52:55 -0800 (Sat, 22 Dec 2007) Log Message: ----------- workaround JPEG bug in nona Modified Paths: -------------- trunk/Panotools-Script/bin/erect2qtvr Modified: trunk/Panotools-Script/bin/erect2qtvr =================================================================== --- trunk/Panotools-Script/bin/erect2qtvr 2007-12-22 00:49:07 UTC (rev 754) +++ trunk/Panotools-Script/bin/erect2qtvr 2007-12-23 00:52:55 UTC (rev 755) @@ -128,15 +128,15 @@ $scratch->Transform (0, 180, 0); $scratch->Stitch ("$prefix-preview-5.tif"); -$scratch->Panorama->Set (v => 90, f => 0, w => 256, h => 256, n => '"JPEG"'); +$scratch->Panorama->Set (v => 90, f => 0, w => 256, h => 256, n => '"TIFF"'); for my $index (0 .. 5) { # generate JPEG preview cubefaces system ('mogrify', '-geometry', '32x32', "$prefix-preview-$index.tif"); $scratch->Image->[0]->Set (w => 32, h => 32, v => 100, f => 3, r => 0, p => 0, y => 0, n => "\"$prefix-preview-$index.tif\""); - $scratch->Stitch ("$prefix-preview-$index.jpg"); - system ('mogrify', '-quality', $quality, "$prefix-preview-$index.jpg"); + $scratch->Stitch ("$prefix-preview-$index.tif"); + system ('convert', '-quality', $quality, "$prefix-preview-$index.tif", "$prefix-preview-$index.jpg"); } print "Tempdir: $tempdir\n" unless $cleanup; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2008-01-12 00:51:15
|
Revision: 786 http://panotools.svn.sourceforge.net/panotools/?rev=786&view=rev Author: brunopostle Date: 2008-01-11 16:51:20 -0800 (Fri, 11 Jan 2008) Log Message: ----------- Hack out some more Stitch() calls Modified Paths: -------------- trunk/Panotools-Script/bin/erect2qtvr Modified: trunk/Panotools-Script/bin/erect2qtvr =================================================================== --- trunk/Panotools-Script/bin/erect2qtvr 2008-01-11 22:56:23 UTC (rev 785) +++ trunk/Panotools-Script/bin/erect2qtvr 2008-01-12 00:51:20 UTC (rev 786) @@ -63,87 +63,54 @@ my $prefix = File::Spec->catfile ($tempdir, 'cube'); -# get the width and height of the input image +my $pto_temp = "$erect.erectqtvr.$$.pto"; +system ('erect2cubic', "--erect=$erect", "--ptofile=$pto_temp", "--filespec=TIFF_m", "--pitch=$pitch", "--yaw=$yaw"); +system ('nona', '-m', 'TIFF_m', '-p', 'UINT8', '-o', $prefix, $pto_temp); + +# get the width and height of the input image my ($width, $height) = imgsize ($erect); # calculate an 'ideal' cubeface size - my $face = 8 * int (int ($width / 3.1416) / 8); # generate JPEG cubefaces -my $scratch = new Panotools::Script; -$scratch->Panorama->Set (v => 90, f => 0, u => 0, w => $face, h => $face, n => '"TIFF"'); - -$scratch->{stitcher} = 'nona'; - -$scratch->Image->[0] = new Panotools::Script::Line::Image; - -$scratch->Image->[0]->Set (w => $width, h => $height, v => 360, f => 4, r => 0, p => $pitch, y => $yaw, n => "\"$erect\""); - -$scratch->Stitch ("$prefix-0.tif"); - -$scratch->Transform (0, 0, -90); -$scratch->Stitch ("$prefix-1.tif"); - -$scratch->Transform (0, 0, -90); -$scratch->Stitch ("$prefix-2.tif"); - -$scratch->Transform (0, 0, -90); -$scratch->Stitch ("$prefix-3.tif"); - -$scratch->Transform (0, 0, -90); -$scratch->Transform (0, -90, 0); -$scratch->Stitch ("$prefix-4.tif"); - -$scratch->Transform (0, 180, 0); -$scratch->Stitch ("$prefix-5.tif"); - for my $index (0 .. 5) { - system ('convert', '-quality', $quality, "$prefix-$index.tif", "$prefix-$index.jpg"); + system ('convert', '-quality', $quality, $prefix."000$index.tif", $prefix."000$index.jpg"); } # fisheye cubefaces for preview track +my $scratch = new Panotools::Script; +$scratch->Read ($pto_temp); $scratch->Panorama->Set (v => 100, f => 3); +$scratch->Write ($pto_temp); -$scratch->Image->[0]->Set (r => 0, p => $pitch, y => $yaw); -$scratch->Stitch ("$prefix-preview-0.tif"); +system ('nona', '-m', 'TIFF_m', '-p', 'UINT8', '-o', "$prefix-preview", $pto_temp); -$scratch->Transform (0, 0, -90); -$scratch->Stitch ("$prefix-preview-1.tif"); +unlink $pto_temp; -$scratch->Transform (0, 0, -90); -$scratch->Stitch ("$prefix-preview-2.tif"); - -$scratch->Transform (0, 0, -90); -$scratch->Stitch ("$prefix-preview-3.tif"); - -$scratch->Transform (0, 0, -90); -$scratch->Transform (0, -90, 0); -$scratch->Stitch ("$prefix-preview-4.tif"); - -$scratch->Transform (0, 180, 0); -$scratch->Stitch ("$prefix-preview-5.tif"); - +$scratch = new Panotools::Script; $scratch->Panorama->Set (v => 90, f => 0, w => 256, h => 256, n => '"TIFF"'); +$scratch->{stitcher} = 'nona'; +$scratch->Image->[0] = new Panotools::Script::Line::Image; for my $index (0 .. 5) { # generate JPEG preview cubefaces - system ('mogrify', '-geometry', '32x32', "$prefix-preview-$index.tif"); - $scratch->Image->[0]->Set (w => 32, h => 32, v => 100, f => 3, r => 0, p => 0, y => 0, n => "\"$prefix-preview-$index.tif\""); - $scratch->Stitch ("$prefix-preview-$index.tif"); - system ('convert', '-quality', $quality, "$prefix-preview-$index.tif", "$prefix-preview-$index.jpg"); + system ('mogrify', '-geometry', '32x32', "$prefix-preview000$index.tif"); + $scratch->Image->[0]->Set (w => 32, h => 32, v => 100, f => 3, r => 0, p => 0, y => 0, n => "\"$prefix-preview000$index.tif\""); + $scratch->Stitch ("$prefix-preview000$index.tif"); + system ('convert', '-quality', $quality, "$prefix-preview000$index.tif", "$prefix-preview000$index.jpg"); } print "Tempdir: $tempdir\n" unless $cleanup; $outfile = "$stub.mov" unless (defined $outfile); -system ('jpeg2qtvr', @qtvr_opts, "--prefix=$prefix-", "--preview=$prefix-preview-", "--outfile=$outfile"); +system ('jpeg2qtvr', @qtvr_opts, "--prefix=$prefix"."000", "--preview=$prefix-preview000", "--outfile=$outfile"); __END__ This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <bru...@us...> - 2008-05-15 21:56:14
|
Revision: 843 http://panotools.svn.sourceforge.net/panotools/?rev=843&view=rev Author: brunopostle Date: 2008-05-15 14:56:21 -0700 (Thu, 15 May 2008) Log Message: ----------- Remove unnecessary nona -m and -p parameters Modified Paths: -------------- trunk/Panotools-Script/bin/erect2qtvr Modified: trunk/Panotools-Script/bin/erect2qtvr =================================================================== --- trunk/Panotools-Script/bin/erect2qtvr 2008-05-15 18:29:29 UTC (rev 842) +++ trunk/Panotools-Script/bin/erect2qtvr 2008-05-15 21:56:21 UTC (rev 843) @@ -66,7 +66,7 @@ my $pto_temp = "$stub.erect2qtvr.$$.pto"; system ('erect2cubic', "--erect=$erect", "--ptofile=$pto_temp", "--filespec=TIFF_m", "--pitch=$pitch", "--yaw=$yaw"); -system ('nona', '-m', 'TIFF_m', '-p', 'UINT8', '-o', "$prefix-face", $pto_temp); +system ('nona', '-o', "$prefix-face", $pto_temp); # generate JPEG cubefaces for my $index (0 .. 5) @@ -81,7 +81,7 @@ $scratch->Panorama->Set (v => 100, f => 3); $scratch->Write ($pto_temp); -system ('nona', '-m', 'TIFF_m', '-p', 'UINT8', '-o', "$prefix-preview", $pto_temp); +system ('nona', '-o', "$prefix-preview", $pto_temp); unlink $pto_temp; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |