{ 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.