/[VRac]/Screen.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Screen.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 184 by dpavlin, Sun Sep 30 19:46:20 2007 UTC revision 212 by dpavlin, Mon Apr 14 21:26:32 2008 UTC
# Line 221  sub render_frame { Line 221  sub render_frame {
221  =head2 render_mem  =head2 render_mem
222    
223    $self->render_mem( @mem );    $self->render_mem( @mem );
224      $self->render_mem( $memory_bytes );
225    
226  =cut  =cut
227    
# Line 229  sub render_mem { Line 230  sub render_mem {
230    
231          return unless $self->show_mem;          return unless $self->show_mem;
232    
233          my $pixels = pack("C*", @_);          my $pixels;
234            if ( defined $# ) {
235                    $pixels = pack("C*", @_);
236            } else {
237                    $pixels = shift;
238            }
239    
240          my $vram = SDL::Surface->new(          my $vram = SDL::Surface->new(
241                  -width => 256,                  -width => 256,
# Line 374  sub loop { Line 380  sub loop {
380          }          }
381  }  }
382    
383  # helper array to flip bytes for display  =head2 @flip
384    
385    Exported helper array used to flip bytes (from character roms for example)
386    
387      my $flipped = $flip[ $byte ];
388    
389    =cut
390    
391  our @flip;  our @flip;
392    
393  foreach my $i ( 0 .. 255 ) {  foreach my $i ( 0 .. 255 ) {
Legend:
Removed from v.184  
changed lines
  Added in v.212
  ViewVC Help
Powered by ViewVC 1.1.26