brmlab/brmelect
4
0
Fork 0
mirror of https://github.com/pasky/brmelect.git synced 2025-06-07 17:44:54 +02:00
Code Issues Projects Releases Packages Wiki Activity

gen-ballot.pl: Dashed line above token to make it easy to tear it away

Browse source
This commit is contained in:
Petr Baudis 2014-10-13 23:38:59 +02:00
parent 26ece44b3a
commit d4e238a86f
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
gen-ballot.pl
View file

@ -20,7 +20,7 @@ our $fontface = 'Arial';
our $ffontface = 'Courier New'; our $ffontface = 'Courier New';
# large, normal, small # large, normal, small
our @fontsize = (26, 11, 8); our @fontsize = (26, 11, 8);
our @linespacing = (18, 13, 10); our @linespacing = (18, 13, 8);
our $topmargin = 2; our $topmargin = 2;
our $contact = 'brmelect: your votes are safe with us'; our $contact = 'brmelect: your votes are safe with us';
@ -118,12 +118,21 @@ sub ballot {
$cr->stroke; $cr->stroke;
my $ypos = $topmargin + $linespacing[0] / 2; my $ypos = $topmargin;
# ballot_text($cr, \$ypos, $fontface, 'normal', 'bold', 0, $host); # ballot_text($cr, \$ypos, $fontface, 'normal', 'bold', 0, $host);
# ballot_text($cr, \$ypos, $ffontface, 'normal', 'normal', 1, $mac); # ballot_text($cr, \$ypos, $ffontface, 'normal', 'normal', 1, $mac);
for my $name (@$names) { for my $name (@$names) {
ballot_text_plus_box($cr, \$ypos, $fontface, 'normal', 'normal', 1, $name); ballot_text_plus_box($cr, \$ypos, $fontface, 'normal', 'normal', 1, $name);
} }
$ypos += $linespacing[1] / 2;
$cr->set_dash(1.0, 2.0);
$cr->move_to(0, $ypos);
$cr->line_to($ballot[0], $ypos);
$cr->stroke;
$cr->set_dash([1]);
$ypos += $linespacing[2] / 2;
my $tok = gen_token(); my $tok = gen_token();
print($tok."\n"); print($tok."\n");
ballot_text_centered($cr, \$ypos, $fontface, 'italic', 'normal', 2, $tok); ballot_text_centered($cr, \$ypos, $fontface, 'italic', 'normal', 2, $tok);