1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

  TglModelNode = class;
  TglModelNodeList = specialize TFPGObjectList<TglModelNode>;

  TglRotationData = record
    Axis: TgluVector3f;
    RotSpeed: Single;
  end;

  TglModelNode = class(TglRenderObject)
  private
    fChildren: TglModelNodeList;
    fRotationData: TglRotationData;

    function GetCount: Integer;
    function GetChildren(Index: Integer): TglModelNode;
  public
    property Count: Integer read GetCount;
    property Children[Index: Integer]: TglModelNode read GetChildren; default;

    function AddChild: TglModelNode;
    procedure DelChild(aIndex: Integer);
    procedure Clear;

    procedure Render;
    procedure Progress(const DeltaTime: Single);

    constructor Create;
    destructor Destroy; override;
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

  TglObject = class(TObject)
  private
    function GetMatrixPtr: Pointer;
  protected
    fPosition: TgluMatrix4f;
  public
    property MatrixPtr: Pointer read GetMatrixPtr;
    constructor Create;
  end; 

  TglRenderObject = class(TglObject)
  private
    fMesh: TglMesh;
    fColor: TgluVector4f;
    fFrontMaterial, fBackMaterial: TglMaterial;
    fTextureID, fNormalMapID: Cardinal;
    fTexture, fNormalMap: TglBitmap2D;

    function GetMeshID: Cardinal;
    procedure SetMeshID(aMeshID: Cardinal);
    function GetFrontMatID: Cardinal;
    procedure SetFrontMatID(aMaterialID: Cardinal);
    function GetBackMatID: Cardinal;
    procedure SetBackMatID(aMaterialID: Cardinal);
    procedure SetTextureID(aTextureID: Cardinal);
    procedure SetNormalMapID(aTextureID: Cardinal);
  public
    property MeshID         : Cardinal read GetMeshID     write SetMeshID;
    property FrontMaterialID: Cardinal read GetFrontMatID write SetFrontMatID;
    property BackMaterialID : Cardinal read GetBackMatID  write SetBackMatID;
    property TextureID      : Cardinal read fTextureID    write SetTextureID;
    property NormalMapID    : Cardinal read fNormalMapID  write SetNormalMapID;

    procedure Render;

    constructor Create;
    destructor Destroy; override;
  end;