USYSFONT.PAS

{
  usysfont Unit
  The system font. No loading or saving to file required, it resides
  fully in memory and it can simply be used by importing this unit.
  It doesn't even need the full KB!
  2022 LRT
}
unit
  usysfont;

interface

  uses
    utfont;

  var
    SystemFont: PTinyFont;

implementation

  const
    C_SYSTEM_FONT_NAME = 'Catus';

    C_SYSTEM_FONT_CHARS: array [0..127] of longint = (
      $02811700, $0280E880, $0281F000, $239C4010,
      $04544544, $00476E20, $010DF310, $0119F610,
      $011DF210, $0109F710, $03A318B8, $03A358B8,
      $03B75DB8, $03BFFFB8, $07E318FC, $07E358FC,
      $07FFFFFC, $01151510, $01155510, $011DF710,
      $19DEF38C, $FFFFFFFC, $C73DEE60, $00000000,
      $00000000, $00000000, $00000000, $00000000,
      $00000000, $00000000, $00000000, $00000000,
      $00000000, $21084010, $92520000, $02BEAFA8,
      $23E8E2F8, $067445CC, $65115934, $21080000,
      $11108208, $41042220, $0455F544, $0109F210,
      $00000220, $003C0000, $00000630, $00444440,
      $74EB5CB8, $2328427C, $7444447C, $744C18B8,
      $94A5F108, $FC3C18B8, $742D98B8, $F8444440,
      $745D18B8, $745E18B8, $63000630, $01000220,
      $00888208, $07C00F80, $02082220, $74426010,
      $746BBB3C, $22A3F8C4, $F47D18F8, $746108B8,
      $E4A31970, $FC39087C, $FC390840, $746138BC,
      $8C7F18C4, $F908427C, $38852930, $8CB94944,
      $8421087C, $8EEB18C4, $8E6B59C4, $746318B8, 
      $F463E840, $74635934, $F463E944, $745828B8,
      $F9084210, $8C6318B8, $8C631510, $8C635AA8,
      $8A884544, $8C544210, $F844447C, $7A10843C,
      $04104104, $F0842178, $22A20000, $0000007C,
      $41080000, $0382F8BC, $87A318F8, $03E1083D,
      $0BE318BC, $03A3F838, $03E1C840, $03E2F0BC,
      $85B318C4, $20084208, $20084A20, $84A98A48,
      $42108418, $02AB5AD4, $05B318C4, $03A318B8,
      $07A31F40, $03E31784, $04E98840, $03A0E0B8,
      $4790841C, $046318B8, $04631510, $04631AA8,
      $04544544, $0462F0B8, $0784447C, $3A20841C,
      $21084210, $E0822170, $026B3000, $00000000
    );

begin
  SystemFont := new(PTinyFont, initWithData(#0, #127, @C_SYSTEM_FONT_CHARS));
  SystemFont^.setName(C_SYSTEM_FONT_NAME);
end.