331 

   331 

   332 glBindTexture(GL_TEXTURE_2D, NewTexture^.id);

   332 glBindTexture(GL_TEXTURE_2D, NewTexture^.id);

   333 

   333 

   334 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, buf);

   334 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, width, height, 0, GL_RGBA, GL_UNSIGNED_BYTE, buf);

   335 

   335 

   336 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

   338 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

   337 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)

   339 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)

   338 end;

   340 end;

   339 

   341 

   340 function Surface2Tex(surf: PSDL_Surface): PTexture;

   342 function Surface2Tex(surf: PSDL_Surface): PTexture;

   447 ResetVertexArrays(Surface2Tex);

   449 ResetVertexArrays(Surface2Tex);

   448 

   450 

   449 if SDL_MustLock(surf) then

   451 if SDL_MustLock(surf) then

   450 	SDL_UnlockSurface(surf);

   452 	SDL_UnlockSurface(surf);

   451 

   453 

   452 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

   456 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

   453 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)

   457 glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR)

   454 end;

   458 end;

   455 

   459 

   456 procedure FreeTexture(tex: PTexture);

   460 procedure FreeTexture(tex: PTexture);