git.shiar.nl
/
minime.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
distinguish (mostly) transparent pixels
[minime.git]
/
termimg
diff --git
a/termimg
b/termimg
index baf6afd0a0cbfaf0087a8135b3e575709747e83f..3dd0fa48aa11715ba46d9f63a6d8675b7a20ec93 100755
(executable)
--- a/
termimg
+++ b/
termimg
@@
-6,6
+6,8
@@
my @info = eval {
require Image::ExifTool;
my $exif = Image::ExifTool->new->ImageInfo($file, {
CoordFormat => '%.5f',
require Image::ExifTool;
my $exif = Image::ExifTool->new->ImageInfo($file, {
CoordFormat => '%.5f',
+ DateFormat => '%Y-%m-%d %H:%M:%S',
+ Exclude => 'System:*',
});
die "exiftool: $exif->{Error}\n" if $exif->{Error};
return (
});
die "exiftool: $exif->{Error}\n" if $exif->{Error};
return (
@@
-18,9
+20,10
@@
my @info = eval {
$exif->{SVGVersion} // $exif->{PDFVersion} // (),
),
$exif->{ColorType} ? "$exif->{BitDepth}bpp $exif->{ColorType}" : (),
$exif->{SVGVersion} // $exif->{PDFVersion} // (),
),
$exif->{ColorType} ? "$exif->{BitDepth}bpp $exif->{ColorType}" : (),
- sprintf('exif
x%d
', scalar %{$exif}),
+ sprintf('exif
(%d)
', scalar %{$exif}),
$exif->{Thumb} ? "thumb $exif->{ThumbnailLength}B" : (),
(map "@ $_",
$exif->{Thumb} ? "thumb $exif->{ThumbnailLength}B" : (),
(map "@ $_",
+ $exif->{DateTimeOriginal} //
$exif->{DateCreated} //
$exif->{CircaDateCreated} //
$exif->{ModifyDate} //
$exif->{DateCreated} //
$exif->{CircaDateCreated} //
$exif->{ModifyDate} //
@@
-58,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',
@@
-69,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 $/;
}