Mercurial > hg > forks > pwpunix

view peluce/font-gen.pl @ 89:ea44e1d9eb7c default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 25 May 2014 05:03:14 +0300
parents acb5694e93d9
children
line wrap: on
line source

#!/usr/bin/perl

$_=<<EOF;

.......
.......
.......
.......
.......

x*****x
**...**
*******
**...**
**...**

******+
**...**
******+
**...**
******+

x*****x
**...**
**.....
**.....
x******

******+
**...**
**...**
**...**
******+

+******
**.....
****...
**.....
*******

+******
**.....
****...
**.....
**.....

x******
**.....
**.****
**...**
x*****x

**...**
**...**
*******
**...**
**...**

******.
.+**+..
..**...
.+**+..
******.

..+****
.....**
.....**
**+.+**
x*****x

**..+**
**.+**.
*****..
**.+**.
**..+**

**.....
**.....
**.....
**.....
*******

x**x**x
*******
**+*+**
**.+.**
**...**

******x
**...**
**...**
**...**
**...**

x*****x
**...**
**...**
**...**
x*****x

x*****x
**...**
******x
**.....
**.....

x*****x
**...**
**..+x*
**..x**
x******

*******
**...**
*******
*****+.
**.+***

x******
**.....
x*****x
.....**
******x

******.
..**...
..**...
..**...
..**...

**...**
**...**
**...**
**...**
x*****x

**...**
**...**
**x.x**
+**x**+
.+***+.

**...**
**...**
**.*.**
**x*x**
***+***

**..**.
.****..
.+**+..
.****..
**..**.

**...**
**...**
x******
.....**
....x*x

*******
...x**+
.+***+.
+**x...
*******

..x**..
..***..
...**..
...**..
*******

x*****x
**...**
x******
.....**
******x

.......
.......
x*****x
.......
.......

*x.*.x*
..***..
x**.**x
*******
**...**

*x...x*
.......
*******
**...**
*******
EOF

 s/x/0x77\,/g;
s/\./0x00\,/g;
s/\*/0xff\,/g;
s/\+/0x88\,/g;
print "char pwpfont[][5*7]=\n{$_};\n";