deri pushed a commit to branch master
in repository groff.
commit 7a4bffae16d7bdfecac294b2cda701bf773df9b3
Author: Deri James <d...@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 <d...@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 <d...@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;
_______________________________________________
groff-commit mailing list
groff-commit@gnu.org
https://lists.gnu.org/mailman/listinfo/groff-commit
