[b69cf9]: bin / transform-pano  Maximize  Restore  History

Download this file

16 lines (11 with data), 337 Bytes

#!/usr/bin/perl

use strict;
use warnings;
use File::Spec;
use Panotools::Script;

die "Usage: $0 <roll> <pitch> <yaw> <input.pto> <output.pto>" unless @ARGV == 5;
my ($roll, $pitch, $yaw, $input, $output) = @ARGV;

my $pano = new Panotools::Script;
$pano->Read ($input);
$pano->Transform ($roll, $pitch, $yaw);
$pano->Write ($output);

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks