Unit P_Galaxy;
Interface
Uses Graph;
Const Velikost = 11;
Var Pismeno:array[1..Velikost] of string;
Procedure PrepniPismeno(X:integer);
Procedure NapisText(X,Y:integer;Text:string;M:byte);
Implementation
Procedure PrepniPismeno(X:integer);
Begin
Case X Of
1: Begin
      Pismeno[1]:='07';
      Pismeno[2]:='0708';
      Pismeno[3]:='060708';
      Pismeno[4]:='060809';
      Pismeno[5]:='05060910';
      Pismeno[6]:='040507080910';
      Pismeno[7]:='040611';
      Pismeno[8]:='03041112';
      Pismeno[9]:='0312';
      Pismeno[10]:='021213';
      Pismeno[11]:='010213';
   End;
2: Begin
      Pismeno[1]:='0102030405060708';
      Pismeno[2]:='010809';
      Pismeno[3]:='0108';
      Pismeno[4]:='0107';
      Pismeno[5]:='01060708';
      Pismeno[6]:='01040506070809';
      Pismeno[7]:='0109';
      Pismeno[8]:='0109';
      Pismeno[9]:='0109';
      Pismeno[10]:='010809';
      Pismeno[11]:='0102030405060708';
   End;
3: Begin
      Pismeno[1]:='0405060708091011';
      Pismeno[2]:='0203';
      Pismeno[3]:='02';
      Pismeno[4]:='01';
      Pismeno[5]:='01';
      Pismeno[6]:='01';
      Pismeno[7]:='01';
      Pismeno[8]:='01';
      Pismeno[9]:='02';
      Pismeno[10]:='0203';
      Pismeno[11]:='0405060708091011';
   End;
4: Begin
      Pismeno[1]:='0102030405060708';
      Pismeno[2]:='0109';
      Pismeno[3]:='0110';
      Pismeno[4]:='0111';
      Pismeno[5]:='0111';
      Pismeno[6]:='0111';
      Pismeno[7]:='0111';
      Pismeno[8]:='0111';
      Pismeno[9]:='0110';
      Pismeno[10]:='0109';
      Pismeno[11]:='0102030405060708';
   End;
5: Begin
      Pismeno[1]:='0405060708091011';
      Pismeno[2]:='0203';
      Pismeno[3]:='02';
      Pismeno[4]:='01';
      Pismeno[5]:='01';
      Pismeno[6]:='010304050607080910';
      Pismeno[7]:='0102';
      Pismeno[8]:='01';
      Pismeno[9]:='02';
      Pismeno[10]:='0203';
      Pismeno[11]:='0405060708091011';
   End;
6: Begin
      Pismeno[1]:='0102030405060708';
      Pismeno[2]:='0107';
      Pismeno[3]:='01';
      Pismeno[4]:='01';
      Pismeno[5]:='01';
      Pismeno[6]:='010203040506';
      Pismeno[7]:='01';
      Pismeno[8]:='01';
      Pismeno[9]:='01';
      Pismeno[10]:='01';
      Pismeno[11]:='01';
   End;
7: Begin
      Pismeno[1]:='04050607080910';
      Pismeno[2]:='03';
      Pismeno[3]:='02';
      Pismeno[4]:='01';
      Pismeno[5]:='01';
      Pismeno[6]:='010607080910';
      Pismeno[7]:='010510';
      Pismeno[8]:='0110';
      Pismeno[9]:='0210';
      Pismeno[10]:='020310';
      Pismeno[11]:='04050607080910';
   End;
8: Begin
      Pismeno[1]:='0108';
      Pismeno[2]:='0108';
      Pismeno[3]:='0108';
      Pismeno[4]:='0108';
      Pismeno[5]:='0102030405060708';
      Pismeno[6]:='0108';
      Pismeno[7]:='0108';
      Pismeno[8]:='0108';
      Pismeno[9]:='0108';
      Pismeno[10]:='0108';
      Pismeno[11]:='0108';
   End;
9: Begin
      Pismeno[1]:='01';
      Pismeno[2]:='01';
      Pismeno[3]:='01';
      Pismeno[4]:='01';
      Pismeno[5]:='01';
      Pismeno[6]:='01';
      Pismeno[7]:='01';
      Pismeno[8]:='01';
      Pismeno[9]:='01';
      Pismeno[10]:='01';
      Pismeno[11]:='01';
   End;
10: Begin
      Pismeno[1]:='05';
      Pismeno[2]:='05';
      Pismeno[3]:='05';
      Pismeno[4]:='05';
      Pismeno[5]:='05';
      Pismeno[6]:='05';
      Pismeno[7]:='05';
      Pismeno[8]:='05';
      Pismeno[9]:='05';
      Pismeno[10]:='0405';
      Pismeno[11]:='01020304';
    End;
11: Begin
      Pismeno[1]:='010607';
      Pismeno[2]:='010506';
      Pismeno[3]:='010405';
      Pismeno[4]:='0104';
      Pismeno[5]:='01030405';
      Pismeno[6]:='0103040506';
      Pismeno[7]:='010607';
      Pismeno[8]:='010708';
      Pismeno[9]:='0108';
      Pismeno[10]:='0108';
      Pismeno[11]:='0108';
    End;
12: Begin
      Pismeno[1]:='01';
      Pismeno[2]:='01';
      Pismeno[3]:='01';
      Pismeno[4]:='01';
      Pismeno[5]:='01';
      Pismeno[6]:='01';
      Pismeno[7]:='01';
      Pismeno[8]:='01';
      Pismeno[9]:='01';
      Pismeno[10]:='01';
      Pismeno[11]:='010203040506';
    End;
13: Begin
      Pismeno[1]:='0210';
      Pismeno[2]:='0310';
      Pismeno[3]:='02031011';
      Pismeno[4]:='020304091011';
      Pismeno[5]:='02040911';
      Pismeno[6]:='020405080911';
      Pismeno[7]:='010205081112';
      Pismeno[8]:='010506070812';
      Pismeno[9]:='01060712';
      Pismeno[10]:='0106071213';
      Pismeno[11]:='01061213';
    End;
14: Begin
      Pismeno[1]:='0109';
      Pismeno[2]:='010209';
      Pismeno[3]:='01020309';
      Pismeno[4]:='0102030409';
      Pismeno[5]:='0103040509';
      Pismeno[6]:='0104050609';
      Pismeno[7]:='0105060709';
      Pismeno[8]:='0106070809';
      Pismeno[9]:='01070809';
      Pismeno[10]:='010809';
      Pismeno[11]:='0109';
    End;
15: Begin
      Pismeno[1]:='040506070809';
      Pismeno[2]:='03040910';
      Pismeno[3]:='0211';
      Pismeno[4]:='0112';
      Pismeno[5]:='0112';
      Pismeno[6]:='0112';
      Pismeno[7]:='0112';
      Pismeno[8]:='0112';
      Pismeno[9]:='0211';
      Pismeno[10]:='03040910';
      Pismeno[11]:='040506070809';
    End;
16: Begin
      Pismeno[1]:='0102030405060708';
      Pismeno[2]:='010809';
      Pismeno[3]:='0109';
      Pismeno[4]:='0109';
      Pismeno[5]:='0109';
      Pismeno[6]:='01030405060708';
      Pismeno[7]:='01';
      Pismeno[8]:='01';
      Pismeno[9]:='01';
      Pismeno[10]:='01';
      Pismeno[11]:='01';
    End;
17: Begin
      Pismeno[1]:='040506070809';
      Pismeno[2]:='03040910';
      Pismeno[3]:='0211';
      Pismeno[4]:='0112';
      Pismeno[5]:='0112';
      Pismeno[6]:='0112';
      Pismeno[7]:='0112';
      Pismeno[8]:='01080912';
      Pismeno[9]:='0209101112';
      Pismeno[10]:='03041011';
      Pismeno[11]:='0506070809101112';
    End;
18: Begin
      Pismeno[1]:='01020304050607';
      Pismeno[2]:='0108';
      Pismeno[3]:='0107';
      Pismeno[4]:='0107';
      Pismeno[5]:='01050607';
      Pismeno[6]:='0104070809';
      Pismeno[7]:='010809';
      Pismeno[8]:='010910';
      Pismeno[9]:='0110';
      Pismeno[10]:='0110';
      Pismeno[11]:='0110';
    End;
19: Begin
      Pismeno[1]:='02030405060708091011';
      Pismeno[2]:='0102';
      Pismeno[3]:='0102';
      Pismeno[4]:='0102030405';
      Pismeno[5]:='030405060708';
      Pismeno[6]:='07080910';
      Pismeno[7]:='0910';
      Pismeno[8]:='1011';
      Pismeno[9]:='11';
      Pismeno[10]:='11';
      Pismeno[11]:='0102030405060708091011';
    End;
20: Begin
      Pismeno[1]:='01020304050607080910';
      Pismeno[2]:='05';
      Pismeno[3]:='05';
      Pismeno[4]:='05';
      Pismeno[5]:='05';
      Pismeno[6]:='05';
      Pismeno[7]:='05';
      Pismeno[8]:='05';
      Pismeno[9]:='05';
      Pismeno[10]:='05';
      Pismeno[11]:='05';
    End;
21: Begin
      Pismeno[1]:='0109';
      Pismeno[2]:='0109';
      Pismeno[3]:='0109';
      Pismeno[4]:='0109';
      Pismeno[5]:='0109';
      Pismeno[6]:='0109';
      Pismeno[7]:='0109';
      Pismeno[8]:='0109';
      Pismeno[9]:='0109';
      Pismeno[10]:='01020809';
      Pismeno[11]:='02030405060708';
    End;
22: Begin
      Pismeno[1]:='0110';
      Pismeno[2]:='0110';
      Pismeno[3]:='01020910';
      Pismeno[4]:='0209';
      Pismeno[5]:='02030809';
      Pismeno[6]:='03040708';
      Pismeno[7]:='0407';
      Pismeno[8]:='04050607';
      Pismeno[9]:='0506';
      Pismeno[10]:='0506';
      Pismeno[11]:='05';
    End;
23: Begin
      Pismeno[1]:='010815';
      Pismeno[2]:='010815';
      Pismeno[3]:='0107080915';
      Pismeno[4]:='010207091415';
      Pismeno[5]:='020607091014';
      Pismeno[6]:='020306101314';
      Pismeno[7]:='030506101113';
      Pismeno[8]:='030405111213';
      Pismeno[9]:='0405111213';
      Pismeno[10]:='0412';
      Pismeno[11]:='0412';
    End;
24: Begin
      Pismeno[1]:='0102080910';
      Pismeno[2]:='010208';
      Pismeno[3]:='020307';
      Pismeno[4]:='03040607';
      Pismeno[5]:='040506';
      Pismeno[6]:='040506';
      Pismeno[7]:='03040607';
      Pismeno[8]:='03040607';
      Pismeno[9]:='02030708';
      Pismeno[10]:='01020809';
      Pismeno[11]:='0102080910';
    End;
25: Begin
      Pismeno[1]:='01070809';
      Pismeno[2]:='010708';
      Pismeno[3]:='01020607';
      Pismeno[4]:='02030506';
      Pismeno[5]:='0305';
      Pismeno[6]:='0304';
      Pismeno[7]:='04';
      Pismeno[8]:='04';
      Pismeno[9]:='04';
      Pismeno[10]:='04';
      Pismeno[11]:='04';
    End;
26: Begin
      Pismeno[1]:='010203040506070809';
      Pismeno[2]:='060708';
      Pismeno[3]:='0607';
      Pismeno[4]:='0506';
      Pismeno[5]:='040506';
      Pismeno[6]:='0405';
      Pismeno[7]:='0304';
      Pismeno[8]:='020304';
      Pismeno[9]:='0203';
      Pismeno[10]:='0102';
      Pismeno[11]:='01020304050607080910';
    End;
End;
End;
Procedure NapisText(X,Y:integer;Text:string;M:byte);
  Var i,o,p,a,b,d,f:integer;
  Begin
    For i:=1 to Length(Text) Do Begin
      f:=Ord(Text[i]);
      d:=0;      
      if f<>32 then PrepniPismeno(f-64) else PrepniPismeno(1);
      For o:=1 to Velikost Do Begin
        For p:=1 to Length(Pismeno[o]) div 2 Do Begin
          Val(Copy(Pismeno[o],p*2-1,2),a,b);
          if f<>32 then PutPixel(X+a,Y+o,7);
          if a>d then d:=a;
        End;
      End;
      X:=X+d+M;
    End;
End;

Begin End.