--- Galaksija.pm	2007/09/30 18:19:57	181
+++ Galaksija.pm	2007/09/30 19:47:32	185
@@ -214,7 +214,7 @@
 my $char_rom = 'rom/Galaksija/CHRGEN.BIN';
 
 my @chars = map { ord($_) } split(//, read_file( $char_rom ));
-warn "loaded ", $#chars, " characters\n";
+warn "loaded ", $#chars, " bytes from $char_rom\n";
 
 my @char2pos;
 
@@ -231,6 +231,9 @@
 
 #warn "## chars2pos = ",dump( @char2pos );
 
+sub screen_width { 256 }
+sub screen_height { 16 * 13 }
+
 sub render_vram {
 	my $self = shift;
 
@@ -255,8 +258,8 @@
 	}
 
 	my $vram = SDL::Surface->new(
-		-width => 256,
-		-height => 256,
+		-width => $self->screen_width,
+		-height => $self->screen_height,
 		-depth => 1,	# 1 bit per pixel
 		-pitch => 32,	# bytes per line
 		-from => pack("C*", @pixels),