From: <bru...@us...> - 2008-01-05 00:39:09
|
Revision: 774 http://panotools.svn.sourceforge.net/panotools/?rev=774&view=rev Author: brunopostle Date: 2008-01-04 16:39:12 -0800 (Fri, 04 Jan 2008) Log Message: ----------- Remove Optimise() method Modified Paths: -------------- trunk/Panotools-Script/lib/Panotools/Script.pm Modified: trunk/Panotools-Script/lib/Panotools/Script.pm =================================================================== --- trunk/Panotools-Script/lib/Panotools/Script.pm 2008-01-05 00:38:29 UTC (rev 773) +++ trunk/Panotools-Script/lib/Panotools/Script.pm 2008-01-05 00:39:12 UTC (rev 774) @@ -243,47 +243,6 @@ $self->{controlmorph}; } -# deprecated Optimise() method - -sub Optimise -{ - my $self = shift; - $self->Image2Output; - my $tempdir = tempdir (CLEANUP => $CLEANUP); - my $tempfile = File::Spec->catfile ($tempdir, 'optimise.txt'); - my $outfile = File::Spec->catfile ($tempdir, 'outfile.txt'); - my $clone = $self->Clone; - for my $image (@{$clone->Image}) - { - $image->_sanitise_ptoptimizer; - } - $clone->Write ($tempfile); - my $try = new Panotools::Script; - if ($self->{optimiser} =~ /autooptimiser/) - { - system ($self->{optimiser}, '-p', '-o', $outfile, $tempfile); - return 0 unless ($? == 0); - $try->Read ($outfile) || return 0; - $try->Image2Output; - } - else - { - system ($self->{optimiser}, $tempfile); - return 0 unless ($? == 0); - $try->Read ($tempfile) || return 0; - } - for my $index (0 .. scalar (@{$try->Output}) - 1) - { - for my $key (keys %{$try->Output->[$index]}) - { - my $value = $try->Output->[$index]->{$key}; - $self->Output->[$index]->Set ($key => $value); - } - } - $self->Output2Image; - return 1; -} - =pod Rotate transform all the images in a project, angles in degrees: This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |