Select Code to Download

my $halfblock = chr(9600);
utf8::encode($halfblock); # Needs to be UTF8-encoded
...
...
print "\e[48;2;0;0;0m"; # Black background
print $halfblock;
...

sub render($self) {
    my $lastfgcolor = '';
    my $lastbgcolor = '';
...

    return 0;
}