set jpegquality to 100 as Dan suggested

diff --git a/samples/anaglyph.pl b/samples/anaglyph.pl
index c097006c095b6e68f2a8a0d6ace17e1934feb6eb..e2c4e67654f9d4373e2c8c97747ec498135f9016 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 {