6 |
use Carp qw/confess/; |
use Carp qw/confess/; |
7 |
use File::Slurp; |
use File::Slurp; |
8 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
9 |
use Z80; # import |
use Z80; |
10 |
use Screen qw/$white $black/; |
use Screen; |
11 |
|
|
12 |
use base qw(Class::Accessor VRac Z80 Screen Prefs Session); |
use base qw(Class::Accessor VRac Z80 Screen Prefs Session); |
13 |
__PACKAGE__->mk_accessors(qw(booted)); |
__PACKAGE__->mk_accessors(qw(booted)); |
229 |
for my $l ( 0 .. 12 ) { |
for my $l ( 0 .. 12 ) { |
230 |
my $o = $l << 5; # *32 |
my $o = $l << 5; # *32 |
231 |
my $co = ( $l << 7 ) | $c; |
my $co = ( $l << 7 ) | $c; |
232 |
$pixels[ $a + $x + $o ] = $chars[ $co ]; |
$pixels[ $a + $x + $o ] = $flip[ $chars[ $co ] ]; |
233 |
} |
} |
234 |
} |
} |
235 |
$a += ( 32 * 13 ); # next line |
$a += ( 32 * 13 ); # next line |