numbered-alias-sheet: wip, adj

diff --git a/numbered-alias-sheet b/numbered-alias-sheet
index 8df415fa3980d0e446bafc0db865156e3e1bd5ce..0fe3b8a616e7836fbb2a8e7b9c5632e412a6ac0d 100755 (executable)
--- 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);