I verified my code and still have the same problem, here is code for an OpenGl Extension called MultiTextureARB... it compiles well with PureBasic but an error returns with Tailbite. If someone can test it. And give me some back...
Code: Select all
; GL ARB MULTI TEXTURE ----------------------------------------------------------------------------
;
Prototype PFNGLACTIVETEXTUREARBPROC( Texture.l )
Prototype PFNGLCLIENTACTIVETEXTUREARBPROC( Texture.l )
Prototype PFNGLMULTITEXCOORD1DARBPROC( Target.l, Value.d )
Prototype PFNGLMULTITEXCOORD1DVARBPROC( Target.l, *Array.d )
Prototype PFNGLMULTITEXCOORD1FARBPROC( Target.l, Value.f )
Prototype PFNGLMULTITEXCOORD1FVARBPROC( Target.l, *Array.f )
Prototype PFNGLMULTITEXCOORD1IARBPROC( Target.l, Value.l )
Prototype PFNGLMULTITEXCOORD1IVARBPROC( Target.l, *Array.l )
Prototype PFNGLMULTITEXCOORD1SARBPROC( Target.l, Value.w )
Prototype PFNGLMULTITEXCOORD1SVARBPROC( Target.l, *Array.w )
Prototype PFNGLMULTITEXCOORD2DARBPROC( Target.l, ValueA.d, ValueB.d )
Prototype PFNGLMULTITEXCOORD2DVARBPROC( Target.l, *Array.d )
Prototype PFNGLMULTITEXCOORD2FARBPROC( Target.l, ValueA.f, ValueB.f )
Prototype PFNGLMULTITEXCOORD2FVARBPROC( Target.l, *Array.f )
Prototype PFNGLMULTITEXCOORD2IARBPROC( Target.l, ValueA.l, ValueB.l )
Prototype PFNGLMULTITEXCOORD2IVARBPROC( Target.l, *Array.l )
Prototype PFNGLMULTITEXCOORD2SARBPROC( Target.l, ValueA.w, ValueB.w )
Prototype PFNGLMULTITEXCOORD2SVARBPROC( Target.l, *Array.w )
Prototype PFNGLMULTITEXCOORD3DARBPROC( Target.l, ValueA.d, ValueB.d, ValueC.d )
Prototype PFNGLMULTITEXCOORD3DVARBPROC( Target.l, *Array.d )
Prototype PFNGLMULTITEXCOORD3FARBPROC( Target.l, ValueA.f, ValueB.f, ValueC.f )
Prototype PFNGLMULTITEXCOORD3FVARBPROC( Target.l, *Array.f )
Prototype PFNGLMULTITEXCOORD3IARBPROC( Target.l, ValueA.l, ValueB.l, ValueC.l )
Prototype PFNGLMULTITEXCOORD3IVARBPROC( Target.l, *Array.l )
Prototype PFNGLMULTITEXCOORD3SARBPROC( Target.l, ValueA.w, ValueB.w, ValueC.w )
Prototype PFNGLMULTITEXCOORD3SVARBPROC( Target.l, *Array.w )
Prototype PFNGLMULTITEXCOORD4DARBPROC( Target.l, ValueA.d, ValueB.d, ValueC.d, ValueD.d )
Prototype PFNGLMULTITEXCOORD4DVARBPROC( Target.l, *Array.d )
Prototype PFNGLMULTITEXCOORD4FARBPROC( Target.l, ValueA.f, ValueB.f, ValueC.f, ValueD.f )
Prototype PFNGLMULTITEXCOORD4FVARBPROC( Target.l, *Array.f )
Prototype PFNGLMULTITEXCOORD4IARBPROC( Target.l, ValueA.l, ValueB.l, ValueC.l, ValueD.l )
Prototype PFNGLMULTITEXCOORD4IVARBPROC( Target.l, *Array.l )
Prototype PFNGLMULTITEXCOORD4SARBPROC( Target.l, ValueA.w, ValueB.w, ValueC.w, ValueD.w )
Prototype PFNGLMULTITEXCOORD4SVARBPROC( Target.l, *Array.w )
;
;
Structure GL_ARB_MULTI_TEXTURE_STRUCT
;>>
;
*GLACTIVETEXTUREARBPROC.PFNGLACTIVETEXTUREARBPROC
*GLCLIENTACTIVETEXTUREARBPROC.PFNGLCLIENTACTIVETEXTUREARBPROC
*GLMULTITEXCOORD1DARBPROC.PFNGLMULTITEXCOORD1DARBPROC
*GLMULTITEXCOORD1DVARBPROC.PFNGLMULTITEXCOORD1DVARBPROC
*GLMULTITEXCOORD1FARBPROC.PFNGLMULTITEXCOORD1FARBPROC
*GLMULTITEXCOORD1FVARBPROC.PFNGLMULTITEXCOORD1FVARBPROC
*GLMULTITEXCOORD1IARBPROC.PFNGLMULTITEXCOORD1IARBPROC
*GLMULTITEXCOORD1IVARBPROC.PFNGLMULTITEXCOORD1IVARBPROC
*GLMULTITEXCOORD1SARBPROC.PFNGLMULTITEXCOORD1SARBPROC
*GLMULTITEXCOORD1SVARBPROC.PFNGLMULTITEXCOORD1SVARBPROC
*GLMULTITEXCOORD2DARBPROC.PFNGLMULTITEXCOORD2DARBPROC
*GLMULTITEXCOORD2DVARBPROC.PFNGLMULTITEXCOORD2DVARBPROC
*GLMULTITEXCOORD2FARBPROC.PFNGLMULTITEXCOORD2FARBPROC
*GLMULTITEXCOORD2FVARBPROC.PFNGLMULTITEXCOORD2FVARBPROC
*GLMULTITEXCOORD2IARBPROC.PFNGLMULTITEXCOORD2IARBPROC
*GLMULTITEXCOORD2IVARBPROC.PFNGLMULTITEXCOORD2IVARBPROC
*GLMULTITEXCOORD2SARBPROC.PFNGLMULTITEXCOORD2SARBPROC
*GLMULTITEXCOORD2SVARBPROC.PFNGLMULTITEXCOORD2SVARBPROC
*GLMULTITEXCOORD3DARBPROC.PFNGLMULTITEXCOORD3DARBPROC
*GLMULTITEXCOORD3DVARBPROC.PFNGLMULTITEXCOORD3DVARBPROC
*GLMULTITEXCOORD3FARBPROC.PFNGLMULTITEXCOORD3FARBPROC
*GLMULTITEXCOORD3FVARBPROC.PFNGLMULTITEXCOORD3FVARBPROC
*GLMULTITEXCOORD3IARBPROC.PFNGLMULTITEXCOORD3IARBPROC
*GLMULTITEXCOORD3IVARBPROC.PFNGLMULTITEXCOORD3IVARBPROC
*GLMULTITEXCOORD3SARBPROC.PFNGLMULTITEXCOORD3SARBPROC
*GLMULTITEXCOORD3SVARBPROC.PFNGLMULTITEXCOORD3SVARBPROC
*GLMULTITEXCOORD4DARBPROC.PFNGLMULTITEXCOORD4DARBPROC
*GLMULTITEXCOORD4DVARBPROC.PFNGLMULTITEXCOORD4DVARBPROC
*GLMULTITEXCOORD4FARBPROC.PFNGLMULTITEXCOORD4FARBPROC
*GLMULTITEXCOORD4FVARBPROC.PFNGLMULTITEXCOORD4FVARBPROC
*GLMULTITEXCOORD4IARBPROC.PFNGLMULTITEXCOORD4IARBPROC
*GLMULTITEXCOORD4IVARBPROC.PFNGLMULTITEXCOORD4IVARBPROC
*GLMULTITEXCOORD4SARBPROC.PFNGLMULTITEXCOORD4SARBPROC
*GLMULTITEXCOORD4SVARBPROC.PFNGLMULTITEXCOORD4SVARBPROC
;
;<<
EndStructure
;
Global GL_Manager.GL_ARB_MULTI_TEXTURE_STRUCT
Global GL_StateID.l
;
;
ProcedureDLL glActiveTextureARB_( Texture.l )
;>>
;
If GL_StateID
GL_Manager\GLACTIVETEXTUREARBPROC(Texture)
EndIf
;
;<<
EndProcedure
ProcedureDLL glClientActiveTextureARB_( Texture.l )
;>>
;
If GL_StateID
GL_Manager\GLCLIENTACTIVETEXTUREARBPROC(Texture)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord1dARB_( Target.l, Value.d )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD1DARBPROC(Target,Value)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord1dvARB_( Target.l, *Array.d )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD1DVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord1fARB_( Target.l, Value.f )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD1FARBPROC(Target,Value)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord1fvARB_( Target.l, *Array.f )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD1FVARBPROC(Target,*Array.f )
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord1iARB_( Target.l, Value.l )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD1IARBPROC(Target,Value)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord1ivARB_( Target.l, *Array.l )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD1IVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord1sARB_( Target.l, Value.w )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD1SARBPROC(Target,Value)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord1svARB_( Target.l, *Array.w )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD1SVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord2dARB_( Target.l, ValueA.d, ValueB.d )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD2DARBPROC(Target,ValueA,ValueB)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord2dvARB_( Target.l, *Array.d )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD2DVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord2fARB_( Target.l, ValueA.f, ValueB.f )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD2FARBPROC(Target,ValueA,ValueB)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord2fvARB_( Target.l, *Array.f )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD2FVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord2iARB_( Target.l, ValueA.l, ValueB.l )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD2IARBPROC(Target,ValueA,ValueB)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord2ivARB_( Target.l, *Array.l )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD2IVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord2sARB_( Target.l, ValueA.w, ValueB.w )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD2SARBPROC(Target,ValueA,ValueB)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord2svARB_( Target.l, *Array.w )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD2SVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord3dARB_( Target.l, ValueA.d, ValueB.d, ValueC.d )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD3DARBPROC(Target,ValueA,ValueB,ValueC)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord3dvARB_( Target.l, *Array.d )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD3DVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord3fARB_( Target.l, ValueA.f, ValueB.f, ValueC.f )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD3FARBPROC(Target,ValueA,ValueB,ValueC)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord3fvARB_( Target.l, *Array.f )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD3FVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord3iARB_( Target.l, ValueA.l, ValueB.l, ValueC.l )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD3IARBPROC(Target,ValueA,ValueB,ValueC)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord3ivARB_( Target.l, *Array.l )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD3IVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord3sARB_( Target.l, ValueA.w, ValueB.w, ValueC.w )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD3SARBPROC(Target,ValueA,ValueB,ValueC)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord3svARB_( Target.l, *Array.w )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD3SVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord4dARB_( Target.l, ValueA.d, ValueB.d, ValueC.d, ValueD.d )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD4DARBPROC(Target,ValueA,ValueB,ValueC,ValueD)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord4dvARB_( Target.l, *Array.d )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD4DVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord4fARB_( Target.l, ValueA.f, ValueB.f, ValueC.f, ValueD.f )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD4FARBPROC(Target,ValueA,ValueB,ValueC,ValueD)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord4fvARB_( Target.l, *Array.f )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD4FVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
ProcedureDLL glMultiTexCoord4iARB_( Target.l, ValueA.l, ValueB.l, ValueC.l, ValueD.l )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD4IARBPROC(Target,ValueA,ValueB,ValueC,ValueD)
EndIf
;
;<<
EndProcedure
; *****************************************************************************************
; CHANGE PROCEDURE TO PROCEDUREDLL FROM THIS POINT AND CHECK THE RESULT, PLEASE...
Procedure glMultiTexCoord4ivARB_( Target.l, *Array.l )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD4IVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
Procedure glMultiTexCoord4sARB_( Target.l, ValueA.w, ValueB.w, ValueC.w, ValueD.w )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD4SARBPROC(Target,ValueA,ValueB,ValueC,ValueD)
EndIf
;
;<<
EndProcedure
Procedure glMultiTexCoord4svARB_( Target.l, *Array.w )
;>>
;
If GL_StateID
GL_Manager\GLMULTITEXCOORD4SVARBPROC(Target,*Array)
EndIf
;
;<<
EndProcedure
;
ProcedureDLL.b GL_ARB_MultiTexture()
;>>
;
If GL_StateID
ProcedureReturn #True
EndIf
;
With GL_Manager
EndWith
;
;<<
EndProcedure
;