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
