deri pushed a commit to branch deri-gropdf-ng in repository groff. commit 5989eda83e6cc399988756ba163ad4c2ad1fc9d9 Author: Deri James <d...@chuzzlewit.myzen.co.uk> AuthorDate: Sun Dec 10 20:05:43 2023 +0000
Fix arc drawing when flag -l used. * src/devices/gropdf/gropdf.pl: When landscape flag (-l) is given coordinates for arcs need rotation. --- src/devices/gropdf/gropdf.pl | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl index 45e35d931..e96a2059e 100644 --- a/src/devices/gropdf/gropdf.pl +++ b/src/devices/gropdf/gropdf.pl @@ -3980,7 +3980,14 @@ sub PlotArcSegment my @mat=($cos,$sin,-$sin,$cos,0,0); my $lw=$lwidth/$r; - $stream.="q $r 0 0 $r $transx $transy cm ".join(' ',@mat)." cm $lw w $x0 $y0 m $x1 $y1 $x2 $y2 $x3 $y3 c S Q\n"; + if ($frot) + { + $stream.="q $r 0 0 $r $transy $transx cm ".join(' ',@mat)." cm $lw w $y0 $x0 m $y1 $x1 $y2 $x2 $y3 $x3 c S Q\n"; + } + else + { + $stream.="q $r 0 0 $r $transx $transy cm ".join(' ',@mat)." cm $lw w $x0 $y0 m $x1 $y1 $x2 $y2 $x3 $y3 c S Q\n"; + } } sub DrawCircle _______________________________________________ Groff-commit mailing list Groff-commit@gnu.org https://lists.gnu.org/mailman/listinfo/groff-commit