swaggboi/to_avif
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Change various things to make preview work

Browse Source
This commit is contained in:
swaggboi 2025-02-14 13:03:55 -05:00
parent b4a21c9e54
commit c5a3d1584f
3 changed files with 24 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
image_magick/to_avif.pl
View File

@ -1,18 +0,0 @@
#!/usr/bin/env perl
use v5.36;
use Image::Magick;
unless ($ARGV[0]) {
say "give me image file, e.g.: $0 goatse.jpeg";
exit 64;
}
my $p = Image::Magick->new;
my $file = $ARGV[0];
$p->Read($file);
# Write to STDOUT instead of file
binmode STDOUT;
$p->Write('avif:-');

BIN
me.avif Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.4 KiB

24
to_avif.pl Executable file
View File

@ -0,0 +1,24 @@
#!/usr/bin/env perl
use v5.36;
use Image::Magick;
unless ($ARGV[0]) {
say "give me image file, e.g.: $0 goatse.jpeg";
exit 64;
}
my $p = Image::Magick->new;
my $file = $ARGV[0];
$p->Read($file);
my $image_avif = $p->Clone;
$image_avif = $image_avif->ImageToBlob(magick => 'avif');
my $preview_avif = $p->Clone;
$preview_avif->Zoom('25%');
$preview_avif = $preview_avif->ImageToBlob(magick => 'avif');
#print $image_avif;
print $preview_avif;