From 8521ed8c6aaf9de0675594f0cefa4c6172f054c8 Mon Sep 17 00:00:00 2001 From: Petr Baudis Date: Mon, 13 Oct 2014 19:08:56 +0200 Subject: [PATCH] gen-ballot.pl: Layout ballots row-first, not column-first --- gen-ballot.pl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gen-ballot.pl b/gen-ballot.pl index 53572cc..b9a7afe 100755 --- a/gen-ballot.pl +++ b/gen-ballot.pl @@ -136,10 +136,10 @@ my ($x, $y) = (0, 0); for my $n (1..$n_ballots) { ballot(ballot_cr($surface, [$x, $y]), \@names); - $y++; - if ($y >= $grid[1]) { - $y = 0; $x++; - if ($x >= $grid[0]) { + $x++; + if ($x >= $grid[0]) { + $x = 0; $y++; + if ($y >= $grid[1]) { my $cr = Cairo::Context->create($surface); $cr->show_page; ($x, $y) = (0, 0);