fpcsrc/packages/libogcfpc/src/ogc/tpl.inc


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

{$IFDEF OGC_INTERFACE}
type
  FHANDLE = pointer;

  _tplfile = record
    type_ : cint;
    ntextures : cint;
    texdesc : pointer;
    tpl_file : FHANDLE;
  end;
  TPLFile = _tplfile;
  PTPLFile = ^TPLFile;


function TPL_OpenTPLFromFile(tdf: PTPLFile; file_name: pcchar): cint32; cdecl; external;

function TPL_OpenTPLFromMemory(tdf: PTPLFile; memory: pointer; len: cuint32): cint32; cdecl; external;

function TPL_GetTexture(tdf: PTPLFile; id: cint32; texObj: PGXTexObj): cint32; cdecl; external;

function TPL_GetTextureCI(tdf: PTPLFile; id: cint32; texObj: PGXTexObj; tlutObj: PGXTlutObj; tluts: cuint8): cint32; cdecl; external;

function TPL_GetTextureInfo(tdf: PTPLFile; id: cint32; fmt: pcuint32; width, height: pcuint16): cint32; cdecl; external;

procedure TPL_CloseTPLFile(tdf: PTPLFile); cdecl; external;
{$ENDIF OGC_INTERFACE}