git.shiar.nl
/
minime.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
097f2f0
)
distinguish (mostly) transparent pixels
author
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 14 Feb 2020 23:05:02 +0000
(
00:05
+0100)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Fri, 14 Feb 2020 23:05:02 +0000
(
00:05
+0100)
termimg
patch
|
blob
|
history
diff --git
a/termimg
b/termimg
index 24f6a33613a6048d84af5cff5bdf996f97a4923f..3dd0fa48aa11715ba46d9f63a6d8675b7a20ec93 100755
(executable)
--- a/
termimg
+++ b/
termimg
@@
-61,6
+61,8
@@
open my $pgm, '-|', convert => (
-thumbnail => $size || '40x12',
-colorspace => 'gray',
'-normalize',
-thumbnail => $size || '40x12',
-colorspace => 'gray',
'-normalize',
+ -level => '-1%',
+ -channel => 'A', -threshold => '50%',
-background => 'black',
-layers => 'flatten',
-compress => 'none',
-background => 'black',
-layers => 'flatten',
-compress => 'none',
@@
-72,7
+74,7
@@
if (<$pgm> eq "P2\n") {
<$pgm>; # ignore depth
my @ch = split //, " .:oO@";
while (<$pgm>) {
<$pgm>; # ignore depth
my @ch = split //, " .:oO@";
while (<$pgm>) {
- print $ch[ $_ * @ch >> 8 ] for /\d+/g;
+ print
!$_ ? '/' :
$ch[ $_ * @ch >> 8 ] for /\d+/g;
print ' ', shift @info if @info;
print $/;
}
print ' ', shift @info if @info;
print $/;
}