src/nogl/noGL.pas

   1 {$INCLUDE ../shared/a_modes.inc}
   2 unit noGL;
   3
   4 interface
   5
   6   uses ctypes;
   7
   8   type
   9     GLenum     = cuint;   PGLenum     = ^GLenum;
  10     GLboolean  = cuchar;  PGLboolean  = ^GLboolean;
  11     GLbitfield = cuint;   PGLbitfield = ^GLbitfield;
  12     GLbyte     = cschar;  PGLbyte     = ^GLbyte;
  13     GLshort    = cshort;  PGLshort    = ^GLshort;
  14     GLint      = cint;    PGLint      = ^GLint;
  15     GLsizei    = cint;    PGLsizei    = ^GLsizei;
  16     GLubyte    = cuchar;  PGLubyte    = ^GLubyte;
  17     GLushort   = cushort; PGLushort   = ^GLushort;
  18     GLuint     = cuint;   PGLuint     = ^GLuint;
  19     GLfloat    = cfloat;  PGLfloat    = ^GLfloat;
  20     GLclampf   = cfloat;  PGLclampf   = ^GLclampf;
  21     GLdouble   = cdouble; PGLdouble   = ^GLdouble;
  22     GLclampd   = cdouble; PGLclampd   = ^GLclampd;
  23   { GLvoid     = void; }  PGLvoid     = Pointer;     PPGLvoid = ^PGLvoid;
  24     GLfixed    = cint;    PGLfixed    = ^Integer;
  25     GLclampx   = cint;    PGLclampx   = ^Integer;
  26
  27     TGLenum     = GLenum;
  28     TGLboolean  = GLboolean;
  29     TGLbitfield = GLbitfield;
  30     TGLbyte     = GLbyte;
  31     TGLshort    = GLshort;
  32     TGLint      = GLint;
  33     TGLsizei    = GLsizei;
  34     TGLubyte    = GLubyte;
  35     TGLushort   = GLushort;
  36     TGLuint     = GLuint;
  37     TGLfloat    = GLfloat;
  38     TGLclampf   = GLclampf;
  39     TGLdouble   = GLdouble;
  40     TGLclampd   = GLclampd;
  41     TGLfixed    = GLfixed;
  42     TGLclampx   = GLclampx;
  43
  44   const
  45     GL_NEAREST = $2600;
  46     GL_DEPTH_TEST = $0B71;
  47     GL_SCISSOR_TEST = $0C11;
  48     GL_MODELVIEW = $1700;
  49     GL_PROJECTION = $1701;
  50     GL_BLEND = $0BE2;
  51     GL_SRC_ALPHA = $0302;
  52     GL_ONE_MINUS_SRC_ALPHA = $0303;
  53     GL_ONE = $1;
  54     GL_TEXTURE_2D = $0DE1;
  55     GL_QUADS = $0007;
  56     GL_ZERO = $0;
  57     GL_POINTS = $0000;
  58     GL_LINES = $0001;
  59     GL_DST_COLOR = $0306;
  60     GL_SRC_COLOR = $0300;
  61     GL_ONE_MINUS_DST_COLOR = $0307;
  62     GL_GREATER = $0204;
  63     GL_COLOR_BUFFER_BIT = $00004000;
  64     GL_RGB = $1907;
  65     GL_UNSIGNED_BYTE = $1401;
  66     GL_ALPHA_TEST = $0BC0;
  67     GL_VIEWPORT = $0BA2;
  68     GL_TEXTURE_WRAP_S = $2802;
  69     GL_TEXTURE_WRAP_T = $2803;
  70     GL_REPEAT = $2901;
  71     GL_TEXTURE_MIN_FILTER = $2801;
  72     GL_TEXTURE_MAG_FILTER = $2800;
  73     GL_RGBA = $1908;
  74     GL_POINT_SMOOTH = $0B10;
  75     GL_STENCIL_TEST = $0B90;
  76     GL_SCISSOR_BOX = $0C10;
  77     GL_FALSE = $0;
  78     GL_TRUE = $1;
  79     GL_ALWAYS = $0207;
  80     GL_STENCIL_BUFFER_BIT = $00000400;
  81     GL_EQUAL = $0202;
  82     GL_KEEP = $1E00;
  83     GL_INCR = $1E02;
  84     GL_LINEAR = $2601;
  85     GL_EXTENSIONS = $1F03;
  86     GL_TEXTURE_ENV = $2300;
  87     GL_TEXTURE_ENV_MODE = $2200;
  88     GL_MODULATE = $2100;
  89
  90 //  const
  91 //    GL_CULL_FACE = $0B44;
  92 //    GL_FLOAT = $1406;
  93 //    GL_VERTEX_ARRAY = $8074;
  94 //    GL_NORMAL_ARRAY = $8075;
  95 //    GL_COLOR_ARRAY = $8076;
  96 //    GL_TEXTURE_COORD_ARRAY = $8078;
  97 //    GL_NOTEQUAL = $0205;
  98 //    GL_LINE_SMOOTH = $0B20;
  99 //    GL_POLYGON_SMOOTH = $0B41;
 100 //    GL_LIGHTING = $0B50;
 101 //    GL_DITHER = $0BD0;
 102 //    GL_MODELVIEW_MATRIX = $0BA6;
 103 //    GL_MATRIX_MODE = $0BA0;
 104 //    GL_TEXTURE_BINDING_2D = $8069;
 105 //    GL_TEXTURE = $1702;
 106 //    GL_COLOR = $1800;
 107 //    GL_ALL_ATTRIB_BITS = $000FFFFF;
 108
 109   procedure glEnable(cap: GLenum);
 110   procedure glDisable(cap: GLenum);
 111   function  glIsEnabled(cap: GLenum): GLboolean;
 112   function  glGetString(name: GLenum): PChar;
 113   procedure glClearColor(red, green, blue, alpha: GLclampf);
 114   procedure glClear(mask: GLbitfield);
 115   procedure glAlphaFunc(func: GLenum; ref: GLclampf);
 116   procedure glBlendFunc(sfactor, dfactor: GLenum);
 117   procedure glPointSize(size: GLfloat);
 118   procedure glLineWidth(width: GLfloat);
 119   procedure glGetIntegerv(pname: GLenum; params: PGLint);
 120   procedure glFlush;
 121   procedure glFinish;
 122
 123   procedure glBegin(mode: GLenum);
 124   procedure glEnd;
 125   procedure glTexCoord2f(s, t: GLfloat);
 126   procedure glVertex2i(x, y: GLint);
 127   procedure glColor4ub(red, green, blue, alpha: GLubyte);
 128   procedure glColor3ub(red, green, blue: GLubyte);
 129   procedure glVertex2f(x, y: GLfloat);
 130   procedure glTexCoord2i(s, t: GLint);
 131   procedure glColor4f(red, green, blue, alpha: GLfloat);
 132
 133   procedure glReadPixels(x, y: GLint; width, height: GLsizei; format, atype: GLenum; pixels: Pointer);
 134
 135   procedure glLoadIdentity;
 136   procedure glScissor(x, y: GLint; width, height: GLsizei);
 137   procedure glViewport(x, y: GLint; width, height: GLsizei);
 138   procedure glMatrixMode(mode: GLenum);
 139   procedure glLoadMatrixd(const m: PGLdouble);
 140   procedure glPushMatrix;
 141   procedure glTranslatef(x, y, z: GLfloat);
 142   procedure glRotatef(angle, x, y, z: GLfloat);
 143   procedure glScalef(x, y, z: GLfloat);
 144   procedure glPopMatrix;
 145
 146   procedure glStencilMask(mask: GLuint);
 147   procedure glStencilFunc(func: GLenum; ref: GLint; mask: GLuint);
 148   procedure glStencilOp(fail, zfail, zpass: GLenum);
 149   procedure glColorMask(red, green, blue, alpha: GLboolean);
 150
 151   procedure glBindTexture(target: GLenum; texture: GLuint);
 152   procedure glGenTextures(n: GLsizei; textures: PGLuint);
 153   procedure glTexEnvi(target: GLenum; pname: GLenum; param: GLint);
 154   procedure glTexParameterf(target: GLenum; pname: GLenum; param: GLfloat);
 155   procedure glTexParameteri(target: GLenum; pname: GLenum; param: GLint);
 156   procedure glTexImage2D(target: GLenum; level, internalformat: GLint; width, height: GLsizei; border: GLint; format, atype: GLenum; const pixels: Pointer);
 157   procedure glTexSubImage2D(target: GLenum; level, xoffset, yoffset: GLint; width, height: GLsizei; format, atype: GLenum; const pixels: Pointer);
 158   procedure glDeleteTextures(n: GLsizei; const textures: PGLuint);
 159
 160 //  procedure glVertexPointer(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer);
 161 //  procedure glEnableClientState(aarray: GLenum);
 162 //  procedure glDisableClientState(aarray: GLenum);
 163 //  procedure glDrawArrays(mode: GLenum; first: GLint; count: GLsizei);
 164 //  procedure glGetFloatv(pname: GLenum; params: PGLfloat);
 165 //  procedure glPushAttrib(mask: GLbitfield);
 166 //  procedure glOrtho(left, right, bottom, top, zNear, zFar: GLdouble);
 167 //  procedure glPopAttrib;
 168 //  procedure glColorPointer(size: GLint; atype: GLenum; stride: GLsizei; const pointer: Pointer);
 169
 170   procedure nogl_Init;
 171   procedure nogl_Quit;
 172
 173 {$IFDEF USE_GLES1}}
 174   {$I noGLES1.inc}
 175 {$ELSE}
 176   {$IFDEF USE_GLSTUB}
 177     {$I noGLSTUB.inc}
 178   {$ENDIF}
 179 {$ENDIF}
 180
 181 end.