fpc/packages/libndsfpc/examples/graphics/Printing/custom_font/CustomFont.pp

program custom_font;
{$L build/font.o}

{$mode objfpc}

uses
  ctypes, nds9;

const
  fontPalLen = 32;
  fontTilesLen = 3072;
  tile_base = 0;
  map_base = 20;

var
  fontTiles: array [0..767] of cushort; cvar; external;
  fontPal: array [0..255] of cushort; cvar; external;

  console: pPrintConsole;
  font: ConsoleFont;
  keys: integer;

begin
  videoSetModeSub(MODE_0_2D);
  vramSetBankC(VRAM_C_SUB_BG);

  console := consoleInit(nil, 0, BgType_Text4bpp, BgSize_T_256x256, map_base, tile_base, false, false);

  font.gfx := pcuint16(fontTiles);
  font.pal := pcuint16(fontPal);
  font.numChars := 95;
  font.numColors :=  fontPalLen div 2;
  font.bpp := 4;
  font.asciiOffset := 32;
  font.convertSingleColor := false;

  consoleSetFont(console, @font);

  printf('Custom Font Demo'#10);
  printf('   by Poffy'#10);
  printf('modified by WinterMute'#10);
  printf('for libnds examples'#10);

  while true do
  begin
    swiWaitForVBlank();
    scanKeys();
		keys := keysDown();
		if (keys and KEY_START) <> 0 then break;
  end;
end.