--- a/bin/gigatile
+++ b/bin/gigatile
@@ -27,6 +27,8 @@
 
 my $pto = new Panotools::Script;
 $pto->Read ($path_input);
+
+$pto->{panorama}->{S} = join (',', '0', $pto->{panorama}->{w}, '0', $pto->{panorama}->{h}) unless defined $pto->{panorama}->{S};
 
 for my $image (@{$pto->Image})
 {