-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathZNAKI.PAS
89 lines (87 loc) · 4.68 KB
/
ZNAKI.PAS
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
{ ----------------------------------------------------
MICHAL LESNIEWSKI
GRA
KOSMICI ATAKUJA
----------------------------------------------------
ZNAKI.PAS
Tablica czcionek
----------------------------------------------------
}
{
Znaki wielkosci 8x8 pixeli, kazdy bajt reprezentuje
jedna pozioma linie (8 pixeli).
}
const znaki : array[0..70] of array[0..7] of byte =
(
($00, $00, $00, $00, $00, $08, $00, $00), {0}{'.'}
($18, $24, $24, $24, $24, $18, $00, $00), {1}{'0'}
($18, $28, $08, $08, $08, $3C, $00, $00), {2}{'1'}
($38, $44, $08, $10, $20, $7C, $00, $00), {3}{'2'}
($38, $44, $04, $18, $44, $38, $00, $00), {4}{'3'}
($20, $20, $24, $3E, $04, $04, $00, $00), {5}{'4'}
($3E, $20, $3C, $02, $02, $3C, $00, $00), {6}{'5'}
($1C, $20, $38, $24, $24, $18, $00, $00), {7}{'6'}
($3C, $44, $08, $10, $10, $10, $00, $00), {8}{'7'}
($18, $24, $18, $24, $24, $18, $00, $00), {9}{'8'}
($18, $24, $1C, $04, $04, $18, $00, $00), {10}{'9'}
($18, $24, $24, $7E, $42, $42, $00, $00), {11}{'A'}
($7C, $22, $3C, $22, $22, $7C, $00, $00), {12}{'B'}
($3C, $42, $40, $40, $42, $3C, $00, $00), {13}{'C'}
($7C, $22, $22, $22, $22, $7C, $00, $00), {14}{'D'}
($7E, $22, $38, $20, $22, $7E, $00, $00), {15}{'E'}
($7E, $22, $38, $20, $20, $70, $00, $00), {16}{'F'}
($1C, $22, $20, $26, $22, $1C, $00, $00), {17}{'G'}
($44, $44, $7C, $44, $44, $44, $00, $00), {18}{'H'}
($38, $10, $10, $10, $10, $38, $00, $00), {19}{'I'}
($70, $10, $10, $90, $90, $70, $00, $00), {20}{'J'}
($64, $28, $30, $28, $24, $64, $00, $00), {21}{'K'}
($38, $10, $10, $10, $12, $1E, $00, $00), {22}{'L'}
($22, $36, $2A, $22, $22, $22, $00, $00), {23}{'M'}
($22, $32, $2A, $26, $22, $22, $00, $00), {24}{'N'}
($38, $44, $44, $44, $44, $38, $00, $00), {25}{'O'}
($7C, $22, $3C, $20, $20, $70, $00, $00), {26}{'P'}
($38, $44, $44, $44, $4C, $38, $08, $04), {27}{'Q'}
($7C, $22, $3C, $22, $22, $62, $00, $00), {28}{'R'}
($18, $24, $10, $08, $24, $18, $00, $00), {29}{'S'}
($7F, $49, $08, $08, $08, $1C, $00, $00), {30}{'T'}
($22, $22, $22, $22, $22, $1C, $00, $00), {31}{'U'}
($22, $22, $22, $22, $14, $08, $00, $00), {32}{'V'}
($22, $22, $22, $2A, $36, $22, $00, $00), {33}{'W'}
($22, $14, $08, $14, $22, $22, $00, $00), {34}{'X'}
($22, $22, $14, $08, $08, $1C, $00, $00), {35}{'Y'}
($3E, $22, $04, $08, $12, $3E, $00, $00), {36}{'Z'}
($00, $00, $38, $44, $44, $3E, $00, $00), {37}{'a'}
($20, $20, $3C, $22, $22, $3C, $00, $00), {38}{'b'}
($00, $00, $1C, $20, $20, $1C, $00, $00), {39}{'c'}
($02, $02, $1E, $22, $22, $1E, $00, $00), {40}{'d'}
($00, $1C, $22, $3E, $20, $1C, $00, $00), {41}{'e'}
($18, $24, $20, $70, $20, $20, $00, $00), {42}{'f'}
($00, $00, $1C, $22, $22, $1E, $02, $1C), {43}{'g'}
($20, $20, $3C, $22, $22, $22, $00, $00), {44}{'h'}
($00, $10, $00, $10, $10, $10, $00, $00), {45}{'i'}
($00, $10, $00, $10, $10, $10, $10, $70), {46}{'j'}
($20, $20, $24, $38, $24, $24, $00, $00), {47}{'k'}
($20, $20, $20, $20, $20, $38, $00, $00), {48}{'l'}
($00, $00, $63, $55, $49, $41, $00, $00), {49}{'m'}
($00, $00, $2E, $11, $11, $11, $00, $00), {50}{'n'}
($00, $00, $1C, $22, $22, $1C, $00, $00), {51}{'o'}
($00, $00, $3C, $22, $22, $3C, $20, $20), {52}{'p'}
($00, $00, $1E, $22, $22, $1E, $02, $02), {53}{'q'}
($00, $00, $2C, $12, $10, $10, $00, $00), {54}{'r'}
($00, $3C, $22, $18, $44, $38, $00, $00), {55}{'s'}
($10, $10, $38, $10, $10, $10, $00, $00), {56}{'t'}
($00, $00, $24, $24, $24, $18, $00, $00), {57}{'u'}
($00, $00, $14, $14, $14, $08, $00, $00), {58}{'v'}
($00, $00, $41, $49, $55, $63, $00, $00), {59}{'w'}
($00, $00, $24, $18, $18, $24, $00, $00), {60}{'x'}
($00, $00, $24, $24, $24, $3C, $04, $3C), {61}{'y'}
($00, $00, $3C, $08, $10, $3C, $00, $00), {62}{'z'}
($00, $00, $00, $3C, $00, $00, $00, $00), {63}{'-'}
($00, $00, $10, $38, $10, $00, $00, $00), {64}{'+'}
($00, $00, $00, $00, $00, $10, $10, $20), {65}{','}
($00, $02, $04, $08, $10, $20, $00, $00), {66}{'/'}
($00, $14, $08, $14, $00, $00, $00, $00), {67}{'*'}
($00, $00, $08, $00, $00, $08, $00, $00), {68}{':'}
($00, $00, $3C, $00, $3C, $00, $00, $00), {69}{'='}
($00, $00, $00, $00, $00, $7E, $00, $00) {70}{'_'}
);