push @info, "# $md5 ($filesize)";
} or warn $@;
+my $aspect = eval {
+ require Term::ReadKey;
+ my ($w, $h, $x, $y) = Term::ReadKey::GetTerminalSize();
+ return $x/$w / $y*$h;
+};
+
open my $pgm, '-|', convert => (
$file =>
-delete => '1--1',
- '+distort' => SRT => '0,0 1,.56 0',
+ $aspect ? ('+distort' => SRT => "0,0 1,$aspect 0") : (),
-thumbnail => $size || '40x12',
-colorspace => 'gray',
'-normalize',