our $us = $0; $us =~ s#.*/##;
use POSIX;
+use Data::Dumper;
our $papersize = 'creditcard';
our $fontname = 'Courier';
@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;
}
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);