{ This software is in the public domain. }
{$MODE OBJFPC}
{$ASSERTIONS ON}

uses classes, type_fixes, sysutils, FNT;

var
  VInputStream : TStream;
  VLoader : FNT.TLoader;
  VCode : TByte;
begin
  VInputStream := TFileStream.Create(ParamStr(1), fmOpenRead);
  VLoader := FNT.TLoader.Create(VInputStream, True);

  Writeln(Format('Copyright: "%s"', [VLoader.Header.Copyright]));
  Writeln(Format('Face Name: "%s"', [VLoader.FaceName]));
  Writeln(Format('Device Name: "%s"', [VLoader.DeviceName]));
  
  for VCode := VLoader.Header.FirstCode to VLoader.Header.LastCode do begin
    with VLoader.Glyphs[VCode] do begin
      Writeln(Format('%s = """', [VLoader.GetCharacterName(VCode)]));
      DumpGlyph(Bitmap, Width, VLoader.Header.CommonHeight);
      Writeln('""",');
    end;
  end;
end.