From 23eb8775013fffca0791538656d4920b4a2e0636 Mon Sep 17 00:00:00 2001
From: Stefan `Sec` Zehl <sec@42.org>
Date: Thu, 4 Aug 2011 22:58:36 +0200
Subject: [PATCH] Simple image converter and sample image

---
 tools/image/img2lcd.pl  |  72 ++++++++++++++++++++++++++++++++++++++++
 tools/image/src/i42.gif | Bin 0 -> 340 bytes
 2 files changed, 72 insertions(+)
 create mode 100755 tools/image/img2lcd.pl
 create mode 100755 tools/image/src/i42.gif

diff --git a/tools/image/img2lcd.pl b/tools/image/img2lcd.pl
new file mode 100755
index 0000000..5f9fee1
--- /dev/null
+++ b/tools/image/img2lcd.pl
@@ -0,0 +1,72 @@
+#!/usr/bin/perl
+
+# img2lcd.pl - by <sec@42.org> 05/2011, BSD Licence
+#
+# This script converts an image to .lcd format for the r0ket
+
+use strict;
+use warnings;
+use Getopt::Long;
+use Module::Load;
+
+$|=1;
+
+###
+### Runtime Options
+###
+
+my ($verbose);
+
+GetOptions (
+            "verbose"  => \$verbose, # flag
+			"help"     => sub {
+			print <<HELP;
+Uasge: img2lcd.pl [-v]
+
+Options:
+--verbose         Be verbose.
+HELP
+			exit(-1);}
+			);
+
+
+###
+### Code starts here.
+###
+
+my $in=shift || "i42.gif";
+
+my $out=$in;
+$out=~s/\..*/.lcd/;
+
+load GD;
+my $image = GD::Image->new($in);
+
+
+my $w=$image->width;
+my $h=$image->height;
+
+my @img;
+for my $y (0..$h){
+	for my $x (0..$w){
+		my $px= $image->getPixel($x,$y);
+		$img[$x][$y/8]|=$px<<(7-$y%8);
+		if($verbose){
+			$px=~y/01/ */; print STDERR $px;
+		};
+	};
+	if ($verbose){
+		print STDERR "<\n";
+	};
+};
+
+open(F,">",$out)||die "open: $!";
+
+my $hb=int($h/8);
+for my $y (0..$hb){
+	for my $x (0..$w){
+		printf F "%c",$img[$w-$x][$hb-$y];
+	};
+};
+
+close(F);
diff --git a/tools/image/src/i42.gif b/tools/image/src/i42.gif
new file mode 100755
index 0000000000000000000000000000000000000000..acd34eeb0000209667a9c3400465c9502307d4bd
GIT binary patch
literal 340
zcmV-a0jvH;Nk%v~VPF760Du4h|Ns90001li0001B07L))0{(=LsmtvTqnxzbi?iOm
z`wxcVNS5Y_rs~SJVF0`G0>@^J*Rz3_`QMZ2M!;flbp!z!KjiS0gG5tLWi^r{WjkA}
z?e?_>FkLY*T)9HgT=m5Lfp6qqwx>L|Q|KE0j;F`rmk=m2Xn{vlxHiW4c6hgV0Xd}t
zDUnEc+140$n0eM2De3?kDn{C{>6zLm3HW--iWw`**{X<3RVx*{YIaMjyF0u$WYo0t
zn~U6Bd9tkOJiX+@TUvBLogG@NWmjz&ondP2-TgOCe(mU@o_8+JuKG+L-!5omKl85L
ztWZuKt4`JGvFHa2ATnhL0l?wLuc4f9LgwvbmaIj<G&&ezH59f6K}LTD(V=oUQY1u^
ms7gwsIIG*Wm4A%g>sT|V&Ye7a`uqtrsL-KAiy9SL002AVRHM@X

literal 0
HcmV?d00001