chiark
/
gitweb
/
~ijackson
/
evade-mail-usrlocal.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
34a4781
)
numbered-alias-sheet: wip, adj
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 3 Nov 2013 14:02:17 +0000
(14:02 +0000)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 3 Nov 2013 15:27:44 +0000
(15:27 +0000)
numbered-alias-sheet
patch
|
blob
|
history
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;
our $us = $0; $us =~ s#.*/##;
use POSIX;
+use Data::Dumper;
our $papersize = 'creditcard';
our $fontname = 'Courier';
our $papersize = 'creditcard';
our $fontname = 'Courier';
@@
-235,7
+236,7
@@
sub do_layout ($) {
@numbers_bbox = metrics $fontsize, $fontname_num, map { $_->[0] } @strings;
@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;
$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;
}
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();
}
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);