Diff of /bin/transform-pano [000000] .. [b69cf9]  Maximize  Restore

  Switch to unified view

a b/bin/transform-pano
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
use File::Spec;
6
use Panotools::Script;
7
8
die "Usage: $0 <roll> <pitch> <yaw> <input.pto> <output.pto>" unless @ARGV == 5;
9
my ($roll, $pitch, $yaw, $input, $output) = @ARGV;
10
11
my $pano = new Panotools::Script;
12
$pano->Read ($input);
13
$pano->Transform ($roll, $pitch, $yaw);
14
$pano->Write ($output);
15

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

Sign up for the SourceForge newsletter:





No, thanks