From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Nov 2013 22:31:54 +0000 (+0000)
Subject: numbered-alias-sheet: wip for output, debugging, before not use item_size
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?p=evade-mail-usrlocal.git;a=commitdiff_plain;h=a64d117500e2bbdc442d7188a017db4d08618bea

numbered-alias-sheet: wip for output, debugging, before not use item_size
---

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
index 0cdc738..e866406 100755
--- a/numbered-alias-sheet
+++ b/numbered-alias-sheet
@@ -360,15 +360,29 @@ sub write_output () {
 	prf("%s findfont %s scalefont setfont\n",
 	    psstring($nums ? $fontname_num : $fontname),
 	    $lp_y->{f});
+	prf "%s setlinewidth\n", $gap_width * 0.1;
 	print DEBUG "nums? $nums rows=$rows\n";
 	foreach my $col (0..$lp_y->{0}-1) {
+	    my $col_lhs = ($item_size[0] + $colgap_width) * $col;
+	    if ($col > 0 && $nums) {
+		prf "newpath %s ", $col_lhs - $colgap_width*0.5;
+		prf "%s moveto ", $eff_paper_size[1];
+		prf "0 %s rlineto ", -$item_size[1] * $rows;
+		prf "stroke\n";
+	    }
 	    foreach my $row (0..$rows-1) {
 		my $se = $strings[$col*$rows + $row];
 		next unless $se;
-		prf "%s ", ($item_size[0] + $colgap_width) * $col
-		    + ($nums ? 0 : $numbers_metr[4] + $gap_width);
-		prf "%s ", $eff_paper_size[1] - $item_size[1] * ($row + 1);
-		prf "moveto %s show\n", psstring($se->[!$nums]);
+		prf "%s ", $col_lhs 
+		    + ($nums ? $numbers_metr[4]
+		       : $numbers_metr[4] + $gap_width);
+		prf "%s ", $eff_paper_size[1] - $item_size[1] * $row
+		    - $core_size[1];
+		prf "moveto %s ", psstring($se->[!$nums]);
+		if ($nums) {
+		    prf "dup stringwidth pop neg 0 rmoveto ";
+		}
+		prf "show\n";
 	    }
 	}
     }