From ec178cfc587485ce365c20c9643b746e276703a2 Mon Sep 17 00:00:00 2001
From: Jon duSaint
Date: Fri, 3 Nov 2023 12:48:51 -0700
Subject: Reolink.pm: Images should be TrueColor

---
 reolink/Reolink.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'reolink/Reolink.pm')

diff --git a/reolink/Reolink.pm b/reolink/Reolink.pm
index 56b78c5..036c850 100644
--- a/reolink/Reolink.pm
+++ b/reolink/Reolink.pm
@@ -547,7 +547,11 @@ sub Snap {
   if ($this->{image_quality_workaround}) {
     my $image = Image::Magick->new ();
     $image->BlobToImage ($resp->decoded_content);
-    $image->Set (quality => 99);
+    $image->Set (quality => 66);
+    if ($image->Get ('type') ne 'TrueColor') {
+      print "Switching type from " . $image->Get ('type') . " to TrueColor\n";
+      $image->Set (type => 'TrueColor');
+    }
     $image->Write (filename => $filename);
   } else {
     my $fh;
-- 
cgit v1.2.3