12 |
use base qw(Class::Accessor); |
use base qw(Class::Accessor); |
13 |
__PACKAGE__->mk_accessors(qw(debug scale show_mem run_for mem_dump trace)); |
__PACKAGE__->mk_accessors(qw(debug scale show_mem run_for mem_dump trace)); |
14 |
|
|
15 |
=head2 init |
=head2 open_screen |
16 |
|
|
17 |
Open simulated screen |
Open simulated screen |
18 |
|
|
20 |
|
|
21 |
our $app; |
our $app; |
22 |
|
|
23 |
sub init { |
sub open_screen { |
24 |
my $self = shift; |
my $self = shift; |
25 |
|
|
26 |
|
if ( ! $self->scale ) { |
27 |
|
$self->scale( 1 ); |
28 |
|
warn "using default unscaled display\n"; |
29 |
|
} |
30 |
|
|
31 |
$app = SDL::App->new( |
$app = SDL::App->new( |
32 |
-width => 256 * $self->scale + ( $self->show_mem ? 256 : 0 ), |
-width => 256 * $self->scale + ( $self->show_mem ? 256 : 0 ), |
33 |
-height => 256 * $self->scale, |
-height => 256 * $self->scale, |