Follow-up Comment #5, bug #68781 (group groff): This commit is cued up on my development branch awaiting end of code freeze:-
commit 259c0008cf69265201f933615ed4f9847528e7fe Author: Deri James <[email protected]> Date: Sat Oct 17 20:32:27 2026 +0100 [gropdf]: Introduce \X'pdf: inline ...'. * src/devices/gropdf/gropdf.pl (do_x): Takes identical parameters to \X'pdf: pdfpic ...' but sits image on the text baseline rather than hang from it. The same as grops 'import'. * src/devices/gropdf/gropdf.1.man: document it. Fixes <https://savannah.gnu.org/bugs/index.php?68781>. diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl index cf996d87c..7b8c54690 100644 --- a/src/devices/gropdf/gropdf.pl +++ b/src/devices/gropdf/gropdf.pl @@ -1694,7 +1694,7 @@ sub do_x } } } - elsif (lc($xprm[1]) eq 'pdfpic') + elsif (lc($xprm[1]) eq 'pdfpic' or lc($xprm[1]) eq 'inline') { my $fil=$xprm[2]; my $flag=uc($xprm[3]||'-L'); @@ -1819,10 +1819,11 @@ sub do_x } - $ypos+=$hgt; + $ypos+=$hgt if lc($xprm[1]) eq 'pdfpic'; $stream.="q $xscale 0 0 $yscale ".PutXY($xpos,$ypos)." cm"; $stream.=" 0 1 -1 0 0 0 cm" if $rot; $stream.=" /$incfil{$fil}->[0] Do Q\n"; + $ypos-=$hgt if lc($xprm[1]) eq 'pdfpic'; } } elsif (lc($xprm[1]) eq 'xrev') _______________________________________________________ Reply to this item at: <https://savannah.gnu.org/bugs/?68781> _______________________________________________ Message sent via Savannah https://savannah.gnu.org/
signature.asc
Description: PGP signature
