avoid a possible sign-extension for offsets/sizes in SGI

[imager.git] / samples / anaglyph.pl

diff --git a/samples/anaglyph.pl b/samples/anaglyph.pl
index 1e3f704045e16033db77a1f989303e6153b313be..a51d7e241001a9c14c2223d54fb7876704bf99a0 100644 (file)
--- a/samples/anaglyph.pl
+++ b/samples/anaglyph.pl
@@ -46,7 +46,7 @@ else {
   $out = anaglyph_images($left, $right);
 }
 
-$out->write(file=>$out_name)
+$out->write(file=>$out_name, jpegquality => 100)
   or die "Cannot write $out_name: ", $out->errstr, "\n";
 
 sub usage {
@@ -104,7 +104,6 @@ EXPR
   return Imager::transform2({ rpnexpr=>$expr }, $left, $right);
 }
 
-
 =head1 NAME
 
 =for stopwords anaglyph anaglyph.pl
@@ -132,16 +131,20 @@ anaglyph.pl - create a anaglyph from the source images
 =head1 DESCRIPTION
 
 
-See http://www.3dexpo.com/anaglyph.htm for an example where this might
+See L<http://www.3dexpo.com/anaglyph.htm> for an example where this might
 be useful.
 
 Implementation based on the description at
 http://www.recordedlight.com/stereo/tutorials/ps/anaglyph/pstut04.htm
 though obviously the interactive component is missing.
 
+=head1 CAVEAT
+
+Using JPEG as the output format is not recommended.
+
 =head1 AUTHOR
 
-Tony Cook <tony@imager.perl.org>
+Tony Cook <tonyc@cpan.org>
 
 =for stopwords Oppenheim