From c5a3d1584f00cdf88de1c84ff737b842125628fa Mon Sep 17 00:00:00 2001
From: swaggboi <swaggboi@slackware.uk>
Date: Fri, 14 Feb 2025 13:03:55 -0500
Subject: [PATCH] Change various things to make preview work

---
 image_magick/to_avif.pl |  18 ------------------
 me.avif                 | Bin 0 -> 1423 bytes
 to_avif.pl              |  24 ++++++++++++++++++++++++
 3 files changed, 24 insertions(+), 18 deletions(-)
 delete mode 100755 image_magick/to_avif.pl
 create mode 100644 me.avif
 create mode 100755 to_avif.pl

diff --git a/image_magick/to_avif.pl b/image_magick/to_avif.pl
deleted file mode 100755
index 725ea0e..0000000
--- a/image_magick/to_avif.pl
+++ /dev/null
@@ -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:-');
diff --git a/me.avif b/me.avif
new file mode 100644
index 0000000000000000000000000000000000000000..3633e9ace924735dcd953a5bb8a2b102ac4934e4
GIT binary patch
literal 1423
zcmXv}3pCSv9RF{`uxQ>98Yby@AD6CsuUFozav~OHZL|GnV`Il_bSQbJNh(FId)sX!
z@5nQG<#8v+GZtbME_qWP)!p3N=X-v?&*Oa0`F(x>02~Wu#?Wz*U@#zrh-qN3DGkJl
z{691z6DP`rK#~d6@c$$L&_O)&hyKB`bdX6qFc9Ib4N}AKB6r3XfCxtji0pq10OE;4
zs{?|e2ag`4N<u?~9;}IKn3#$r1*C`5h3pQ}@nJ$%z=u)8L-EvT04f}b1YrcnMVdM!
z0&t-O6u}5OQ6z+L{r?=HgVCTU5QD*BLQ(<gv>#s*_7YFLDwZTHltv@qnDT(MgzC{p
zE<yHYn=p9*nyz1DJNA9a&qd1eQIDk9A~Z>>Ma}tEKzXMNntRS5h~JiyfhZZaY{KmY
zS=@6PG#K1jSq!_goUY0NPp2RgY1tm-#nTH_kFBVd34+=IL@1`N_sULeRzcKCO{W7O
ziOwp&jO}Y_``p5Q*vZ<j*;*raiq}(KO_uWpH|G@7AB6WePUenDkqHHV)!nk=tP<_#
z^ie6NKf8Ww1s`9DzEITRH5Nd=hP3DFL2Y(dS17R5KHe60jC5t9cfBBMN12tIUVG=O
zd)dq>OZsz8#gmveLSd^`>0ZQHiPNyHR_9PJTF3AJ<r-<*k#_q_)phPs=0xPWeSTlr
zIYws-@3`Eu8<<9g7?@ONRIpO(q!-xmn{feL_gGJpf$3)^BN_;MKaIf=ZR3+mT7<8?
z-Z$;`ET`lU=ZnKaRQbV`Ofl{F8fEnL9BVu`K4r#&#WXF3-=7}6$LB|RO`u8#Mq7}Q
z%T^I4VmvLRoIZ)6Hrd$Sg;hS$4ZWuBkCruh)BhySDKZaD_r85|j~u4ZPtgn+CN(@_
z$9pbRMP>gTwKes9{>0pn2Af0RJ<ON_2et|N9JaW#CNa?aPbtW!#XuxfZB~jM=@Vyk
zB9GGC)4J-RbmUrdRSC!Ru1?KcL=OB-cr|95e5%$(+vAg%?}n3wx5l>hEm=2s8P~v{
zFEh3RJj=wqXoYol$oC9Fb`5o9?y4EOs?P<yZ0uV7vaa$HT-7wIDy%?dcV-|Z$e4S)
zD8ohHkvvsro=tddpvOY>2Jviz?c&EA%VNC*q5&*0cyp359s|nVPmaO{ocF1n_eH5*
zeK&f;Oh!>Tkmy~DC3Uc@Ln7p#kpi2hRFal;Q8xs?YBtS#BGIqO&{?_M^8Kv&8Tf^F
zX^u*)BtE1DQR(Qm!5V3vR<Hi9xpJF5I5DYjzj8SrP1wUWUY3XcCU~1*lXvLtq`CVU
zCKda>s6D1T+0;b5WT@2`qt@4Dh6Q8Km&Mid3#_gWx$gHD<ns^7iD7MQCX(-L5gX$D
zf7%iF5FVhSbDBzMpYdne=5txN!%CqMgJ`AS+wwz_@>dPHPwNX6+8ZXswbsT9Y(50d
zYWKXRv3AN{VKI)BjTtgU;6{9|8C00;MJ>#`zihPB2TXpHmUlQ7FrfZkAT9teGG?FF
zYiwPN&xQMaSh8`Qdl9{stuVvr2uF+!Gu`4;4E7`3)UQ4bD~0ECBj-}_i3AtTyAtY6
z4#q>a45d+*gbq}alpg0j<`PzQo1%Aky&CF%)F}skiD8Rf+w@ASW0q?x`u=g;j%XO9
zmuWp+Nj{^q2|@KN8h7d_^^Qwd!21=O9g-a|_~@WL#<Yx2s^iGSL!)hr;~7@?#(vvr
zJGUg5RVmFcc1w=@?PdCi{dkkEKIu{~Ey7&SLel&>sascdpuW4{mr8+M(JNE+_TZEL
wg<U?Lnf<$s@j27;uFGS^4lF25hKJyB+Shh>Vt<~2NZ{6wDQ0e>J6uiv1)i~HzyJUM

literal 0
HcmV?d00001

diff --git a/to_avif.pl b/to_avif.pl
new file mode 100755
index 0000000..a37d481
--- /dev/null
+++ b/to_avif.pl
@@ -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;