[groff] 01/01: Fix for 4-bit eps images

[Deri James]

deri pushed a commit to branch master
in repository groff.

commit 7a4bffae16d7bdfecac294b2cda701bf773df9b3
Author: Deri James <deri@chuzzlewit.myzen.co.uk>
AuthorDate: Sat Nov 2 18:59:26 2024 +0000

    Fix for 4-bit eps images
    
    * src/devices/gropdf/gropdf.pl: Use correct BitsPerComponent
    when converting to raw format.
---
 ChangeLog                    | 7 +++++++
 src/devices/gropdf/gropdf.pl | 2 +-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 38c312eeb..c4d0201b1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-11-02  Deri James  <deri@chuzzlewit.myzen.co.uk>
+
+       Fix for 4-bit eps images
+
+       * src/devices/gropdf/gropdf.pl: Use correct BitsPerComponent
+       when converting to raw format.
+
 2024-11-02  Deri James  <deri@chuzzlewit.myzen.co.uk>
 
        Import change in perl 5.40.
diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index 64a453a7b..754c4904b 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -2714,7 +2714,7 @@ sub LoadMagick
 
     my $cs=$image->Get('colorspace');
     $cs='RGB' if $cs eq 'sRGB';
-    my $x = $image->Set(alpha => 'off', magick => $cs);
+    my $x = $image->Set(alpha => 'off', magick => $cs, depth => $BPC);
     Warn("Image '$JPnm': $x"), return if "$x";
     my @blobs = $image->ImageToBlob();
     Warn("Image '$JPnm': More than 1 image") if $#blobs > 0;