index e6246bcc0f833de66dd39080ce5893b272d2f8ad..6055678f343d8e55dafc2c24ff518c666d21863b 100644 (file)
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
-{$MODE DELPHI}
+{$INCLUDE ../shared/a_modes.inc}
unit e_textures;
{ This unit provides interface to load 24-bit and 32-bit uncompressed images
var
Texture: GLuint;
fmt: GLenum;
- buf: PByte;
- f, c: Integer;
begin
tex.width := Width;
tex.height := Height;
function LoadTextureMem (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; var pWidth, pHeight: Word; Fmt: PWord=nil): Boolean;
var
- image, ii: PByte;
- width, height: Integer;
- imageSize: Integer;
img: TImageData;
- x, y: Integer;
- clr: TColor32Rec;
begin
result := false;
pWidth := 0;
function LoadTextureMemEx (pData: Pointer; dataSize: LongInt; var Texture: GLTexture; fX, fY, fWidth, fHeight: Word; Fmt: PWord=nil): Boolean;
var
image, ii: PByte;
- width, height: Integer;
imageSize: Integer;
img: TImageData;
x, y: Integer;