forked from JoNil/Pendulum
-
Notifications
You must be signed in to change notification settings - Fork 0
/
chars_8x5.ads
106 lines (100 loc) · 6.79 KB
/
chars_8x5.ads
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
with Low_Level_Types; use Low_Level_Types;
-- Mapping from characters to 8x5 dot matrix
package Chars_8x5 is
Char_Map : array (Character range ' '..'~',0..4) of Byte := (
( 16#0#, 16#0#, 16#0#, 16#0#, 16#0#), -- Space
( 16#0#, 16#0#, 16#4F#, 16#0#, 16#0#), -- !
( 16#0#, 16#7#, 16#0#, 16#7#, 16#0#), -- "
( 16#14#, 16#7F#, 16#14#, 16#7F#, 16#14#), -- #
( 16#24#, 16#2A#, 16#7F#, 16#2A#, 16#12#), -- $
( 16#23#, 16#13#, 16#8#, 16#64#, 16#62#), -- %
( 16#36#, 16#49#, 16#55#, 16#22#, 16#50#), -- &
( 16#0#, 16#5#, 16#3#, 16#0#, 16#0#), -- '
( 16#0#, 16#1C#, 16#22#, 16#41#, 16#0#), -- (
( 16#0#, 16#41#, 16#22#, 16#1C#, 16#0#), -- )
( 16#14#, 16#8#, 16#3E#, 16#8#, 16#14#), -- *
( 16#8#, 16#8#, 16#3E#, 16#8#, 16#8#), -- +
( 16#0#, 16#50#, 16#30#, 16#0#, 16#0#), -- #
( 16#8#, 16#8#, 16#8#, 16#8#, 16#8#), -- -
( 16#0#, 16#60#, 16#60#, 16#0#, 16#0#), -- .
( 16#20#, 16#10#, 16#8#, 16#4#, 16#2#), -- /
( 16#3E#, 16#51#, 16#49#, 16#45#, 16#3E#), -- 0
( 16#0#, 16#42#, 16#7F#, 16#40#, 16#0#), -- 1
( 16#42#, 16#61#, 16#51#, 16#49#, 16#46#), -- 2
( 16#21#, 16#41#, 16#45#, 16#4B#, 16#31#), -- 3
( 16#18#, 16#14#, 16#12#, 16#7F#, 16#10#), -- 4
( 16#27#, 16#45#, 16#45#, 16#45#, 16#39#), -- 5
( 16#3C#, 16#4A#, 16#49#, 16#49#, 16#30#), -- 6
( 16#1#, 16#1#, 16#79#, 16#5#, 16#3#), -- 7
( 16#36#, 16#49#, 16#49#, 16#49#, 16#36#), -- 8
( 16#6#, 16#49#, 16#49#, 16#29#, 16#1E#), -- 9
( 16#0#, 16#36#, 16#36#, 16#0#, 16#0#), -- :
( 16#0#, 16#56#, 16#36#, 16#0#, 16#0#), -- ;
( 16#8#, 16#14#, 16#22#, 16#41#, 16#0#), -- <
( 16#14#, 16#14#, 16#14#, 16#14#, 16#14#), -- =
( 16#0#, 16#41#, 16#22#, 16#14#, 16#8#), -- >
( 16#2#, 16#1#, 16#51#, 16#9#, 16#6#), -- ?
( 16#32#, 16#49#, 16#79#, 16#41#, 16#3E#), -- @
( 16#7E#, 16#11#, 16#11#, 16#11#, 16#7E#), -- A
( 16#41#, 16#7F#, 16#49#, 16#49#, 16#36#), -- B
( 16#3E#, 16#41#, 16#41#, 16#41#, 16#22#), -- C
( 16#41#, 16#7F#, 16#41#, 16#41#, 16#3E#), -- D
( 16#7F#, 16#49#, 16#49#, 16#49#, 16#49#), -- E
( 16#7F#, 16#9#, 16#9#, 16#9#, 16#1#), -- F
( 16#3E#, 16#41#, 16#41#, 16#49#, 16#7A#), -- G
( 16#7F#, 16#8#, 16#8#, 16#8#, 16#7F#), -- H
( 16#0#, 16#41#, 16#7F#, 16#41#, 16#0#), -- I
( 16#20#, 16#40#, 16#41#, 16#3F#, 16#1#), -- J
( 16#7F#, 16#8#, 16#14#, 16#22#, 16#41#), -- K
( 16#7F#, 16#40#, 16#40#, 16#40#, 16#40#), -- L
( 16#7F#, 16#2#, 16#C#, 16#2#, 16#7F#), -- M
( 16#7F#, 16#6#, 16#8#, 16#30#, 16#7F#), -- N
( 16#3E#, 16#41#, 16#41#, 16#41#, 16#3E#), -- O
( 16#7F#, 16#9#, 16#9#, 16#9#, 16#6#), -- P
( 16#7E#, 16#41#, 16#51#, 16#21#, 16#5E#), -- Q
( 16#7F#, 16#9#, 16#19#, 16#29#, 16#46#), -- R
( 16#26#, 16#49#, 16#49#, 16#49#, 16#32#), -- S
( 16#1#, 16#1#, 16#7F#, 16#1#, 16#1#), -- T
( 16#3F#, 16#40#, 16#40#, 16#40#, 16#3F#), -- U
( 16#1F#, 16#20#, 16#40#, 16#20#, 16#1F#), -- V
( 16#7F#, 16#20#, 16#18#, 16#20#, 16#7F#), -- W
( 16#63#, 16#14#, 16#8#, 16#14#, 16#63#), -- X
( 16#7#, 16#8#, 16#70#, 16#8#, 16#7#), -- Y
( 16#61#, 16#51#, 16#49#, 16#45#, 16#43#), -- Z
( 16#0#, 16#7F#, 16#41#, 16#41#, 16#0#), -- [
( 16#2#, 16#4#, 16#8#, 16#10#, 16#20#), -- \
( 16#0#, 16#41#, 16#41#, 16#7F#, 16#0#), -- ]
( 16#4#, 16#2#, 16#1#, 16#2#, 16#4#), -- ^
( 16#40#, 16#40#, 16#40#, 16#40#, 16#40#), -- _
( 16#1#, 16#2#, 16#4#, 16#0#, 16#0#), -- `
( 16#20#, 16#54#, 16#54#, 16#54#, 16#78#), -- a
( 16#7F#, 16#48#, 16#44#, 16#44#, 16#38#), -- b
( 16#38#, 16#44#, 16#44#, 16#44#, 16#28#), -- c
( 16#38#, 16#44#, 16#44#, 16#48#, 16#7F#), -- d
( 16#38#, 16#54#, 16#54#, 16#54#, 16#18#), -- e
( 16#0#, 16#8#, 16#7E#, 16#9#, 16#2#), -- f
( 16#C#, 16#52#, 16#52#, 16#4C#, 16#3E#), -- g
( 16#7F#, 16#8#, 16#4#, 16#4#, 16#78#), -- h
( 16#0#, 16#44#, 16#7D#, 16#40#, 16#0#), -- i
( 16#20#, 16#40#, 16#44#, 16#3D#, 16#0#), -- j
( 16#0#, 16#7F#, 16#10#, 16#28#, 16#44#), -- k
( 16#0#, 16#41#, 16#7F#, 16#40#, 16#0#), -- l
( 16#7C#, 16#4#, 16#78#, 16#4#, 16#78#), -- m
( 16#7C#, 16#8#, 16#4#, 16#4#, 16#78#), -- n
( 16#38#, 16#44#, 16#44#, 16#44#, 16#38#), -- o
( 16#7E#, 16#C#, 16#12#, 16#12#, 16#C#), -- p
( 16#C#, 16#12#, 16#12#, 16#C#, 16#7E#), -- q
( 16#7C#, 16#8#, 16#4#, 16#4#, 16#8#), -- r
( 16#58#, 16#54#, 16#54#, 16#54#, 16#64#), -- s
( 16#4#, 16#3F#, 16#44#, 16#40#, 16#20#), -- t
( 16#3C#, 16#40#, 16#40#, 16#3C#, 16#40#), -- u
( 16#1C#, 16#20#, 16#40#, 16#20#, 16#1C#), -- v
( 16#3C#, 16#40#, 16#30#, 16#40#, 16#3C#), -- w
( 16#44#, 16#28#, 16#10#, 16#28#, 16#44#), -- x
( 16#1C#, 16#A0#, 16#A0#, 16#90#, 16#7C#), -- y
( 16#44#, 16#64#, 16#54#, 16#4C#, 16#44#), -- z
( 16#0#, 16#8#, 16#36#, 16#41#, 16#0#), -- {
( 16#0#, 16#0#, 16#77#, 16#0#, 16#0#), -- |
( 16#0#, 16#41#, 16#36#, 16#8#, 16#0#), -- }
( 16#2#, 16#1#, 16#2#, 16#4#, 16#2#)); -- ~
end Chars_8x5;