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

gen-ballot.pl: Layout ballots row-first, not column-first

Browse source
This commit is contained in:
Petr Baudis 2014-10-13 19:08:56 +02:00
parent 27ec39cf1d
commit 8521ed8c6a
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
gen-ballot.pl
View file

@ -136,10 +136,10 @@ my ($x, $y) = (0, 0);
for my $n (1..$n_ballots) { for my $n (1..$n_ballots) {
ballot(ballot_cr($surface, [$x, $y]), \@names); ballot(ballot_cr($surface, [$x, $y]), \@names);
$y++; $x++;
if ($y >= $grid[1]) { if ($x >= $grid[0]) {
$y = 0; $x++; $x = 0; $y++;
if ($x >= $grid[0]) { if ($y >= $grid[1]) {
my $cr = Cairo::Context->create($surface); my $cr = Cairo::Context->create($surface);
$cr->show_page; $cr->show_page;
($x, $y) = (0, 0); ($x, $y) = (0, 0);