Instead of assuming oldschool/high fonts, calculate from window resolution
and characters, supported by many terminals (at least urxvt, xterm, mlterm,
stterm, putty).
Depend on Term::ReadKey instead of calling a linux-specific ioctl, since
it's commonly installed already and obviously better for compatibility.
push @info, "# $md5 ($filesize)";
} or warn $@;
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',
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',
-thumbnail => $size || '40x12',
-colorspace => 'gray',
'-normalize',