unifont-6.3.20140202.tar.gz

[unifont.git] / src / hexkinya

diff --git a/src/hexkinya b/src/hexkinya
new file mode 100755 (executable)
index 0000000..7c959bd
--- /dev/null
+++ b/src/hexkinya
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+
+@init = (
+'7E414949490000000000000000000000',
+'7E414141410000000000000000000000',
+'7E010909090000000000000000000000',
+'7E010101010000000000000000000000',
+'414B5D69410000000000000000000000',
+'43454951610000000000000000000000',
+'3E087F08080000000000000000000000',
+'08087F08080000000000000000000000',
+'25555555250000000000000000000000',
+'39454545390000000000000000000000',
+'494949413F0000000000000000000000',
+'414141413F0000000000000000000000',
+'090909017F0000000000000000000000',
+'010101017F0000000000000000000000',
+'41417F41410000000000000000000000',
+'7E0101017F0000000000000000000000',
+'7E4141417F0000000000000000000000',
+'23150911210000000000000000000000',
+'7F010F01010000000000000000000000',
+'01097F01010000000000000000000000',
+'02040810200000000000000000000000'
+);
+
+@medi = (
+'0000000000007F400000000000000000',
+'0000000000003F402000000000000000',
+'00000000000000407F00000000000000',
+'00000000000020403F00000000000000',
+'0000000000007F010000000000000000',
+'0000000000007E010200000000000000',
+'00000000000000017F00000000000000',
+'00000000000002017E00000000000000'
+);
+
+@fina = (
+'000000000000000000007E4149494900',
+'000000000000000000007E4141414100',
+'000000000000000000007E0109090900',
+'000000000000000000007E0101010100',
+'00000000000000000000414B5D694100',
+'00000000000000000000434549516100',
+'000000000000000000003E087F080800',
+'0000000000000000000008087F080800',
+'00000000000000000000255555552500',
+'00000000000000000000394545453900',
+'00000000000000000000494949413F00',
+'00000000000000000000414141413F00',
+'00000000000000000000090909017F00',
+'00000000000000000000010101017F00',
+'0000000000000000000041417F414100',
+'000000000000000000007E0101017F00',
+'000000000000000000007E4141417F00',
+'00000000000000000000231509112100',
+'00000000000000000000404078407F00',
+'0000000000000000000001097F010100',
+'00000000000000000000020408102000',
+'00000000000000000000000000000000'
+);
+
+for ($i = 0; $i < 21 ; $i++) {
+       for ($m = 0; $m < 8 ; $m++) {
+               for ($f = 0; $f < 22 ; $f++) {
+                       $c = ($i * 176) + ($m * 22) + $f + 0xF0000;
+                       printf ("%06X:%s%s%s\n", $c, substr ($init[$i], 0, 10), substr ($medi[$m], 10, 10), substr ($fina[$f], 20, 12));
+               }
+       }
+}