Free GL Engine
Posted: Tue Dec 14, 2004 8:23 pm
Surfing on another programming language site i've found this nifty GL engine...
Seem's pretty cool, examples are all in b-li-tz basic.
Check it out:
http://www.ag-tools.com/
I've already exported all 915! functions with a beta tool i'm working on called DLL Exporter.
Here's a small preview of the output file:
His anyone up to convert this baby to PureBasic !?
I can supply the pre-converted file
Seem's pretty cool, examples are all in b-li-tz basic.
Check it out:
http://www.ag-tools.com/
I've already exported all 915! functions with a beta tool i'm working on called DLL Exporter.
Here's a small preview of the output file:
Code: Select all
; DLL Exporter 1.0
; /-/-/-/-/-/-/-/-/-/-/-/-/
; DLL Name Functions : BasicGL.dll
; Number of Exported Functions : 915
#BasicGL_EXP = 0
Procedure Init_BasicGL()
If OpenLibrary(#BasicGL_EXP,"BasicGL.dll")
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure
Procedure Stop_BasicGL()
If CloseLibrary(#BasicGL_EXP)
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
EndProcedure
; /-/-/-/-/-/-/ Procedures /-/-/-/-/-/-/
Procedure g3DTextAllowedDeviation(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"g3DTextAllowedDeviation", //EDIT//)
EndProcedure
Procedure g3DTextAspectRatio(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"g3DTextAspectRatio", //EDIT//)
EndProcedure
Procedure g3DTextExtrusion(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"g3DTextExtrusion", //EDIT//)
EndProcedure
Procedure g3DTextFont(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"g3DTextFont", //EDIT//)
EndProcedure
Procedure g3DTextGetHeight(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"g3DTextGetHeight", //EDIT//)
EndProcedure
Procedure g3DTextGetWidth(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"g3DTextGetWidth", //EDIT//)
EndProcedure
Procedure g3DTextHeight(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"g3DTextHeight", //EDIT//)
EndProcedure
Procedure g3DTextOblique(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"g3DTextOblique", //EDIT//)
EndProcedure
Procedure g3DTextRange(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"g3DTextRange", //EDIT//)
EndProcedure
Procedure gActivateBass(//EDIT//)
ProcedureReturn CallFunction(#BasicGL_EXP,"gActivateBass", //EDIT//)
EndProcedure
Procedure gActivateFMod(//EDIT//)I can supply the pre-converted file