paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 23:58:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: openglcontrol: using GL_CLAMP_TO_EDGE instead of GL_CLAMP - it is not longer the same on newer cards

Browse Source 
git-svn-id: trunk@14686 -
This commit is contained in:
mattias 2008-03-30 01:28:53 +00:00
parent 824ad7af42
commit a6e55fad6f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
examples/openglcontrol/exampleform.pp
View File

@ -31,6 +31,9 @@ uses
Classes, SysUtils, Forms, LResources, Buttons,
StdCtrls, Dialogs, GL, OpenGLContext;
const
GL_CLAMP_TO_EDGE = $812F;
type
TglTexture = class
public
@ -602,8 +605,8 @@ begin
glGenTextures(3, @textures[0]);
for i:=0 to 2 do begin
glBindTexture(GL_TEXTURE_2D, Textures[i]);
glTexParameterf(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S,GL_CLAMP);
glTexParameterf(GL_TEXTURE_2D,GL_TEXTURE_WRAP_T,GL_CLAMP);
glTexParameterf(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S,GL_CLAMP_TO_EDGE);
glTexParameterf(GL_TEXTURE_2D,GL_TEXTURE_WRAP_T,GL_CLAMP_TO_EDGE);
glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);
glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR);
glTexImage2D(GL_TEXTURE_2D,0,3,MyglTextures[i].Width,MyglTextures[i].Height,0