{******************************************}
{                                          }
{             FastReport FMX v2.0          }
{            	Font parser                }
{                                          }
{         Copyright (c) 1998-2013          }
{          by Aleksey Mandrykin,       	   }
{             Fast Reports Inc.            }
{                                          }
{******************************************}

unit FMX.frxPostScriptClass;
interface uses FMX.TTFHelpers, FMX.frxTrueTypeTable;

  type // Nested Types
      PostScript = packed record
          public isFixedPitch: Cardinal;
          public ItalicAngle: Integer;
          public maxMemType1: Cardinal;
          public maxMemType42: Cardinal;
          public minMemType1: Cardinal;
          public minMemType42: Cardinal;
          public underlinePosition: Smallint;
          public underlineThickness: Smallint;
          public Version: Cardinal;
      end;


    PostScriptClass = class(TrueTypeTable)
      strict private post_script: PostScript;

      // Methods
      public constructor Create(src: TrueTypeTable);
      strict private procedure ChangeEndian;
      public procedure Load(font: Pointer); override;
      public function Save(font: Pointer; offset: Cardinal): Cardinal; override;

      // Properties
      public property ItalicAngle: Integer read post_script.ItalicAngle;

end;

implementation

// Methods
    constructor PostScriptClass.Create(src: TrueTypeTable);
    begin
      inherited Create(src);
    end;

    procedure PostScriptClass.ChangeEndian;
    begin
        self.post_script.Version := TTF_Helpers.SwapUInt32(self.post_script.Version);
        self.post_script.ItalicAngle := TTF_Helpers.SwapInt32(self.post_script.ItalicAngle);
        self.post_script.underlinePosition := TTF_Helpers.SwapInt16(self.post_script.underlinePosition);
        self.post_script.underlineThickness := TTF_Helpers.SwapInt16(self.post_script.underlineThickness);
        self.post_script.isFixedPitch := TTF_Helpers.SwapUInt32(self.post_script.isFixedPitch);
        self.post_script.minMemType42 := TTF_Helpers.SwapUInt32(self.post_script.minMemType42);
        self.post_script.maxMemType42 := TTF_Helpers.SwapUInt32(self.post_script.maxMemType42);
        self.post_script.minMemType1 := TTF_Helpers.SwapUInt32(self.post_script.minMemType1);
        self.post_script.maxMemType1 := TTF_Helpers.SwapUInt32(self.post_script.maxMemType1)
    end;

    procedure PostScriptClass.Load(font: Pointer);
    var
      post_script: ^PostScript;
    begin
        post_script := TTF_Helpers.Increment(font, self.entry.offset);
        self.post_script.Version := post_script.Version;
        self.post_script.ItalicAngle := post_script.ItalicAngle;
        self.post_script.underlinePosition := post_script.underlinePosition;
        self.post_script.underlineThickness := post_script.underlineThickness;
        self.post_script.isFixedPitch := post_script.isFixedPitch;
        self.post_script.minMemType42 := post_script.minMemType42;
        self.post_script.maxMemType42 := post_script.maxMemType42;
        self.post_script.minMemType1 := post_script.minMemType1;
        self.post_script.maxMemType1 := post_script.maxMemType1;
        self.ChangeEndian
    end;

    function PostScriptClass.Save(font: Pointer; offset: Cardinal): Cardinal;
    var
      post_script: ^PostScript;
    begin
        self.entry.offset := offset;
        self.post_script.Version := $30000;
        self.entry.length := SizeOf(PostScript);
        self.ChangeEndian;
        post_script := TTF_Helpers.Increment(font, self.entry.offset);
        post_script.Version := self.post_script.Version;
        post_script.ItalicAngle := self.post_script.ItalicAngle;
        post_script.underlinePosition := self.post_script.underlinePosition;
        post_script.underlineThickness := self.post_script.underlineThickness;
        post_script.isFixedPitch := self.post_script.isFixedPitch;
        post_script.minMemType42 := self.post_script.minMemType42;
        post_script.maxMemType42 := self.post_script.maxMemType42;
        post_script.minMemType1 := self.post_script.minMemType1;
        post_script.maxMemType1 := self.post_script.maxMemType1;
        self.ChangeEndian;
        Result := offset + self.entry.length
    end;
end.