Send commitlog mailing list submissions to
[email protected]
To subscribe or unsubscribe via the World Wide Web, visit
http://lists.openmoko.org/mailman/listinfo/commitlog
or, via email, send a message with subject or body 'help' to
[EMAIL PROTECTED]
You can reach the person managing the list at
[EMAIL PROTECTED]
When replying, please edit your Subject line so it is more specific
than "Re: Contents of commitlog digest..."
Today's Topics:
1. r1051 - developers/werner/splash ([EMAIL PROTECTED])
--- Begin Message ---
Author: werner
Date: 2007-02-20 09:10:31 +0100 (Tue, 20 Feb 2007)
New Revision: 1051
Added:
developers/werner/splash/imghs.pl
Log:
Raw framebuffer image converter, with HWSWP enabled
Added: developers/werner/splash/imghs.pl
===================================================================
--- developers/werner/splash/imghs.pl 2007-02-20 05:08:48 UTC (rev 1050)
+++ developers/werner/splash/imghs.pl 2007-02-20 08:10:31 UTC (rev 1051)
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+system("pngtopnm System_boot.png | ppmtorgb3");
+for ("red", "grn", "blu") {
+ open(FILE,"noname.$_") || die "noname.$_";
+ $f = join("",<FILE>);
+ close FILE;
+ unlink("noname.$_");
+ $f =~ s/^P5\s+(\d+)\s+(\d+)\s+(\d+)\s//s;
+ ($w,$h,$p) = ($1,$2,$3);
+ $p{$_} = $f;
+}
+print STDERR "$w x $h ($p)\n";
+for ($i = 0; $i != $w*$h; $i++) {
+ $r = unpack("C",substr($p{"red"},$i,1));
+ $g = unpack("C",substr($p{"grn"},$i,1));
+ $b = unpack("C",substr($p{"blu"},$i,1));
+ $v = ($r >> 3) << 11 | ($g >> 2) << 5 | ($b >> 3);
+ print pack("v",$v);
+}
Property changes on: developers/werner/splash/imghs.pl
___________________________________________________________________
Name: svn:executable
+ *
--- End Message ---
_______________________________________________
commitlog mailing list
[email protected]
http://lists.openmoko.org/mailman/listinfo/commitlog
