From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 3 Nov 2013 14:02:17 +0000 (+0000)
Subject: numbered-alias-sheet: wip, adj
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?p=evade-mail-usrlocal.git;a=commitdiff_plain;h=8d64aabd0abb46fe5a7d7f7bf34eb410b0d2c79d

numbered-alias-sheet: wip, adj
---

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
index 8df415f..0fe3b8a 100755
--- a/numbered-alias-sheet
+++ b/numbered-alias-sheet
@@ -3,6 +3,7 @@ use strict;
 our $us = $0; $us =~ s#.*/##;
 
 use POSIX;
+use Data::Dumper;
 
 our $papersize =  'creditcard';
 our $fontname = 'Courier';
@@ -235,7 +236,7 @@ sub do_layout ($) {
 
     @numbers_bbox = metrics $fontsize, $fontname_num, map { $_->[0] } @strings;
 
-    my @nom_gap_bbox = metrics $fontsize, $fontname_num, ' ';
+    my @nom_gap_bbox = metrics $fontsize, $fontname_num, 'x';
     $gap_width = $gapratio * ($nom_gap_bbox[2] - $nom_gap_bbox[0]);
 
     @texts_bbox = metrics $fontsize, $fontname, map { $_->[1] } @strings;
@@ -277,12 +278,12 @@ sub determine_size_layout () {
     }
 
     do_layout $usesz or die;
+    
+    print DEBUG Dumper($usesz, \@lp_values, \@numbers_bbox,
+		       \@texts_bbox, $gap_width, \@core_size,
+		       \@item_size, $rotate_paper, \@eff_paper_size,
+		       \@laycount);
 }
 
 readstrings();
 determine_size_layout();
-
-use Data::Dumper;
-print DEBUG Dumper($usesz, \@lp_values, \@numbers_bbox,
-		   \@texts_bbox, $gap_width, \@core_size,
-		   \@item_size, $rotate_paper, \@eff_paper_size, \@laycount);