Unit ttexture

Classes

T3dTexture - T3DTexture: T3DTexture creates, loads and destroys textures [up to 5 textures now but is easy to increase it, just increase the arrays size].

Functions

GetC - Easy bitmap loading
GetInt -
GetRGB -
GetSurfaceDescription - and(c <> ord(''))and(c<>ord('\n'))and(c<>ord('\r')); // or other options
LoadBMPHeader -
LoadPPMHeader - <--- use ascii codes

Types

Constants

Variables


Functions


function GetC(f : TStream) : byte;

Easy bitmap loading

function GetInt(fp : TStream) : integer;


procedure GetRGB(fp : TStream; bFileType : boolean; var r,g,b :integer; var pal : array of TPaletteEntry);


function GetSurfaceDescription(var DDSurfDesc : DDSURFACEDESC;DDSurf : iDIRECTDRAWSURFACE) : HRESULT;

and(c <> ord(''))and(c<>ord('\n'))and(c<>ord('\r')); // or other options

function LoadBMPHeader(fp : TStream; var width,height : DWORD; var ppe : array of TPaletteEntry; var num_color : integer; var bits : integer) : boolean;


function LoadPPMHeader(fp : TStream; var width,height : DWORD; var maxgrey : integer) : boolean;

<--- use ascii codes

Types


Constants


Variables