diff --git a/tools/image/img2lcd.pl b/tools/image/img2lcd.pl
index 5f9fee1..d6738c6 100755
--- a/tools/image/img2lcd.pl
+++ b/tools/image/img2lcd.pl
@@ -46,9 +46,13 @@ my $image = GD::Image->new($in);
 my $w=$image->width;
 my $h=$image->height;
 
+if($verbose){
+	print STDERR "$in: ${w}x$h\n\n";
+};
+
 my @img;
-for my $y (0..$h){
-	for my $x (0..$w){
+for my $y (0..$h-1){
+	for my $x (0..$w-1){
 		my $px= $image->getPixel($x,$y);
 		$img[$x][$y/8]|=$px<<(7-$y%8);
 		if($verbose){
@@ -62,10 +66,11 @@ for my $y (0..$h){
 
 open(F,">",$out)||die "open: $!";
 
-my $hb=int($h/8);
+$|=1;
+my $hb=int(($h-1)/8);
 for my $y (0..$hb){
-	for my $x (0..$w){
-		printf F "%c",$img[$w-$x][$hb-$y];
+	for my $x (0..$w-1){
+		printf F "%c",$img[$w-$x-1][$hb-$y];
 	};
 };
 
diff --git a/tools/image/lcd/i42.lcd b/tools/image/lcd/i42.lcd
index f65a1da..4fbf524 100644
Binary files a/tools/image/lcd/i42.lcd and b/tools/image/lcd/i42.lcd differ
diff --git a/tools/image/lcd/r0ket.lcd b/tools/image/lcd/r0ket.lcd
index 7ee229f..b191e88 100644
Binary files a/tools/image/lcd/r0ket.lcd and b/tools/image/lcd/r0ket.lcd differ