git.shiar.nl
/
minime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
compensate for known terminal aspect ratio
[minime.git]
/
termimg
diff --git
a/termimg
b/termimg
index 40bf6abfdca284ff75523d4f9e3329fb7649d8c2..687615839dcb47f3773698d1b876ef0205f52a40 100755
(executable)
--- a/
termimg
+++ b/
termimg
@@
-54,10
+54,16
@@
eval {
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',