lib/TextPrinter.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

package TextPrinter; 
use strict;
use warnings;
use Term::ANSIColor;
 
my @colours = (
    color('reset'), # filler 
    (
        map { color($_,'on_white') }
            'blue', 'green',
    ),
    (
        map { color($_,'on_black') }
            'dark yellow','dark green',
    ),
);
 
sub draw_cell {
    my ($cell) = @_;
 
    print $colours[$cell->[0]],
        $cell->[1];
}
 
{
my $white = color('black','on_white');
my $reset = color('reset');
sub draw_row {
    my ($row,$scale)=@_;
    $scale||=1;
    print $white,' 'x(3*$scale);
    for my $cell (@$row) {
        draw_cell($cell) for 1..$scale;
    }
    print $white,' 'x(3*$scale);
    print $reset,"\n";
}
sub draw_empty_row {
    my ($row,$scale)=@_;
    $scale||=1;
 
    print $white,' 'x((6+@$row)*$scale),$reset,"\n" for 1..(3*$scale);
}
}
 
sub draw_whole {
    my ($arr,$scale)=@_;
    $scale||=1;
 
    draw_empty_row($arr->[0],$scale);
 
    for my $row (@$arr) {
        draw_row($row,$scale) for 1..$scale;
    }
 
    draw_empty_row($arr->[0],$scale);
}
 
1;