index d438beb4ae8a608a6406a3072d67bbbf10d01651..47b783e53cfea591a3f3f75d42baa038b7a65634 100644 (file)
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*)
-(* Sources: https://github.com/FWGS/nanogl *)
+(* Sources: https://github.com/DeaDDooMER/nanogl *)
unit nanoGL;
interface
{$ENDIF}
type
- GLenum = Cardinal; PGLenum = ^GLenum;
- GLboolean = Byte; PGLboolean = ^GLboolean;
- GLbitfield = Cardinal; PGLbitfield = ^GLbitfield;
- GLbyte = ShortInt; PGLbyte = ^GLbyte;
- GLshort = SmallInt; PGLshort = ^GLshort;
- GLint = Integer; PGLint = ^GLint;
- GLsizei = Integer; PGLsizei = ^GLsizei;
- GLubyte = Byte; PGLubyte = ^GLubyte;
- GLushort = Word; PGLushort = ^GLushort;
- GLuint = Cardinal; PGLuint = ^GLuint;
- GLfloat = Single; PGLfloat = ^GLfloat;
- GLclampf = Single; PGLclampf = ^GLclampf;
- GLdouble = Double; PGLdouble = ^GLdouble;
- GLclampd = Double; PGLclampd = ^GLclampd;
-{ GLvoid = void; } PGLvoid = Pointer;
- PPGLvoid = ^PGLvoid;
- GLfixed = Integer; PGLfixed = ^Integer;
- GLclampx = Integer; PGLclampx = ^Integer;
+ GLenum = cuint; PGLenum = ^GLenum;
+ GLboolean = cuchar; PGLboolean = ^GLboolean;
+ GLbitfield = cuint; PGLbitfield = ^GLbitfield;
+ GLbyte = cschar; PGLbyte = ^GLbyte;
+ GLshort = cshort; PGLshort = ^GLshort;
+ GLint = cint; PGLint = ^GLint;
+ GLsizei = cint; PGLsizei = ^GLsizei;
+ GLubyte = cuchar; PGLubyte = ^GLubyte;
+ GLushort = cushort; PGLushort = ^GLushort;
+ GLuint = cuint; PGLuint = ^GLuint;
+ GLfloat = cfloat; PGLfloat = ^GLfloat;
+ GLclampf = cfloat; PGLclampf = ^GLclampf;
+ GLdouble = cdouble; PGLdouble = ^GLdouble;
+ GLclampd = cdouble; PGLclampd = ^GLclampd;
+{ GLvoid = void; } PGLvoid = Pointer; PPGLvoid = ^PGLvoid;
+ GLfixed = cint; PGLfixed = ^Integer;
+ GLclampx = cint; PGLclampx = ^Integer;
TGLenum = GLenum;
TGLboolean = GLboolean;
@@ -753,6 +752,9 @@ procedure glGenBuffersARB(count: Gluint; indexes: PGLuint); cdecl; external nano
procedure glDeleteBuffersARB(count: GLuint; indexes: PGLuint); cdecl; external nanoGL_LibName;
procedure glBufferDataARB(target: GLuint; size: GLuint; buffer: PGLvoid; _type: GLuint); cdecl; external nanoGL_LibName;
procedure glBufferSubDataARB(target: GLuint; offset: GLsizei; size: GLsizei; buffer: PGLvoid); cdecl; external nanoGL_LibName;
+function glIsEnabled(cap: GLenum): GLboolean; external nanoGL_LibName;
+procedure glPushAttrib(mask: GLbitfield); external nanoGL_LibName;
+procedure glPopAttrib; external nanoGL_LibName;
function nanoGL_Init(): CInt; cdecl; external nanoGL_LibName;
procedure nanoGL_Destroy; cdecl; external nanoGL_LibName;
procedure glTexCoord2i(s, t: GLint);
begin
- glTexCoord2f(1 / s, 1 / t);
+ glTexCoord2f(s, t);
end;
end.