home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 01 / zoomer / makechar.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-10  |  1.5 KB  |  51 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     MAKECHAR.PAS                       *)
  3. (*    Hilfsprogramm zum Erzeugen der Datei ZSATZ.INC      *)
  4. (*             (c) 1990 Gerd Arnold & TOOLBOX             *)
  5. (* ------------------------------------------------------ *)
  6.  
  7. PROGRAM ZeichenSatz;
  8.  
  9. USES Graph, Crt;
  10.  
  11. VAR ch           : CHAR;
  12.     Gd, Gm, x, y : INTEGER;
  13.     Wert         : BYTE;
  14.     WertStr      : STRING[3];
  15.     Datei        : TEXT;
  16.  
  17. CONST
  18.     Bits: ARRAY[0..7] OF BYTE =
  19.           (128, 64, 32, 16, 8, 4, 2, 1);
  20.  
  21. BEGIN
  22.   DetectGraph(Gd, Gm);
  23.   InitGraph(Gd, Gm, '');
  24.   SetTextStyle(DefaultFont, HorizDir, 1);       { 8x8-Font }
  25.   SetTextJustify(LeftText, TopText);
  26.   SetColor(1);
  27.   Assign(Datei, 'ZSATZ.INC');
  28.   Rewrite(Datei);
  29.   FOR ch := #0 TO #255 DO BEGIN
  30.     OutTextXY(0, 0, ch);              { Zeichen auf Screen }
  31.     Write(Datei, '  {#', Ord(ch):3, '} (');
  32.     IF ch = #0 THEN Write(Datei, '(');
  33.     FOR y := 0 TO 7 DO BEGIN
  34.       Wert := 0;
  35.       FOR x := 0 TO 7 DO
  36.         IF GetPixel(x, y) = 1 THEN
  37.           Wert := Wert OR Bits[x];      { Zeichen codieren }
  38.       Str(Wert, WertStr);
  39.       Write(Datei, WertStr);              { Zahl schreiben }
  40.       IF y < 7 THEN Write(Datei, ', ');
  41.     END;
  42.     IF ch < #255 THEN Writeln(Datei, '),')
  43.     ELSE Writeln(Datei, '));');
  44.     ClearDevice;
  45.   END;
  46.   Close(Datei);
  47.   RestoreCrtMode;
  48. END.
  49. (* ------------------------------------------------------ *)
  50. (*                 Ende von MAKECHAR.PAS                  *)
  51.