LOVE/megasource
1
0
Fork 0
mirror of https://github.com/love2d/megasource.git synced 2026-08-19 04:05:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add DevIL 1.7.8.

Browse Source
This commit is contained in:
rude
2013-09-26 00:20:08 +02:00
parent 6e493fb605
commit c065120c58
487 changed files with 219483 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
libs/DevIL-1.7.8/projects/delphi/openilut.pas
+167
View File
@@ -0,0 +1,167 @@
unit OpenILUT;
//------------------------------------------------------------------------------
//
// ImageLib Utility Toolkit Sources
// Copyright (C) 2000-2002 by Denton Woods
// Last modified: 06/23/2002 <--Y2K Compliant! =]
//
// Filename: il/ilut.h
//
// Description: The main include file for ILUT
//
//------------------------------------------------------------------------------
{******************************************************************************}
{ Converted to Delphi by Alexander Blach (alexander@abee.de) }
{ Version: ILUT v1.6.1 }
{ Last modified: 06/23/2002 }
{ }
{ You will need the latest OpenGL units for Delphi. I recommend those on }
{ http://www.delphi3d.net }
{******************************************************************************}
interface
// Note by ABee: I had to move this here so that I can look it up in "uses"
//{$DEFINE ILUT_USE_ALLEGRO)
{$DEFINE ILUT_USE_WIN32}
{$DEFINE ILUT_USE_OPENGL}
uses
OpenIL,
OpenILU,
{$IFDEF ILUT_USE_OPENGL}
GL,
//OpenGL12,
{$ENDIF}
Windows;
const
ILUT_VERSION_1_5_6 = 1;
ILUT_VERSION = 156;
const
// Attribute Bits
ILUT_OPENGL_BIT = $00000001;
ILUT_D3D_BIT = $00000002;
ILUT_ALL_ATTRIB_BITS = $000FFFFF;
// Error Types
ILUT_INVALID_ENUM = $0501;
ILUT_OUT_OF_MEMORY = $0502;
ILUT_INVALID_VALUE = $0505;
ILUT_ILLEGAL_OPERATION = $0506;
ILUT_INVALID_PARAM = $0509;
ILUT_COULD_NOT_OPEN_FILE = $050A;
ILUT_STACK_OVERFLOW = $050E;
ILUT_STACK_UNDERFLOW = $050F;
ILUT_NOT_SUPPORTED = $0550;
// State Definitions
ILUT_PALETTE_MODE = $0600;
ILUT_OPENGL_CONV = $0610;
ILUT_D3D_MIPLEVELS = $0620;
ILUT_MAXTEX_WIDTH = $0630;
ILUT_MAXTEX_HEIGHT = $0631;
ILUT_MAXTEX_DEPTH = $0632;
ILUT_GL_USE_S3TC = $0634;
ILUT_D3D_USE_DXTC = $0634;
ILUT_GL_GEN_S3TC = $0635;
ILUT_D3D_GEN_DXTC = $0635;
ILUT_S3TC_FORMAT = $0705;
ILUT_DXTC_FORMAT = $0706;
// Values
ILUT_VERSION_NUM = $0DE2;
const
{$IFDEF OPENIL_DEBUG}
ILUTDLL = 'ILUT-d.DLL';
{$ELSE}
ILUTDLL = 'ILUT.DLL';
{$ENDIF}
// ImageLib Utility Toolkit Functions
function ilutDisable(Mode: TILenum): TILboolean; stdcall; external ILUTDLL;
function ilutEnable(Mode: TILenum): TILboolean; stdcall; external ILUTDLL;
function ilutGetBoolean(Mode: TILenum): TILboolean; stdcall; external
ILUTDLL;
procedure ilutGetBooleanv(Mode: TILenum; Param: PILboolean); stdcall; external
ILUTDLL;
function ilutGetInteger(Mode: TILenum): TILint; stdcall; external
ILUTDLL;
procedure ilutGetIntegerv(Mode: TILenum; Param: PILint); stdcall; external
ILUTDLL;
function ilutGetString(StringName: TILenum): PChar; stdcall; external ILUTDLL;
procedure ilutInit; stdcall; external ILUTDLL;
function ilutIsDisabled(Mode: TILenum): TILboolean; stdcall; external ILUTDLL;
function ilutIsEnabled(Mode: TILenum): TILboolean; stdcall; external ILUTDLL;
procedure ilutPopAttrib; stdcall; external ILUTDLL;
procedure ilutPushAttrib(Bits: TILuint); stdcall; external ILUTDLL;
procedure ilutSetInteger(Mode: TILenum; Param: TILint); stdcall; external ILUTDLL;
// The different rendering api's...more to be added later?
const
IL_OPENGL = 0;
IL_ALLEGRO = 1;
IL_WIN32 = 2;
function ilutRenderer(Renderer: TILenum): TILboolean; stdcall; external ILUTDLL;
// ImageLib Utility Toolkit's OpenGL Functions
{$IFDEF ILUT_USE_OPENGL}
function ilutGLBindTexImage: GLuint; stdcall; external ILUTDLL;
function ilutGLBindMipmaps: GLuint; stdcall; external ILUTDLL;
function ilutGLBuildMipmaps: TILboolean; stdcall; external ILUTDLL;
function ilutGLLoadImage(FileName: PChar): GLuint; stdcall; external ILUTDLL;
function ilutGLScreen: TILboolean; stdcall; external ILUTDLL;
function ilutGLScreenie: TILboolean; stdcall; external ILUTDLL;
function ilutGLSaveImage(FileName: PChar; TexID: GLuint): TILboolean;
stdcall; external ILUTDLL;
function ilutGLSetTex(TexID: GLuint): TILboolean; stdcall; external ILUTDLL;
function ilutGLTexImage(Level: GLuint): TILboolean; stdcall; external ILUTDLL;
{$ENDIF}
// note by ABee: no Allegro in Delphi
// ImageLib Utility ToolKit's Allegro Functions
{$IFDEF ILUT_USE_ALLEGRO}
//function ilutConvertToAlleg(var Pal: PALETTE): PBitmap; stdcall; external
//ILUTDLL;
{$ENDIF}
// ImageLib Utility Toolkit's Win32 (DirectX/GDI) Functions
{$IFDEF ILUT_USE_WIN32}
function ilutConvertToHBitmap(DC: HDC): HBITMAP; stdcall; external ILUTDLL;
procedure ilutGetBmpInfo(Info: PBitmapInfo); stdcall; external ILUTDLL;
function ilutGetHPal: HPalette; stdcall; external ILUTDLL;
function ilutGetPaddedData: PILubyte; stdcall; external ILUTDLL;
function ilutGetWinClipboard: TILboolean; stdcall; external ILUTDLL;
function ilutLoadResource(hInst: LongWord; ID: TILint; ResourceType: PChar;
_Type: TILenum): TILboolean; stdcall; external ILUTDLL;
function ilutSetHBitmap(Bitmap: HBITMAP): TILboolean; stdcall; external ILUTDLL;
function ilutSetHPal(Pal: HPALETTE): TILboolean; stdcall; external ILUTDLL;
function ilutSetWinClipboard: TILboolean; stdcall; external ILUTDLL;
function ilutWinLoadImage(FileName: PChar; DC: HDC): HBITMAP; stdcall;
external ILUTDLL;
function ilutWinLoadUrl(Url: PChar): TILboolean; stdcall; external ILUTDLL;
function ilutWinSaveImage(FileName: PChar; Bitmap: HBITMAP): TILboolean;
stdcall; external ILUTDLL;
{
//#ifdef ILUT_USE_DIRECTX7
// LPDIRECTDRAWSURFACE7 ILAPIENTRY ilutDX7Surface(char *FileName, LPDIRECTDRAW7 DDraw);
//#endif//ILUT_USE_DIRECTX7
}
{$ENDIF}
implementation
end.