【Spine】Spine Runtime for Delphi移植筆記（四） - spine.classes

////////////////////////////////////////////////////////////////////////////////
//Generic delphi runtime v3.6 for Spine animation tool                        //
//Runtime port by cjk ([email protected])                                       //
////////////////////////////////////////////////////////////////////////////////

unit spine.classes;

interface

uses
  System.Classes, System.SysUtils, System.Generics.Collections, spine.types;

type
  THashSet<T> = class
  private
  public
    procedure Clear;
    function Add(const Item: T): Boolean;
  end;

  TExposedList<T> = class(TList<T>)
  private
    FVersion: Integer;
    procedure ClearEx(const AIndex, ALen: Integer); overload;
    procedure Shift(const AStart, ADelta: Integer);
  public
    procedure EnsureCapacity(const AMin: Integer);
    procedure ClearEx(const AClearArray: Boolean = True); overload;
    function  Resize(const ANewSize: Integer): TExposedList<T>;
    procedure RemoveAt(const AIndex: Integer);
    procedure CopyFrom(const ASource: TExposedList<T>); overload;
    procedure CopyFrom(const ASource: TExposedList<T>;
      const ASourceStart, ATargetStart, ACount: Integer); overload;
  end;

  TSpineTexture = class(TObject)

  end;

  TAtlasPage = class(TObject)
  public
    Name: AnsiString;
    Format: TPageFormat;
    MinFilter: TPageTextureFilter;
    MagFilter: TPageTextureFilter;
    WrapU: TPageTextureWrap;
    WrapV: TPageTextureWrap;
    Texture: TSpineTexture;
    Width: Integer;
    Height: Integer;
    end;

  TAtlasRegion = class(TObject)
    Page: TAtlasPage;
    Name: AnsiString;
    X: Integer;
    Y: Integer;
    Width: Integer;
    Height: Integer;
    U: Single;
    V: Single;
    U2: Single;
    V2: Single;
    OffsetX: Single;
    OffsetY: Single;
    OriginalWidth: Integer;
    OriginalHeight: Integer;
    Index: Integer;
    Rotate: Boolean;
    Splits: array of Integer;
    Pads: array of Integer;
    end;

  ITextureLoader = class abstract
    function LoadTexture(const Page: TAtlasPage; const TextureName: string): TSpineTexture; virtual; abstract;
  end;

  IUpdateable = class abstract
    procedure Update; virtual; abstract;
  end;

  IAtlas = class abstract end;
  ISkeleton = class abstract end;
  IBone = class(IUpdateable) end;
  ISlot = class abstract end;
  IEvent = class abstract end;
  IAnimation = class abstract end;
  IAnimationState = class abstract end;
  ISkin = class abstract end;

  IAttachment = class abstract
  protected
    function GetID: Integer; virtual; abstract;
    function GetName: string; virtual; abstract;
  public
    property ID: Integer read GetID;
    property Name: string read GetName;
  end;

  IConstraint = class(IUpdateable)
  protected
    function GetOrder: Integer; virtual; abstract;
  public
    property Order: Integer read GetOrder;
  end;

  ITimeline = class abstract
  protected
    function GetPropertyId: Integer; virtual; abstract;
  public
    procedure Apply(const ASkeleton: ISkeleton;
                    const ALastTime, ATime: Single;
                    const AEvents: TList<IEvent>;
                    const AAlpha: Single;
                    const APose: TMixPose;
                    const ADirection: TMixDirection); virtual; abstract;
    property PropertyId: Integer read GetPropertyId;
  end;

implementation

end.

類定義，I 開頭的抽象類大多數只是為了定義一下，因為需要單元間交叉引用，但是又不想都是定義為TObject，寫介面又沒必要，只能這麼寫了。