[groff] 01/01: Fixes to gropdf

[Deri James]

deri pushed a commit to branch master
in repository groff.

commit 7b3fa85e0f2da11f9475d2a36bb1a9608a6a999f
Author: Deri James <address@hidden>
Date:   Tue Jul 31 17:44:54 2018 +0100

    Fixes to gropdf
    
    * src/devices/gropdf/gropdf.pl: Make default line width 0.4pt
    to match grops. Use 'S' operator (stroke) rather than 's' (close
    and stroke) when Dl command received. Improve switching between
    text and graphic modes.
---
 ChangeLog                    | 9 +++++++++
 src/devices/gropdf/gropdf.pl | 8 ++++----
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index df3950d..15c0147 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2018-06-19  Deri James  <address@hidden>
+
+       Fixes to gropdf
+
+       * src/devices/gropdf/gropdf.pl: Make default line width 0.4pt
+       to match grops. Use 'S' operator (stroke) rather than 's' (close
+       and stroke) when Dl command received. Improve switching between
+       text and graphic modes.
+
 2018-07-01 Bertrand Garrigues <address@hidden>
 
        [me] paragraph with umlaut incorrectly rendered
diff --git a/src/devices/gropdf/gropdf.pl b/src/devices/gropdf/gropdf.pl
index a498229..d83568d 100644
--- a/src/devices/gropdf/gropdf.pl
+++ b/src/devices/gropdf/gropdf.pl
@@ -2562,7 +2562,7 @@ sub NewPage
     $objct+=1;
     $cpage=$obj[$cpageno]->{DATA};
     $pages->{'Count'}++;
-    $stream="q 1 0 0 1 0 0 cm\n$linejoin J\n$linecap j\n";
+    $stream="q 1 0 0 1 0 0 cm\n$linejoin J\n$linecap j\n0.4 w\n";
     $stream.=$strkcol."\n", $curstrk=$strkcol if $strkcol ne '';
     $mode='g';
     $curfill='';
@@ -2943,7 +2943,7 @@ sub do_D
        $ypos+=$p[1];
        $stream.=PutXY($xpos,$ypos)." l\n";
 
-       $stream.="s\n";
+       $stream.="S\n";
        $poschg=1;
     }
     elsif ($Dcmd eq 't')
@@ -3292,7 +3292,7 @@ sub do_v
 {
     my $par=shift;
 
-    PutLine();
+    PutLine() if $mode eq 't';
 
     $ypos+=$par/$unitwidth;
 
@@ -3587,7 +3587,7 @@ sub do_N
 sub do_n
 {
     $gotT=0;
-    PutLine();
+    PutLine(0);
     $pendmv=$nomove=0;
     $n_flg=1;
     @lin=();