gl_image.pas

雷神之锤2(Quake2)Delphi源码

// PLEASE, don't modify this file
// 60% complete

{----------------------------------------------------------------------------}
{                                                                            }
{ File(s): gl_model.c - model loading and caching                            }
{                                                                            }
{ Initial conversion by : YgriK (Igor Karpov) - [e-mail]            }
{ Initial conversion on : 03-Apr-2002                                        }
{                                                                            }
{ This File contains part of convertion of Quake2 source to ObjectPascal.    }
{ More information about this project can be found at:                       }
{ http://www.sulaco.co.za/quake2/                                            }
{                                                                            }
{ Copyright (C) 1997-2001 Id Software, Inc.                                  }
{                                                                            }
{ This program is free software; you can redistribute it and/or              }
{ modify it under the terms of the GNU General Public License                }
{ as published by the Free Software Foundation; either version 2             }
{ of the License, or (at your option) any later version.                     }
{                                                                            }
{ This program is distributed in the hope that it will be useful,            }
{ but WITHOUT ANY WARRANTY; without even the implied warranty of             }
{ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                       }
{                                                                            }
{ See the GNU General Public License for more details.                       }
{                                                                            }
{----------------------------------------------------------------------------}
{ Updated on :                                                               }
{ Updated by :                                                               }
{                                                                            }
{----------------------------------------------------------------------------}
{ * Still dependent (to compile correctly) on:                               }
{ 1) xxx                                                                     }
{                                                                            }
{----------------------------------------------------------------------------}
{ * TODO:                                                                    }
{ 1) Do more tests                                                           }
{                                                                            }
{----------------------------------------------------------------------------}

unit gl_image;

interface

uses gl_local, q_shared, GL;

//...
procedure GL_EnableMultitexture (enable : qboolean); //for gl_rsurf
procedure GL_TexEnv (mode : GLenum); //a few files
procedure GL_Bind (texnum : integer); //a few files

procedure GL_TextureMode (_string : PChar); //for gl_rmain
procedure GL_TextureAlphaMode (_string : PChar); //for gl_rmain
procedure GL_TextureSolidMode (_string : PChar); //for gl_rmain

procedure GL_ImageList_f; //for gl_rmain

function GL_FindImage (name : PChar; _type : imagetype_t) : image_p; //for gl_model
function R_RegisterSkin (name : PChar) : image_p; cdecl; //for gl_rmain
procedure GL_FreeUnusedImages; //for gl_model

function Draw_GetPalette : integer; //for gl_rmain
procedure GL_InitImages; //for gl_rmain
procedure GL_ShutdownImages; //for gl_rmain



implementation


uses qgl_win, ref;


//666
procedure GL_SelectTexture (texture : GLenum); forward;


(*
image_t		gltextures[MAX_GLTEXTURES];
int			numgltextures;
int			base_textureid;		// gltextures[i] = base_textureid+i

static byte			 intensitytable[256];
static unsigned char gammatable[256];

cvar_t		*intensity;

unsigned	d_8to24table[256];

qboolean GL_Upload8 (byte *data, int width, int height,  qboolean mipmap, qboolean is_sky );
qboolean GL_Upload32 (unsigned *data, int width, int height,  qboolean mipmap);


int		gl_solid_format = 3;
int		gl_alpha_format = 4;

int		gl_tex_solid_format = 3;
int		gl_tex_alpha_format = 4;*)


//鳞巳