diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/lua/ULuaGl.pas | 64 | ||||
| -rw-r--r-- | src/lua/ULuaLog.pas | 14 | ||||
| -rw-r--r-- | src/lua/ULuaTextGL.pas | 15 |
3 files changed, 35 insertions, 58 deletions
diff --git a/src/lua/ULuaGl.pas b/src/lua/ULuaGl.pas index cc30aa88..8339232b 100644 --- a/src/lua/ULuaGl.pas +++ b/src/lua/ULuaGl.pas @@ -41,48 +41,6 @@ uses function luaopen_gl (L: Plua_State): Integer; cdecl; function ULuaGl_StringToEnum(Str: String): GLenum; -function ULuaGl_Begin(L: Plua_State): Integer; cdecl; -function ULuaGl_BindTexture(L: Plua_State): Integer; cdecl; -function ULuaGl_BlendFunc(L: Plua_State): Integer; cdecl; -function ULuaGl_Clear(L: Plua_State): Integer; cdecl; -function ULuaGl_ClearColor(L: Plua_State): Integer; cdecl; -function ULuaGl_Color(L: Plua_State): Integer; cdecl; -function ULuaGl_CullFace(L: Plua_State): Integer; cdecl; -function ULuaGl_DepthFunc(L: Plua_State): Integer; cdecl; -function ULuaGl_DepthRange(L: Plua_State): Integer; cdecl; -function ULuaGl_Disable(L: Plua_State): Integer; cdecl; -function ULuaGl_DisableClientState(L: Plua_State): Integer; cdecl; -function ULuaGl_DrawBuffer(L: Plua_State): Integer; cdecl; -function ULuaGl_Enable(L: Plua_State): Integer; cdecl; -function ULuaGl_EnableClientState(L: Plua_State): Integer; cdecl; -function ULuaGl_End(L: Plua_State): Integer; cdecl; -function ULuaGl_EndList(L: Plua_State): Integer; cdecl; -function ULuaGl_Finish(L: Plua_State): Integer; cdecl; -function ULuaGl_Flush(L: Plua_State): Integer; cdecl; -function ULuaGl_FrontFace(L: Plua_State): Integer; cdecl; -function ULuaGl_InitNames(L: Plua_State): Integer; cdecl; -function ULuaGl_LoadIdentity(L: Plua_State): Integer; cdecl; -function ULuaGl_LogicOp(L: Plua_State): Integer; cdecl; -function ULuaGl_MatrixMode(L: Plua_State): Integer; cdecl; -function ULuaGl_Ortho(L: Plua_State): Integer; cdecl; -function ULuaGl_PopAttrib(L: Plua_State): Integer; cdecl; -function ULuaGl_PopClientAttrib(L: Plua_State): Integer; cdecl; -function ULuaGl_PopMatrix(L: Plua_State): Integer; cdecl; -function ULuaGl_PopName(L: Plua_State): Integer; cdecl; -function ULuaGl_PushMatrix(L: Plua_State): Integer; cdecl; -function ULuaGl_RasterPos(L: Plua_State): Integer; cdecl; -function ULuaGl_ReadBuffer(L: Plua_State): Integer; cdecl; -function ULuaGl_Rect(L: Plua_State): Integer; cdecl; -function ULuaGl_Rotate(L: Plua_State): Integer; cdecl; -function ULuaGl_Scale(L: Plua_State): Integer; cdecl; -function ULuaGl_ShadeModel(L: Plua_State): Integer; cdecl; -function ULuaGl_TexCoord(L: Plua_State): Integer; cdecl; -function ULuaGl_Translate(L: Plua_State): Integer; cdecl; -function ULuaGl_Vertex(L: Plua_State): Integer; cdecl; -function ULuaGl_Viewport(L: Plua_State): Integer; cdecl; - -function ULuaGl_Dummy(L: Plua_State): Integer; cdecl; - implementation uses @@ -154,6 +112,24 @@ begin result:=0; // number of results end; +function ULuaGl_ClearAccum(L: Plua_State): Integer; cdecl; +var + i: Integer; +begin + if lua_istable(L, 1) then + for i := 1 to lua_objlen(L,1) do + lua_rawgeti(L,1,i); + + if (lua_istable(L, 1) and (lua_objlen(L,1) = 4)) or (lua_gettop(L) = 4) then + glClearAccum(lual_checknumber(L,-4), + lual_checknumber(L,-3), + lual_checknumber(L,-2), + lual_checknumber(L,-1)) + else + luaL_error(L, 'incorrect argument to function ''gl.ClearAccum'''); + result:=0; // number of results +end; + function ULuaGl_ClearColor(L: Plua_State): Integer; cdecl; var i: Integer; @@ -623,11 +599,12 @@ begin end; const - ULuaGl_Lib_f: array [0..39] of lual_reg = ( + ULuaGl_Lib_f: array [0..40] of lual_reg = ( (name:'Begin';func:ULuaGl_Begin), (name:'BindTexture';func:ULuaGl_BindTexture), (name:'BlendFunc';func:ULuaGl_BlendFunc), (name:'Clear';func:ULuaGl_Clear), + (name:'ClearAccum';func:ULuaGl_ClearAccum), (name:'ClearColor';func:ULuaGl_ClearColor), (name:'Color';func:ULuaGl_Color), (name:'CullFace';func:ULuaGl_CullFace), @@ -680,7 +657,6 @@ end; glBitmap: procedure (width, height: GLsizei; xorig, yorig: GLfloat; xmove, ymove: GLfloat; const bitmap: PGLubyte); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF} glCallList: procedure(list: GLuint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF} glCallLists: procedure(n: GLsizei; atype: GLenum; const lists: Pointer); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF} - glClearAccum: procedure(red, green, blue, alpha: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF} glClearDepth: procedure(depth: GLclampd); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF} glClearIndex: procedure(c: GLfloat); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF} glClearStencil: procedure(s: GLint); {$IFDEF WINDOWS}stdcall;{$ELSE}cdecl;{$ENDIF} diff --git a/src/lua/ULuaLog.pas b/src/lua/ULuaLog.pas index f4673ed9..51b9797d 100644 --- a/src/lua/ULuaLog.pas +++ b/src/lua/ULuaLog.pas @@ -40,20 +40,6 @@ uses function luaopen_Log (L: Plua_State): Integer; cdecl; -function ULuaLog_LogError(L: Plua_State): Integer; cdecl; -function ULuaLog_LogMsg(L: Plua_State): Integer; cdecl; -function ULuaLog_BenchmarkStart(L: Plua_State): Integer; cdecl; -function ULuaLog_BenchmarkEnd(L: Plua_State): Integer; cdecl; -function ULuaLog_LogBenchmark(L: Plua_State): Integer; cdecl; -function ULuaLog_LogDebug(L: Plua_State): Integer; cdecl; -function ULuaLog_LogInfo(L: Plua_State): Integer; cdecl; -function ULuaLog_LogStatus(L: Plua_State): Integer; cdecl; -function ULuaLog_LogWarn(L: Plua_State): Integer; cdecl; -function ULuaLog_LogCritical(L: Plua_State): Integer; cdecl; -function ULuaLog_CriticalError(L: Plua_State): Integer; cdecl; -function ULuaLog_GetLogLevel(L: Plua_State): Integer; cdecl; -function ULuaLog_SetLogLevel(L: Plua_State): Integer; cdecl; - implementation function ULuaLog_LogError(L: Plua_State): Integer; cdecl; diff --git a/src/lua/ULuaTextGL.pas b/src/lua/ULuaTextGL.pas index ffc88154..287695f9 100644 --- a/src/lua/ULuaTextGL.pas +++ b/src/lua/ULuaTextGL.pas @@ -61,3 +61,18 @@ begin result:=1; end; end. + +{ +procedure BuildFont; // build our bitmap font +procedure KillFont; // delete the font +function glTextWidth(const text: string): real; // returns text width +procedure glPrint(const text: string); // custom GL "Print" routine +procedure ResetFont(); // reset font settings of active font +procedure SetFontPos(X, Y: real); // sets X and Y +procedure SetFontZ(Z: real); // sets Z +procedure SetFontSize(Size: real); +procedure SetFontStyle(Style: integer); // sets active font style (normal, bold, etc) +procedure SetFontItalic(Enable: boolean); // sets italic type letter (works for all fonts) +procedure SetFontAspectW(Aspect: real); +procedure SetFontReflection(Enable:boolean;Spacing: real); // enables/disables text reflection +} |