Unit GfxFont;

Interface

Const
  Font6x7 : Array[0..2049] of Byte =
( 6,  7,  0,  0,  0,  0,  0,  0,  0,  0,120,132,204,132,180,120,
  0,  0,120,252,180,252,204,120,  0,  0, 80,248,248,248,112, 32,
  0,  0, 32,112,248,248,112, 32,  0,  0, 32,112, 32,112,248,112,
248,  0, 32,112,248,248,248, 32,248,  0,  0, 48,120,120, 48,  0,
  0,  0,252,204,132,132,204,252,  0,  0,120,204,132,132,204,120,
  0,  0,252,204,180,180,204,252,  0,  0, 28, 12,116,144,144, 96,
  0,  0, 48, 72, 72, 48,120, 48, 48,  0,120, 72,120, 64, 64,192,
192,  0,120, 72,120, 72, 88,216,192,  0,132,120,204,204,120,132,
  0,  0,  0, 96,112,120,112, 96,  0,  0,  0, 24, 56,120, 56, 24,
  0,  0, 32,112,248, 32,248,112, 32,  0,216,216,216,216,216,  0,
216,  0,124,248,216, 88, 88, 88,  0,  0,112,136, 96, 80, 48,136,
112,  0,  0,  0,  0,  0,120,120,  0,  0, 32,112,248, 32,248,112,
248,  0, 48,120,252, 48, 48, 48,  0,  0, 48, 48, 48,252,120, 48,
  0,  0, 32, 48,248,248, 48, 32,  0,  0, 32, 96,248,248, 96, 32,
  0,  0,  0,192,192,192,248,  0,  0,  0,  0, 40,108,254,108, 40,
  0,  0,  0, 32,112,248,248,  0,  0,  0,  0,  0,248,248,112, 32,
  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 48, 48, 48, 48, 48,  0,
 48,  0, 80, 80, 80,  0,  0,  0,  0,  0, 80,248, 80, 80,248, 80,
  0,  0, 48,124,176,120, 52,248, 48,  0,200,216, 48, 96,216,152,
  0,  0,112,216,116, 88,216,116,  0,  0, 48, 48, 96,  0,  0,  0,
  0,  0, 56, 64,192,192, 64, 56,  0,  0,224, 16, 24, 24, 16,224,
  0,  0,  0, 80, 32,248, 32, 80,  0,  0,  0, 32, 32,248, 32, 32,
  0,  0,  0,  0,  0,  0, 48, 48, 96,  0,  0,  0,  0,248,  0,  0,
  0,  0,  0,  0,  0,  0,  0, 48, 48,  0,  8, 24, 48, 96,192,128,
  0,  0,112,200,216,232,200,112,  0,  0, 48,112, 48, 48, 48,120,
  0,  0,112,200, 24, 48, 96,248,  0,  0,248, 24, 48, 24,152,112,
  0,  0, 24, 56,104,200,252, 24,  0,  0,248,192,240,  8,200,240,
  0,  0,112,192,240,200,200,112,  0,  0,248,152, 24, 48, 48, 48,
  0,  0,112,200,112,200,200,112,  0,  0,112,200,200,120,  8,112,
  0,  0,  0, 48, 48,  0, 48, 48,  0,  0,  0, 48, 48,  0, 48, 48,
 96,  0,  0, 48, 96,192, 96, 48,  0,  0,  0,  0,248,  0,248,  0,
  0,  0,  0, 96, 48, 24, 48, 96,  0,  0,120,204, 12, 56, 48,  0,
 48,  0,112,200,216,216,192,120,  0,  0, 56, 88,152,248,152,152,
  0,  0,224,208,240,200,200,240,  0,  0,112,200,192,192,200,112,
  0,  0,224,208,200,200,200,240,  0,  0,248,192,240,192,192,248,
  0,  0,248,192,240,192,192,192,  0,  0,112,200,192,216,200,112,
  0,  0,200,200,248,200,200,200,  0,  0,120, 48, 48, 48, 48,120,
  0,  0, 56, 24, 24,152,152,112,  0,  0,200,208,240,200,200,200,
  0,  0,192,192,192,200,216,248,  0,  0,136,216,232,232,200,200,
  0,  0,200,200,232,248,216,200,  0,  0,112,200,200,200,200,112,
  0,  0,240,200,200,240,192,192,  0,  0,112,200,216,216,204,116,
  0,  0,240,200,200,240,208,200,  0,  0,112,200, 96, 16,152,112,
  0,  0,252, 48, 48, 48, 48, 48,  0,  0,200,200,200,200,200,112,
  0,  0,200,200,200,200, 80, 32,  0,  0,200,200,232,232,232, 80,
  0,  0,216,216,112,112,216,216,  0,  0,200,200,200, 48, 48, 48,
  0,  0,248,152, 48, 96,200,248,  0,  0,248,192,192,192,192,248,
  0,  0,128,192, 96, 48, 24,  8,  0,  0,248, 24, 24, 24, 24,248,
  0,  0, 32,112,216,136,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,
252,  0, 48, 48, 24,  0,  0,  0,  0,  0,  0,112, 24,120,216,116,
  0,  0,224, 96,120,108,108,184,  0,  0,  0,112,200,192,200,112,
  0,  0, 56, 24,120,216,216,116,  0,  0,  0,120,204,248,192,124,
  0,  0, 56,100,240, 96, 96,240,  0,  0,  0,116,216,216,120, 24,
240,  0,192,192,240,216,216,216,  0,  0, 48,  0,112, 48, 48,120,
  0,  0, 24,  0, 24, 24, 88, 48,  0,  0,192,200,208,224,216,204,
  0,  0,112, 48, 48, 48, 48,120,  0,  0,  0,208,232,232,200,200,
  0,  0,  0,240,216,216,216,216,  0,  0,  0,112,200,200,200,112,
  0,  0,  0,216,108,108,120, 96,240,  0,  0,116,216,216,120, 24,
 60,  0,  0,216,116, 96, 96,240,  0,  0,  0,120,192,120, 28,248,
  0,  0, 48, 48,252, 48, 52, 24,  0,  0,  0,200,200,200,200,116,
  0,  0,  0,200,200,200, 80, 32,  0,  0,  0,200,200,232,248, 80,
  0,  0,  0,216,112, 32,112,216,  0,  0,  0,152,152,120, 24,240,
  0,  0,  0,248, 24,112,192,248,  0,  0, 56, 96,192, 96, 96, 56,
  0,  0, 48, 48, 48, 48, 48, 48,  0,  0,224, 48, 24, 48, 48,224,
  0,  0,108,248,144,  0,  0,  0,  0,  0,  0, 32,112,216,216,248,
  0,  0, 56, 88,152,248,152,152,  0,  0,240,192,240,200,200,240,
  0,  0,224,208,240,200,200,240,  0,  0,248,200,192,192,192,192,
  0,  0, 56, 88, 88, 88, 88,252,132,  0,248,192,240,192,192,248,
  0,  0,168,168,112,168,168,168,  0,  0,112,152, 48, 24,152,112,
  0,  0,200,200,216,248,232,200,  0,  0,168,136,152,184,232,200,
  0,  0,200,208,240,200,200,200,  0,  0, 56, 88, 88, 88, 88,152,
  0,  0,136,216,232,232,200,200,  0,  0,200,200,248,200,200,200,
  0,  0,112,200,200,200,200,112,  0,  0,248,200,200,200,200,200,
  0,  0,240,200,200,240,192,192,  0,  0,112,200,192,192,200,112,
  0,  0,252, 48, 48, 48, 48, 48,  0,  0,152,152,120, 24,152,112,
  0,  0,120,180,180,120, 48, 48,  0,  0,216,216,112,112,216,216,
  0,  0,200,200,200,200,200,252,  4,  0,152,152,152,120, 24, 24,
  0,  0,200,200,232,232,232,248,  0,  0,200,200,232,232,232,252,
  4,  0,224, 96,112,104,104,112,  0,  0,200,200,232,216,216,232,
  0,  0,192,192,240,200,200,240,  0,  0,112,152, 56, 24,152,112,
  0,  0,144,168,232,168,168,144,  0,  0,120,152,152,120, 88,152,
  0,  0,  0,112, 24,120,216,116,  0,  0,120,192,240,216,216,112,
  0,  0,  0,224,208,240,200,240,  0,  0,  0,248,200,192,192,192,
  0,  0,  0, 56, 88, 88, 88,252,132,  0,  0,120,204,248,192,124,
  0,  0,  0,168,168,112,168,168,  0,  0,  0,112,152, 48,152,112,
  0,  0,  0,200,200,216,232,200,  0,  0, 32,136,200,216,232,200,
  0,  0,192,200,208,224,216,204,  0,  0,  0, 56, 88, 88, 88,152,
  0,  0,  0,136,216,232,200,200,  0,  0,  0,200,200,248,200,200,
  0,  0,  0,112,200,200,200,112,  0,  0,  0,248,200,200,200,200,
  0,  0, 32,136, 32,136, 32,136, 32,  0, 84,168, 84,168, 84,168,
 84,  0,216,116,216,236,216,116,216,  0, 24, 24, 24, 24, 24, 24,
 24, 24, 24, 24, 24, 24,248, 24, 24, 24, 24, 24,248, 24,248, 24,
 24, 24, 54, 54, 54, 54,246, 54, 54, 54,  0,  0,  0,  0,254, 54,
 54, 54,  0,  0,248, 24,248, 24, 24, 24, 54, 54,246,  6,246, 54,
 54, 54, 54, 54, 54, 54, 54, 54, 54, 54,  0,  0,254,  6,246, 54,
 54, 54, 54, 54,246,  6,254,  0,  0,  0, 54, 54, 54, 54,254,  0,
  0,  0, 24, 24,248, 24,248,  0,  0,  0,  0,  0,  0,  0,248, 24,
 24, 24, 24, 24, 24, 24, 31,  0,  0,  0, 24, 24, 24, 24,255,  0,
  0,  0,  0,  0,  0,  0,255, 24, 24, 24, 24, 24, 24, 24, 31, 24,
 24, 24,  0,  0,  0,  0,255,  0,  0,  0, 24, 24, 24, 24,255, 24,
 24, 24, 24, 24, 31, 24, 31, 24, 24, 24, 54, 54, 54, 54, 55, 54,
 54, 54, 54, 54, 55, 48, 63,  0,  0,  0,  0,  0, 63, 48, 55, 54,
 54, 54, 54, 54,247,  0,255,  0,  0,  0,  0,  0,255,  0,247, 54,
 54, 54, 54, 54, 55, 48, 55, 54, 54, 54,  0,  0,255,  0,255,  0,
  0,  0, 54, 54,247,  0,247, 54, 54, 54, 24, 24,255,  0,255,  0,
  0,  0, 54, 54, 54, 54,255,  0,  0,  0,  0,  0,255,  0,255, 24,
 24, 24,  0,  0,  0,  0,255, 54, 54, 54, 54, 54, 54, 54, 63,  0,
  0,  0, 24, 24, 31, 24, 31,  0,  0,  0,  0,  0, 31, 24, 31, 24,
 24, 24,  0,  0,  0,  0, 63, 54, 54, 54, 54, 54, 54, 54,255, 54,
 54, 54, 24, 24,255, 24,255, 24, 24, 24, 24, 24, 24, 24,248,  0,
  0,  0,  0,  0,  0,  0, 31, 24, 24, 24,252,252,252,252,252,252,
252,  0,  0,  0,  0,252,252,252,252,  0,224,224,224,224,224,224,
224,  0, 28, 28, 28, 28, 28, 28, 28,  0,252,252,252,252,  0,  0,
  0,  0,  0,216,108,108,120, 96,240,  0,  0,112,200,192,200,112,
  0,  0,  0,252, 48, 48, 48, 48,  0,  0,  0,152,152,120, 24,240,
  0,  0, 32,112,168,168,112, 32,  0,  0,  0,216,112, 32,112,216,
  0,  0,  0,200,200,200,200,252,  4,  0,  0,152,152,120, 24, 24,
  0,  0,  0,200,200,232,232,248,  0,  0,  0,200,200,232,232,252,
  4,  0,  0,224, 96,112,104,112,  0,  0,  0,200,200,232,216,232,
  0,  0,  0,192,192,240,200,240,  0,  0,  0,112,152, 56,152,112,
  0,  0,  0,144,168,232,168,144,  0,  0,  0,120,216,120, 88,152,
  0,  0,  0,248,  0,248,  0,248,  0,  0, 32, 32,248, 32, 32,  0,
248,  0,192, 96, 48, 96,192,  0,248,  0, 48, 96,192, 96, 48,  0,
248,  0, 24, 52, 52, 48, 48, 48, 48,  0, 48, 48, 48, 48,176,176,
 96,  0,  0, 32,  0,248,  0, 32,  0,  0,  0,108,216,  0,108,216,
  0,  0,112,216,216,112,  0,  0,  0,  0,  0,  0, 48, 48,  0,  0,
  0,  0,  0,  0,  0, 48,  0,  0,  0,  0, 28, 24,152,216,120, 56,
  0,  0,208,232,200,200,  0,  0,  0,  0,240, 24,112,248,  0,  0,
  0,  0,  0,120,120,120,120,120,  0,  0,  0,  0,  0,  0,  0,  0,
  0,  0);

Implementation

End.
Published in: Pascal
Download

Related snippets