.GDIPlus_Simple Include

Category: Graphics - OpenGL

Date: 02-16-2022

Return to Index

'In case you wonder how many of the OpenGL functions and equates are needed for everday
'use, here is a list of those required for all of the OpenGL examples I provide in gbSnippets.
Declare Sub glPixelStorei LIB "OPENGL32.DLLALIAS "glPixelStorei" (ByVal pname AS DWordByVal param As Long)
Declare Sub glBindTexture LIB "OPENGL32.DLLALIAS "glBindTexture" (ByVal target AS DWordByVal texture AS DWord)
Declare Sub glTexParameterf LIB "OPENGL32.DLLALIAS "glTexParameterf" (ByVal target AS DWordByVal pname AS DWordByVal param AS SINGLE)
Declare Sub glTexEnvf LIB "OPENGL32.DLLALIAS "glTexEnvf" (ByVal target AS DWordByVal pname AS DWordByVal param AS SINGLE)
Declare Sub glTexImage2D LIB "OPENGL32.DLLALIAS "glTexImage2D" (ByVal target AS DWordByVal level As LongByVal internalformat As LongByVal Width As LongByVal height As LongByVal border As LongByVal format AS DWordByVal Type AS DWordBYREF Pixels AS ANY)
Declare Function gluNewQuadric LIB "GLU32.DLLALIAS "gluNewQuadric" () AS DWord
Declare Sub glBegin LIB "OPENGL32.DLLALIAS "glBegin" (ByVal Mode AS DWord )
Declare Sub glCallList LIB "OPENGL32.DLLALIAS "glCallList" (ByVal list AS DWord)
Declare Sub glClear LIB "OPENGL32.DLLALIAS "glClear" (ByVal mask AS DWord)
Declare Sub glClearColor LIB "OPENGL32.DLLALIAS "glClearColor" (ByVal red AS SINGLEByVal green AS SINGLEByVal blue AS SINGLEByVal alpha AS SINGLE)
Declare Sub glClearDepth LIB "OPENGL32.DLLALIAS "glClearDepth" (ByVal depth AS DOUBLE)
Declare Sub glColor3f LIB "OPENGL32.DLLALIAS "glColor3f" (ByVal red AS SINGLEByVal green AS SINGLEByVal blue AS SINGLE)
Declare Sub glColor3fv LIB "OPENGL32.DLLALIAS "glColor3fv" (BYREF v AS SINGLE)
Declare Sub glColor3ub LIB "OPENGL32.DLLALIAS "glColor3ub" (ByVal red AS BYTEByVal green AS BYTEByVal blue AS BYTE)
Declare Sub glDepthFunc LIB "OPENGL32.DLLALIAS "glDepthFunc" (ByVal func AS DWord)
Declare Sub glDisable LIB "OPENGL32.DLLALIAS "glDisable" (ByVal cap AS DWord)
Declare Sub glEnable LIB "OPENGL32.DLLALIAS "glEnable" (ByVal cap AS DWord)
Declare Sub glEnd LIB "OPENGL32.DLLALIAS "glEnd" ()
Declare Sub glEndList LIB "OPENGL32.DLLALIAS "glEndList" ()
Declare Sub glFrustum LIB "OPENGL32.DLLALIAS "glFrustum" (ByVal left AS DOUBLEByVal right AS DOUBLEByVal bottom AS DOUBLEByVal top AS DOUBLEByVal zNear AS DOUBLEByVal zFar AS DOUBLE)
Declare Sub glHint LIB "OPENGL32.DLLALIAS "glHint" (ByVal target AS DWordByVal Mode AS DWord)
Declare Sub glLightfv LIB "OPENGL32.DLLALIAS "glLightfv" (ByVal light AS DWordByVal pname AS DWordBYREF params AS SINGLE)
Declare Sub glLineWidth LIB "OPENGL32.DLLALIAS "glLineWidth" (ByVal Width AS SINGLE)
Declare Sub glLoadIdentity LIB "OPENGL32.DLLALIAS "glLoadIdentity" ()
Declare Sub glMatrixMode LIB "OPENGL32.DLLALIAS "glMatrixMode" (ByVal Mode AS DWord)
Declare Sub glNewList LIB "OPENGL32.DLLALIAS "glNewList" (ByVal list AS DWordByVal Mode AS DWord)
Declare Sub glOrtho LIB "OPENGL32.DLLALIAS "glOrtho" (ByVal left AS DOUBLEByVal right AS DOUBLEByVal bottom AS DOUBLEByVal top AS DOUBLEByVal zNear AS DOUBLEByVal zFar AS DOUBLE)
Declare Sub glPointSize LIB "OPENGL32.DLLALIAS "glPointSize" (ByVal Size AS SINGLE)
Declare Sub glPolygonMode LIB "OPENGL32.DLLALIAS "glPolygonMode" (ByVal face AS DWordByVal Mode AS DWord)
Declare Sub glPopMatrix LIB "OPENGL32.DLLALIAS "glPopMatrix" ()
Declare Sub glPushMatrix LIB "OPENGL32.DLLALIAS "glPushMatrix" ()
Declare Sub glRotatef LIB "OPENGL32.DLLALIAS "glRotatef" (ByVal angle AS SINGLEByVal x AS SINGLEByVal y AS SINGLEByVal z AS SINGLE)
Declare Sub glScalef LIB "OPENGL32.DLLALIAS "glScalef" (ByVal x AS SINGLEByVal y AS SINGLEByVal z AS SINGLE)
Declare Sub glShadeModel LIB "OPENGL32.DLLALIAS "glShadeModel" (ByVal Mode AS DWord)
Declare Sub glTranslatef LIB "OPENGL32.DLLALIAS "glTranslatef" (ByVal x AS SINGLEByVal y AS SINGLEByVal z AS SINGLE)
Declare Sub gluLookAt LIB "GLU32.DLLALIAS "gluLookAt" (ByVal eyex AS DOUBLEByVal eyey AS DOUBLEByVal eyez AS DOUBLEByVal centerx AS DOUBLE, _
   ByVal centery AS DOUBLEByVal centerz AS DOUBLEByVal upx AS DOUBLEByVal upy AS DOUBLEByVal upz AS DOUBLE)
Declare Sub gluPerspective LIB "GLU32.DLLALIAS "gluPerspective" ( ByVal fovy AS DOUBLEByVal aspect AS DOUBLEByVal zNear AS DOUBLEByVal zFar AS DOUBLE)
Declare Sub gluQuadricNormals LIB "GLU32.DLLALIAS "gluQuadricNormals" (ByVal quadObject AS DWordByVal normals AS DWord)
Declare Sub gluQuadricTexture LIB "GLU32.DLLALIAS "gluQuadricTexture" (ByVal quadObject AS DWordByVal textureCoords AS BYTE)
Declare Sub gluSphere LIB "GLU32.DLLALIAS "gluSphere" (ByVal qobj AS DWordByVal radius AS DOUBLEByVal slices As LongByVal satcks As Long)
Declare Sub glVertex3f LIB "OPENGL32.DLLALIAS "glVertex3f" (ByVal x AS SINGLEByVal y AS SINGLEByVal z AS SINGLE)
Declare Sub glViewport LIB "OPENGL32.DLLALIAS "glViewport" (ByVal x As LongByVal y As LongByVal Width As LongByVal height As Long)
%GLU_FALSE            = 0
%GLU_FLAT             = 100001
%GLU_SMOOTH           = 100000
%GLU_TRUE             = 1
%GL_AMBIENT           = &H1200
%GL_COLOR_BUFFER_BIT  = &H00004000
%GL_COMPILE           = &H1300
%GL_DEPTH_BUFFER_BIT  = &H00000100
%GL_DEPTH_TEST        = &H0B71
%GL_DIFFUSE           = &H1201
%GL_FALSE             = 0
%GL_FASTEST           = &H1101
%GL_FLAT              = &H1D00
%GL_LESS              = &H0201
%GL_LIGHT0            = &H4000
%GL_LIGHT1            = &H4001
%GL_LIGHT2            = &H4002
%GL_LIGHT3            = &H4003
%GL_LIGHTING          = &H0B50
%GL_LINES             = &H0001
%GL_LINE_LOOP         = &H0002
%GL_LINE_SMOOTH       = &H0B20
%GL_LINE_STRIP        = &H0003
%GL_MODELVIEW         = &H1700
%GL_MODELVIEW         = &H1700
%GL_NICEST            = &H1102
%GL_POINTS            = &H0000
%GL_POINT_SMOOTH      = &H0B10
%GL_POLYGON           = &H0009
%GL_POSITION          = &H1203
%GL_PROJECTION        = &H1701
%GL_PROJECTION        = &H1701
%GL_QUADS             = &H0007
%GL_QUAD_STRIP        = &H0008
%GL_SMOOTH            = &H1D01
%GL_SPECULAR          = &H1202
%GL_TRIANGLES         = &H0004
%GL_TRIANGLE_FAN      = &H0006
%GL_TRUE              = 1
'Date: 03-10-2012

created by gbSnippets