| 109 |
} |
} |
| 110 |
} |
} |
| 111 |
|
|
| 112 |
|
=head2 mmap_pixel |
| 113 |
|
|
| 114 |
|
Draw pixel in memory map |
| 115 |
|
|
| 116 |
|
$self->mmap_pixel( $addr, $r, $g, $b ); |
| 117 |
|
|
| 118 |
|
=cut |
| 119 |
|
|
| 120 |
|
# keep accesses to memory |
| 121 |
|
my $_mem_stat; |
| 122 |
|
|
| 123 |
|
sub mmap_pixel { |
| 124 |
|
my ( $self, $addr, $r, $g, $b ) = @_; |
| 125 |
|
|
| 126 |
|
my ( $x, $y ) = mem_xy( $addr ); |
| 127 |
|
warn sprintf "## mem %04x %02x %02x %02d*%02d\n", $addr, $r, $g, $x, $y if $self->trace; |
| 128 |
|
|
| 129 |
|
my $col = sdl::color->new( -r => $r, -g => $g, -b => $b ); |
| 130 |
|
$app->pixel( $x, $y, $col ); |
| 131 |
|
|
| 132 |
|
$_mem_stat++; |
| 133 |
|
if ( $_mem_stat % 1000 == 0 ) { |
| 134 |
|
$app->sync; |
| 135 |
|
} |
| 136 |
|
} |
| 137 |
|
|
| 138 |
|
1; |
Parent Directory
| 
Revision Log
| 
Patch