mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-11 10:02:17 -05:00
1029 lines
36 KiB
ObjectPascal
1029 lines
36 KiB
ObjectPascal
|
Unit Rutis_ExtDll_OpenGl;
|
||
|
|
|
||
|
|
Interface
|
||
|
|
|
||
|
|
Uses
|
||
|
|
Windows, Controls, SysUtils,
|
||
|
|
Rutis_Engine, Rutis_Defs,
|
||
|
|
dglOpenGl,
|
||
|
|
TFrustumClass,
|
||
|
|
OpenGl_Texture_Manager,
|
||
|
|
OpenGl_Types,
|
||
|
|
OpenGl_Functions,
|
||
|
|
OpenGl_Speed_Lists;
|
||
|
|
|
||
|
|
Var
|
||
|
|
Rogl_Display : TWinControl;
|
||
|
|
Rogl_DC, Rogl_RC : HDC;
|
||
|
|
Rogl_CamPos,
|
||
|
|
Rogl_CamRot : TVector3f;
|
||
|
|
Rogl_NearClipping,
|
||
|
|
Rogl_FarClipping : Single;
|
||
|
|
|
||
|
|
Procedure RegisterEXTMethods(Engine : TRutisEngine);
|
||
|
|
Procedure ROgl_SetViewport(WinControl : TWinControl);
|
||
|
|
Procedure DestroyRoglContext;
|
||
|
|
Procedure ResizeRoglContext;
|
||
|
|
|
||
|
|
Implementation
|
||
|
|
|
||
|
|
Var
|
||
|
|
ROGL_Width, ROGL_Height : Integer;
|
||
|
|
//==============================================================================
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Function CreateContext : Integer;
|
||
|
|
Begin
|
||
|
|
If not InitOpenGl Then exit;
|
||
|
|
Result := CreateRenderingContext(Rogl_DC, [opDoubleBuffered], 32, 24, 0, 32, 0, 0);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure DestroyRoglContext;
|
||
|
|
Begin
|
||
|
|
SetLength(TexManager_TexturePaths, 0);
|
||
|
|
AddTexturePath('.\');
|
||
|
|
AddTexturePath(ExtractFileDir(ParamStr(0)));
|
||
|
|
FreeTextures;
|
||
|
|
DeleteSpeedLists;
|
||
|
|
Rogl_NearClipping := 1;
|
||
|
|
Rogl_FarClipping := 1000;
|
||
|
|
If Rogl_DC <> 0 Then
|
||
|
|
Begin
|
||
|
|
If Rogl_RC <> 0 Then
|
||
|
|
Begin
|
||
|
|
DeactivateRenderingContext;
|
||
|
|
DestroyRenderingContext(Rogl_RC);
|
||
|
|
Rogl_RC := 0;
|
||
|
|
End;
|
||
|
|
Try
|
||
|
|
ReleaseDC(Rogl_Display.Handle, Rogl_DC);
|
||
|
|
Except
|
||
|
|
End;
|
||
|
|
Rogl_DC := 0;
|
||
|
|
Rogl_CamPos := nullvect;
|
||
|
|
Rogl_CamRot := nullvect;
|
||
|
|
sleep(1);
|
||
|
|
End;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure ResizeRoglContext;
|
||
|
|
Begin
|
||
|
|
If (Rogl_DC <> 0) and (Rogl_RC <> 0) Then
|
||
|
|
Begin
|
||
|
|
glViewport(0, 0, Rogl_Display.Width, Rogl_Display.Height);
|
||
|
|
{glMatrixMode(GL_PROJECTION);
|
||
|
|
glLoadIdentity;
|
||
|
|
gluPerspective(45.0, ClientWidth/ClientHeight, NearClipping, FarClipping);
|
||
|
|
glMatrixMode(GL_MODELVIEW);
|
||
|
|
glLoadIdentity;}
|
||
|
|
End;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure ROgl_SetViewport(WinControl : TWinControl);
|
||
|
|
Begin
|
||
|
|
If not (WinControl is TWinControl) Then exit;
|
||
|
|
Rogl_Display := WinControl;
|
||
|
|
|
||
|
|
DestroyRoglContext;
|
||
|
|
|
||
|
|
If not (Rogl_Display is TWinControl) Then
|
||
|
|
Rogl_Display := Rogl_Display.Parent;
|
||
|
|
|
||
|
|
Rogl_DC := GetDC(Rogl_Display.Handle);
|
||
|
|
Rogl_RC := CreateContext;
|
||
|
|
ActivateRenderingContext(Rogl_DC, Rogl_RC);
|
||
|
|
|
||
|
|
sleep(1);
|
||
|
|
|
||
|
|
glClearColor(0, 0, 0, 0);
|
||
|
|
glEnable(GL_DEPTH_TEST);
|
||
|
|
glEnable(GL_CULL_FACE);
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
//==============================================================================
|
||
|
|
{$REGION 'gl-Extension glx'}
|
||
|
|
|
||
|
|
Procedure _glxSetViewportControl(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
ROgl_SetViewport(TWinControl(PPointer(Params^[0].Data)^));
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _InitOpenGL(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
If Rogl_Display = nil Then exit;
|
||
|
|
|
||
|
|
DestroyRoglContext;
|
||
|
|
|
||
|
|
Rogl_DC := GetDC(Rogl_Display.Handle);
|
||
|
|
//If not InitOpenGl then exit;
|
||
|
|
Rogl_RC := CreateContext;
|
||
|
|
ActivateRenderingContext(Rogl_DC, Rogl_RC);
|
||
|
|
|
||
|
|
sleep(1);
|
||
|
|
|
||
|
|
glClearColor(0, 0, 0, 0);
|
||
|
|
glEnable(GL_DEPTH_TEST);
|
||
|
|
glEnable(GL_COLOR_MATERIAL);
|
||
|
|
glEnable(GL_CULL_FACE);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxNewFrame(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
If Rogl_RC = 0 Then _InitOpenGL(nil, nil, nil);
|
||
|
|
If Rogl_RC = 0 Then exit;
|
||
|
|
|
||
|
|
SwapBuffers(Rogl_DC);
|
||
|
|
|
||
|
|
If (Rogl_Display.Width <> ROGL_Width) or (Rogl_Display.Height <> ROGL_Height) Then
|
||
|
|
Begin
|
||
|
|
ROGL_Width := Rogl_Display.Width;
|
||
|
|
ROGL_Width := Rogl_Display.Height;
|
||
|
|
glViewport(0, 0, Rogl_Display.Width, Rogl_Display.Height);
|
||
|
|
End;
|
||
|
|
|
||
|
|
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
|
||
|
|
|
||
|
|
glMatrixMode(GL_PROJECTION);
|
||
|
|
glLoadIdentity;
|
||
|
|
gluPerspective(45.0, Rogl_Display.Width / Rogl_Display.Height, Rogl_NearClipping, Rogl_FarClipping);
|
||
|
|
glMatrixMode(GL_MODELVIEW);
|
||
|
|
glLoadIdentity;
|
||
|
|
|
||
|
|
glRotateV(Vector(-Rogl_CamRot.X, -Rogl_CamRot.Y, -Rogl_CamRot.Z));
|
||
|
|
glTranslatef(-Rogl_CamPos.X, -Rogl_CamPos.Y, -Rogl_CamPos.Z);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxSwapBuffers(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
SwapBuffers(Rogl_DC);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxSetNearFarClipping(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
Rogl_NearClipping := PSingle(Params^[0].Data)^;
|
||
|
|
Rogl_FarClipping := PSingle(Params^[1].Data)^;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxGetTexture(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
PInteger(Result^.Data)^ := ApplyTexture(PAnsiString(Params^[0].Data)^, False);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxApplyTexture(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
ApplyTexture(PAnsiString(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxCamPos(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
Rogl_CamPos.X := PSingle(Params^[0].Data)^;
|
||
|
|
Rogl_CamPos.Y := PSingle(Params^[1].Data)^;
|
||
|
|
Rogl_CamPos.Z := PSingle(Params^[2].Data)^;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxCamRot(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
Rogl_CamRot.X := PSingle(Params^[0].Data)^;
|
||
|
|
Rogl_CamRot.Y := PSingle(Params^[1].Data)^;
|
||
|
|
Rogl_CamRot.Z := PSingle(Params^[2].Data)^;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxCalculateFrustum(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
Frustum.Calculate;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxIsPointInFrustum(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
PBoolean(Result^.Data)^ := Frustum.IsPointWithin(
|
||
|
|
PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxIsSphereInFrustum(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
PBoolean(Result^.Data)^ := Frustum.IsSphereWithin(
|
||
|
|
PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^,
|
||
|
|
PSingle(Params^[3].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxIsBoxInFrustum(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
PBoolean(Result^.Data)^ := Frustum.IsBoxWithin(
|
||
|
|
PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^,
|
||
|
|
PSingle(Params^[3].Data)^,
|
||
|
|
PSingle(Params^[4].Data)^,
|
||
|
|
PSingle(Params^[5].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxIsPointInFrustumV(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
PBoolean(Result^.Data)^ := Frustum.IsPointWithin(
|
||
|
|
PVector3f(Params^[0].Data)^.x,
|
||
|
|
PVector3f(Params^[0].Data)^.y,
|
||
|
|
PVector3f(Params^[0].Data)^.z);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxIsSphereInFrustumV(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
PBoolean(Result^.Data)^ := Frustum.IsSphereWithin(
|
||
|
|
PPVector3f(Params^[0].Data)^^.x,
|
||
|
|
PPVector3f(Params^[0].Data)^^.y,
|
||
|
|
PPVector3f(Params^[0].Data)^^.z,
|
||
|
|
PSingle(Params^[1].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glxIsBoxInFrustumV(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
PBoolean(Result^.Data)^ := Frustum.IsBoxWithin(
|
||
|
|
PVector3f(Params^[0].Data)^.x,
|
||
|
|
PVector3f(Params^[0].Data)^.y,
|
||
|
|
PVector3f(Params^[0].Data)^.z,
|
||
|
|
PVector3f(Params^[1].Data)^.x,
|
||
|
|
PVector3f(Params^[1].Data)^.y,
|
||
|
|
PVector3f(Params^[1].Data)^.z);
|
||
|
|
End;
|
||
|
|
|
||
|
|
{$ENDREGION}
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glViewport(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glViewport(PInteger(Params^[0].Data)^, PInteger(Params^[1].Data)^, PInteger(Params^[2].Data)^, PInteger(Params^[3].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glClear(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glClear(PCardinal(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glFlush(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glFlush;
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glGenLists(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
PCardinal(Result^.Data)^ := glGenLists(PCardinal(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glNewList(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glNewList(PCardinal(Params^[0].Data)^, PCardinal(Params^[1].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glEndList(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glEndList;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glCallList(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glCallList(PCardinal(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
{$REGION 'Textures'}
|
||
|
|
|
||
|
|
Procedure _glGenTextures(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glGenTextures(PInteger(Params^[0].Data)^, PGLUInt(Params^[1].Data));
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glBindTexture(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glBindTexture(PCardinal(Params^[0].Data)^, PCardinal(Params^[1].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glTexImage2D(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glTexImage2D(PCardinal(Params^[0].Data)^, PInteger(Params^[1].Data)^, PInteger(Params^[2].Data)^,
|
||
|
|
PInteger(Params^[3].Data)^, PInteger(Params^[4].Data)^, PCardinal(Params^[5].Data)^,
|
||
|
|
PCardinal(Params^[6].Data)^, PCardinal(Params^[7].Data)^, PPointer(Params^[8].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glCopyTexImage2d(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glCopyTexImage2d(PCardinal(Params^[0].Data)^, PInteger(Params^[1].Data)^, PCardinal(Params^[2].Data)^,
|
||
|
|
PInteger(Params^[3].Data)^, PInteger(Params^[4].Data)^, PInteger(Params^[5].Data)^, PInteger(Params^[6].Data)^,
|
||
|
|
PInteger(Params^[7].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glTexParameteri(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glTexParameteri(PCardinal(Params^[0].Data)^, PCardinal(Params^[1].Data)^, PInteger(Params^[2].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
{$ENDREGION}
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glEnable(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glEnable(PInteger(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glDisable(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glDisable(PInteger(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glPushAttrib(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glPushAttrib(PInteger(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glPopAttrib(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glPopAttrib;
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
{$REGION 'Vectors etc.'}
|
||
|
|
|
||
|
|
Procedure _glColor3f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glColor3f(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glColor3fv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glColor3fv(PGLFloat(PPointer(Params^[0].Data)^));
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glColor4f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glColor4f(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^,
|
||
|
|
PSingle(Params^[3].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glColor4fv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glColor4fv(PGLFloat(PPointer(Params^[0].Data)^));
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glVertex2f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glVertex2f(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glVertex2fv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glVertex2fv(PGLFloat(PPointer(Params^[0].Data)^));
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glVertex3f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glVertex3f(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glVertex3fv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glVertex3fv(PGLFloat(PPointer(Params^[0].Data)^));
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glVertex4f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glVertex4f(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^,
|
||
|
|
PSingle(Params^[3].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glVertex4fv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glVertex4fv(PGLFloat(PPointer(Params^[0].Data)^));
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glNormal3f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glNormal3f(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glNormal3fv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glNormal3fv(PGLFloat(PPointer(Params^[0].Data)^));
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glTexCoord2f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glTexCoord2f(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glTexCoord2fv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glTexCoord2fv(PGLFloat(PPointer(Params^[0].Data)^));
|
||
|
|
End;
|
||
|
|
|
||
|
|
{$ENDREGION}
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glBegin(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glBegin(PInteger(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glEnd(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glEnd;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glSphere(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
slSphere(PInteger(Params^[0].Data)^{,Params^[1]});
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glCube(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
slCube(1, 1, 1, PInteger(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
{$REGION 'Matrix'}
|
||
|
|
|
||
|
|
Procedure _glMatrixMode(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glMatrixMode(PCardinal(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glOrtho(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glOrtho(PSingle(Params^[0].Data)^, PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^, PSingle(Params^[3].Data)^,
|
||
|
|
PSingle(Params^[4].Data)^, PSingle(Params^[5].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _gluOrtho2D(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
gluOrtho2D(PSingle(Params^[0].Data)^, PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^, PSingle(Params^[3].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _gluPerspective(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
gluPerspective(PSingle(Params^[0].Data)^, PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^, PSingle(Params^[3].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glPushMatrix(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glPushMatrix;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glPopMatrix(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glPopMatrix;
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glLoadIdentity(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glLoadIdentity;
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glTranslatef(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glTranslatef(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glTranslatefv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glTranslatef(PPVector3f(Params^[0].Data)^^.X,
|
||
|
|
PPVector3f(Params^[0].Data)^^.Y,
|
||
|
|
PPVector3f(Params^[0].Data)^^.Z);
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glRotatef(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glRotatef(PSingle(Params^[0].Data)^, PSingle(Params^[1].Data)^, PSingle(Params^[2].Data)^, PSingle(Params^[3].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glRotate3f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glRotatef(PSingle(Params^[0].Data)^, 1, 0, 0);
|
||
|
|
glRotatef(PSingle(Params^[1].Data)^, 0, 1, 0);
|
||
|
|
glRotatef(PSingle(Params^[2].Data)^, 0, 0, 1);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glRotatefv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glRotatef(PPVector3f(Params^[0].Data)^^.X, 1, 0, 0);
|
||
|
|
glRotatef(PPVector3f(Params^[0].Data)^^.Y, 0, 1, 0);
|
||
|
|
glRotatef(PPVector3f(Params^[0].Data)^^.Z, 0, 0, 1);
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glScalef(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glScalef(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glScalefv(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glScalef(PPVector3f(Params^[0].Data)^^.X,
|
||
|
|
PPVector3f(Params^[0].Data)^^.Y,
|
||
|
|
PPVector3f(Params^[0].Data)^^.Z);
|
||
|
|
End;
|
||
|
|
|
||
|
|
{$ENDREGION}
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glLight4f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Var
|
||
|
|
vec4f : TVector4f;
|
||
|
|
Begin
|
||
|
|
vec4f := Vector(PSingle(Params^[2].Data)^,
|
||
|
|
PSingle(Params^[3].Data)^,
|
||
|
|
PSingle(Params^[4].Data)^,
|
||
|
|
PSingle(Params^[5].Data)^);
|
||
|
|
glLightfv({GL_LIGHT0 + }PInteger(Params^[0].Data)^, PInteger(Params^[1].Data)^, @vec4f);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glLight3f(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Var vec4f : TVector4f;
|
||
|
|
Begin
|
||
|
|
vec4f := Vector(PSingle(Params^[2].Data)^,
|
||
|
|
PSingle(Params^[3].Data)^,
|
||
|
|
PSingle(Params^[4].Data)^,
|
||
|
|
1);
|
||
|
|
glLightfv({GL_LIGHT0 + }PInteger(Params^[0].Data)^, PInteger(Params^[1].Data)^, @vec4f);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glLightf(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glLightf({GL_LIGHT0 + }PInteger(Params^[0].Data)^, PInteger(Params^[1].Data)^, PSingle(Params^[2].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure _glLineWidth(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glLineWidth(PInteger(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glBlendFunc(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glBlendFunc(PInteger(Params^[0].Data)^, PInteger(Params^[1].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glClearColor(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glClearColor(PSingle(Params^[0].Data)^,
|
||
|
|
PSingle(Params^[1].Data)^,
|
||
|
|
PSingle(Params^[2].Data)^,
|
||
|
|
PSingle(Params^[3].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glAccum(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glAccum(PCardinal(Params^[0].Data)^, PSingle(Params^[1].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
Procedure _glReadBuffer(Stack : TRutisStack; Params : PRutisParamInfoArray; Result : PRutisParamInfo);
|
||
|
|
Begin
|
||
|
|
glReadBuffer(PCardinal(Params^[0].Data)^);
|
||
|
|
End;
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
Procedure RegisterEXTMethods(Engine : TRutisEngine);
|
||
|
|
Var
|
||
|
|
Decl : TRutisStructType;
|
||
|
|
Decl2 : TRutisPointerType;
|
||
|
|
Begin
|
||
|
|
OutputDebugString(PChar('Rutis_EXT_OpenGl.RegisterEXTMethods - Registering RUTIS OpenGL Support'));
|
||
|
|
//LOZ_Scripting.RegisterEXTMethods(@RutisEngine.MethodList);
|
||
|
|
|
||
|
|
{$REGION 'Types'}
|
||
|
|
Decl := TRutisStructType.Create;
|
||
|
|
Decl.Name := 'TVector2f';
|
||
|
|
Decl.IsPacked := True;
|
||
|
|
Decl.Size := 8;
|
||
|
|
Decl.fAlignSize := 4;
|
||
|
|
SetLength(Decl.StructTypes, 2);
|
||
|
|
Decl.StructTypes[0] := TRutisVarDecl.Create;
|
||
|
|
Decl.StructTypes[0].Name := 'X';
|
||
|
|
Decl.StructTypes[0].Address := 0;
|
||
|
|
Decl.StructTypes[0].Level := 0;
|
||
|
|
Decl.StructTypes[0].VarType := TRutisTypeDecl(FindDeclaration('Single', @Engine.StaticDeclarations));
|
||
|
|
Decl.StructTypes[1] := TRutisVarDecl.Create;
|
||
|
|
Decl.StructTypes[1].Name := 'Y';
|
||
|
|
Decl.StructTypes[1].Address := 4;
|
||
|
|
Decl.StructTypes[1].Level := 0;
|
||
|
|
Decl.StructTypes[1].VarType := Decl.StructTypes[0].VarType;
|
||
|
|
Engine.AddStaticDeclaration(Decl);
|
||
|
|
|
||
|
|
Decl2 := TRutisPointerType.Create;
|
||
|
|
Decl2.Name := 'PVector2f';
|
||
|
|
Decl2.PointerType := Decl;
|
||
|
|
Engine.AddStaticDeclaration(Decl2);
|
||
|
|
|
||
|
|
Decl := TRutisStructType.Create;
|
||
|
|
Decl.Name := 'TVector3f';
|
||
|
|
Decl.IsPacked := True;
|
||
|
|
Decl.Size := 12;
|
||
|
|
Decl.fAlignSize := 4;
|
||
|
|
SetLength(Decl.StructTypes, 3);
|
||
|
|
Decl.StructTypes[0] := TRutisVarDecl.Create;
|
||
|
|
Decl.StructTypes[0].Name := 'X';
|
||
|
|
Decl.StructTypes[0].Address := 0;
|
||
|
|
Decl.StructTypes[0].Level := 0;
|
||
|
|
Decl.StructTypes[0].VarType := TRutisTypeDecl(FindDeclaration('Single', @Engine.StaticDeclarations));
|
||
|
|
Decl.StructTypes[1] := TRutisVarDecl.Create;
|
||
|
|
Decl.StructTypes[1].Name := 'Y';
|
||
|
|
Decl.StructTypes[1].Address := 4;
|
||
|
|
Decl.StructTypes[1].Level := 0;
|
||
|
|
Decl.StructTypes[1].VarType := Decl.StructTypes[0].VarType;
|
||
|
|
Decl.StructTypes[2] := TRutisVarDecl.Create;
|
||
|
|
Decl.StructTypes[2].Name := 'Z';
|
||
|
|
Decl.StructTypes[2].Address := 8;
|
||
|
|
Decl.StructTypes[2].Level := 0;
|
||
|
|
Decl.StructTypes[2].VarType := Decl.StructTypes[0].VarType;
|
||
|
|
Engine.AddStaticDeclaration(Decl);
|
||
|
|
|
||
|
|
Decl2 := TRutisPointerType.Create;
|
||
|
|
Decl2.Name := 'PVector3f';
|
||
|
|
Decl2.PointerType := Decl;
|
||
|
|
Engine.AddStaticDeclaration(Decl2);
|
||
|
|
|
||
|
|
Decl := TRutisStructType.Create;
|
||
|
|
Decl.Name := 'TVector4f';
|
||
|
|
Decl.IsPacked := True;
|
||
|
|
Decl.Size := 16;
|
||
|
|
Decl.fAlignSize := 4;
|
||
|
|
SetLength(Decl.StructTypes, 4);
|
||
|
|
Decl.StructTypes[0] := TRutisVarDecl.Create;
|
||
|
|
Decl.StructTypes[0].Name := 'X';
|
||
|
|
Decl.StructTypes[0].Address := 0;
|
||
|
|
Decl.StructTypes[0].Level := 0;
|
||
|
|
Decl.StructTypes[0].VarType := TRutisTypeDecl(FindDeclaration('Single', @Engine.StaticDeclarations));
|
||
|
|
Decl.StructTypes[1] := TRutisVarDecl.Create;
|
||
|
|
Decl.StructTypes[1].Name := 'Y';
|
||
|
|
Decl.StructTypes[1].Address := 4;
|
||
|
|
Decl.StructTypes[1].Level := 0;
|
||
|
|
Decl.StructTypes[1].VarType := Decl.StructTypes[0].VarType;
|
||
|
|
Decl.StructTypes[2] := TRutisVarDecl.Create;
|
||
|
|
Decl.StructTypes[2].Name := 'Z';
|
||
|
|
Decl.StructTypes[2].Address := 8;
|
||
|
|
Decl.StructTypes[2].Level := 0;
|
||
|
|
Decl.StructTypes[2].VarType := Decl.StructTypes[0].VarType;
|
||
|
|
Decl.StructTypes[3] := TRutisVarDecl.Create;
|
||
|
|
Decl.StructTypes[3].Name := 'W';
|
||
|
|
Decl.StructTypes[3].Address := 12;
|
||
|
|
Decl.StructTypes[3].Level := 0;
|
||
|
|
Decl.StructTypes[3].VarType := Decl.StructTypes[0].VarType;
|
||
|
|
Engine.AddStaticDeclaration(Decl);
|
||
|
|
|
||
|
|
Decl2 := TRutisPointerType.Create;
|
||
|
|
Decl2.Name := 'PVector4f';
|
||
|
|
Decl2.PointerType := Decl;
|
||
|
|
Engine.AddStaticDeclaration(Decl2);
|
||
|
|
{$ENDREGION}
|
||
|
|
|
||
|
|
//==============================================================================
|
||
|
|
//====================== OPENGL ================================================
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
{$REGION 'gl-Extension glx'}
|
||
|
|
Engine.RegExtMethod('glxInitOpenGL',{$IfDef FPC}@{$EndIf}_InitOpenGL, [], '');
|
||
|
|
Engine.RegExtMethod('glxSetViewportControl',{$IfDef FPC}@{$EndIf}_glxSetViewportControl, ['Pointer'], '');
|
||
|
|
Engine.RegExtMethod('glxNewFrame',{$IfDef FPC}@{$EndIf}_glxNewFrame, [], '');
|
||
|
|
Engine.RegExtMethod('glxSwapBuffers',{$IfDef FPC}@{$EndIf}_glxSwapBuffers, [], '');
|
||
|
|
Engine.RegExtMethod('glxSetNearFarClipping',{$IfDef FPC}@{$EndIf}_glxSetNearFarClipping, ['Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glxApplyTexture',{$IfDef FPC}@{$EndIf}_glxApplyTexture, ['String'], '');
|
||
|
|
Engine.RegExtMethod('glxGetTexture',{$IfDef FPC}@{$EndIf}_glxGetTexture, ['String'], 'Integer');
|
||
|
|
Engine.RegExtMethod('glxCamPos',{$IfDef FPC}@{$EndIf}_glxCamPos, ['Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glxCamRot',{$IfDef FPC}@{$EndIf}_glxCamRot, ['Single', 'Single', 'Single'], '');
|
||
|
|
|
||
|
|
Engine.RegExtMethod('glxCalculateFrustum',{$IfDef FPC}@{$EndIf}_glxCalculateFrustum, [], '');
|
||
|
|
Engine.RegExtMethod('glxIsPointInFrustum',{$IfDef FPC}@{$EndIf}_glxIsPointInFrustum, ['Single', 'Single', 'Single'], 'Boolean',
|
||
|
|
'#1: X' + sLineBreak +
|
||
|
|
'#2: Y' + sLineBreak +
|
||
|
|
'#3: Z' + sLineBreak);
|
||
|
|
Engine.RegExtMethod('glxIsSphereInFrustum',{$IfDef FPC}@{$EndIf}_glxIsSphereInFrustum, ['Single', 'Single', 'Single', 'Single'], 'Boolean',
|
||
|
|
'#1: X' + sLineBreak +
|
||
|
|
'#2: Y' + sLineBreak +
|
||
|
|
'#3: Z' + sLineBreak +
|
||
|
|
'#4: Radius' + sLineBreak);
|
||
|
|
Engine.RegExtMethod('glxIsBoxInFrustum',{$IfDef FPC}@{$EndIf}_glxIsBoxInFrustum, ['Single', 'Single', 'Single', 'Single', 'Single', 'Single'], 'Boolean',
|
||
|
|
'#1: X' + sLineBreak +
|
||
|
|
'#2: Y' + sLineBreak +
|
||
|
|
'#3: Z' + sLineBreak +
|
||
|
|
'#4: X' + sLineBreak +
|
||
|
|
'#5: Size-Y' + sLineBreak +
|
||
|
|
'#6: Size-Z' + sLineBreak);
|
||
|
|
Engine.RegExtMethod('glxIsPointInFrustumV',{$IfDef FPC}@{$EndIf}_glxIsPointInFrustumV, ['PVector3f'], 'Boolean',
|
||
|
|
'#1: XYZ' + sLineBreak);
|
||
|
|
Engine.RegExtMethod('glxIsSphereInFrustumV',{$IfDef FPC}@{$EndIf}_glxIsSphereInFrustumV, ['PVector3f', 'Single'], 'Boolean',
|
||
|
|
'#1: XYZ' + sLineBreak +
|
||
|
|
'#2: Radius' + sLineBreak);
|
||
|
|
Engine.RegExtMethod('glxIsBoxInFrustumV',{$IfDef FPC}@{$EndIf}_glxIsBoxInFrustumV, ['PVector3f', 'PVector3f'], 'Boolean',
|
||
|
|
'#1: XYZ' + sLineBreak +
|
||
|
|
'#2: Size-XYZ');
|
||
|
|
{$ENDREGION}
|
||
|
|
|
||
|
|
Engine.RegExtMethod('glViewport',{$IfDef FPC}@{$EndIf}_glViewport, ['Integer', 'Integer', 'Integer', 'Integer'], '');
|
||
|
|
Engine.RegExtMethod('glClear',{$IfDef FPC}@{$EndIf}_glClear, ['Cardinal'], '');
|
||
|
|
Engine.RegExtMethod('glFlush',{$IfDef FPC}@{$EndIf}_glFlush, [], '');
|
||
|
|
|
||
|
|
Engine.RegExtMethod('glGenLists',{$IfDef FPC}@{$EndIf}_glGenLists, ['Cardinal'], 'Cardinal');
|
||
|
|
Engine.RegExtMethod('glNewList',{$IfDef FPC}@{$EndIf}_glNewList, ['Cardinal', 'Cardinal'], '');
|
||
|
|
Engine.RegExtMethod('glEndList',{$IfDef FPC}@{$EndIf}_glEndList, [], '');
|
||
|
|
Engine.RegExtMethod('glCallList',{$IfDef FPC}@{$EndIf}_glCallList, ['Cardinal'], '');
|
||
|
|
|
||
|
|
Engine.RegExtMethod('glGenTextures',{$IfDef FPC}@{$EndIf}_glGenTextures, ['Cardinal', 'PCardinal'], '');
|
||
|
|
Engine.RegExtMethod('glBindTexture',{$IfDef FPC}@{$EndIf}_glBindTexture, ['Cardinal', 'Cardinal'], '');
|
||
|
|
Engine.RegExtMethod('glTexImage2D',{$IfDef FPC}@{$EndIf}_glTexImage2D, ['Cardinal', 'Integer',
|
||
|
|
'Integer', 'Integer', 'Integer', 'Cardinal', 'Cardinal', 'Cardinal', 'Pointer'], '');
|
||
|
|
Engine.RegExtMethod('glCopyTexImage2d',{$IfDef FPC}@{$EndIf}_glCopyTexImage2d, ['Cardinal', 'Integer',
|
||
|
|
'Cardinal', 'Integer', 'Integer', 'Integer', 'Integer', 'Integer'], '');
|
||
|
|
Engine.RegExtMethod('glTexParameteri',{$IfDef FPC}@{$EndIf}_glTexParameteri, ['Cardinal', 'Cardinal', 'Integer'], '');
|
||
|
|
|
||
|
|
Engine.RegExtMethod('glEnable',{$IfDef FPC}@{$EndIf}_glEnable, ['Integer'], '');
|
||
|
|
Engine.RegExtMethod('glDisable',{$IfDef FPC}@{$EndIf}_glDisable, ['Integer'], '');
|
||
|
|
Engine.RegExtMethod('glPushAttrib',{$IfDef FPC}@{$EndIf}_glPushAttrib, ['Integer'], '');
|
||
|
|
Engine.RegExtMethod('glPopAttrib',{$IfDef FPC}@{$EndIf}_glPopAttrib, [], '');
|
||
|
|
|
||
|
|
{$REGION 'Vectors etc.'}
|
||
|
|
Engine.RegExtMethod('glColor3f',{$IfDef FPC}@{$EndIf}_glColor3f, ['Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glColor4f',{$IfDef FPC}@{$EndIf}_glColor4f, ['Single', 'Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glColor3fv',{$IfDef FPC}@{$EndIf}_glColor3fv, ['PVector3f'], '');
|
||
|
|
Engine.RegExtMethod('glColor4fv',{$IfDef FPC}@{$EndIf}_glColor3fv, ['PVector4f'], '');
|
||
|
|
Engine.RegExtMethod('glVertex2f',{$IfDef FPC}@{$EndIf}_glVertex2f, ['Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glVertex3f',{$IfDef FPC}@{$EndIf}_glVertex3f, ['Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glVertex4f',{$IfDef FPC}@{$EndIf}_glVertex4f, ['Single', 'Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glVertex2fv',{$IfDef FPC}@{$EndIf}_glVertex2fv, ['PVector2f'], '');
|
||
|
|
Engine.RegExtMethod('glVertex3fv',{$IfDef FPC}@{$EndIf}_glVertex3fv, ['PVector3f'], '');
|
||
|
|
Engine.RegExtMethod('glVertex4fv',{$IfDef FPC}@{$EndIf}_glVertex4fv, ['PVector4f'], '');
|
||
|
|
Engine.RegExtMethod('glNormal3f',{$IfDef FPC}@{$EndIf}_glNormal3f, ['Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glNormal3fv',{$IfDef FPC}@{$EndIf}_glNormal3fv, ['PVector3f'], '');
|
||
|
|
Engine.RegExtMethod('glTexCoord2f',{$IfDef FPC}@{$EndIf}_glTexCoord2f, ['Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glTexCoord2fv',{$IfDef FPC}@{$EndIf}_glTexCoord2fv, ['PVector2f'], '');
|
||
|
|
{$ENDREGION}
|
||
|
|
|
||
|
|
Engine.RegExtMethod('glBegin',{$IfDef FPC}@{$EndIf}_glBegin, ['Integer'], '');
|
||
|
|
Engine.RegExtMethod('glEnd',{$IfDef FPC}@{$EndIf}_glEnd, [], '');
|
||
|
|
Engine.RegExtMethod('glSphere',{$IfDef FPC}@{$EndIf}_glSphere, ['Integer'], '');
|
||
|
|
Engine.RegExtMethod('glCube',{$IfDef FPC}@{$EndIf}_glCube, ['Integer'], '');
|
||
|
|
|
||
|
|
//Engine.RegExtMethod('glFogf',{$IfDef FPC}@{$EndIf}_glFogf, ['Single'], '');
|
||
|
|
//Engine.RegExtMethod('glFog4f',{$IfDef FPC}@{$EndIf}_glFog4f, ['Single','Single','Single','Single'], '');
|
||
|
|
//Engine.RegExtMethod('glMaterialf',{$IfDef FPC}@{$EndIf}_glMaterialf, ['Single'], '');
|
||
|
|
//Engine.RegExtMethod('glMaterial4f',{$IfDef FPC}@{$EndIf}_glMaterial4f, ['Single','Single','Single','Single'], '');
|
||
|
|
|
||
|
|
// MATRIX Operations
|
||
|
|
Engine.RegExtMethod('glMatrixMode',{$IfDef FPC}@{$EndIf}_glMatrixMode, ['Cardinal'], '');
|
||
|
|
Engine.RegExtMethod('glOrtho',{$IfDef FPC}@{$EndIf}_glOrtho, ['Single', 'Single', 'Single', 'Single', 'Single', 'Single'], '',
|
||
|
|
'procedure glOrtho(left, right, bottom, top, zNear, zFar: Single);');
|
||
|
|
Engine.RegExtMethod('gluOrtho2D',{$IfDef FPC}@{$EndIf}_gluOrtho2D, ['Single', 'Single', 'Single', 'Single'], '',
|
||
|
|
'procedure gluOrtho2D(left, right, bottom, top: Single);');
|
||
|
|
Engine.RegExtMethod('gluPerspective',{$IfDef FPC}@{$EndIf}_gluPerspective, ['Single', 'Single', 'Single', 'Single'], '',
|
||
|
|
'procedure gluPerspective(fovy, aspect, zNear, zFar: Single);');
|
||
|
|
|
||
|
|
Engine.RegExtMethod('glPushMatrix',{$IfDef FPC}@{$EndIf}_glPushMatrix, [], '');
|
||
|
|
Engine.RegExtMethod('glPopMatrix',{$IfDef FPC}@{$EndIf}_glPopMatrix, [], '');
|
||
|
|
Engine.RegExtMethod('glLoadIdentity',{$IfDef FPC}@{$EndIf}_glLoadIdentity, [], '');
|
||
|
|
|
||
|
|
Engine.RegExtMethod('glTranslatef',{$IfDef FPC}@{$EndIf}_glTranslatef, ['Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glTranslatefv',{$IfDef FPC}@{$EndIf}_glTranslatefv, ['PVector3f'], '');
|
||
|
|
Engine.RegExtMethod('glRotatef',{$IfDef FPC}@{$EndIf}_glRotatef, ['Single', 'Single', 'Single', 'Single'], '',
|
||
|
|
'procedure glRotatef(angle, x, y, z: Single);');
|
||
|
|
Engine.RegExtMethod('glRotate3f',{$IfDef FPC}@{$EndIf}_glRotatef, ['Single', 'Single', 'Single'], '',
|
||
|
|
'procedure glRotate3f(x,y,z: Single);');
|
||
|
|
Engine.RegExtMethod('glRotatefv',{$IfDef FPC}@{$EndIf}_glRotatefv, ['PVector3f'], '');
|
||
|
|
Engine.RegExtMethod('glScalef',{$IfDef FPC}@{$EndIf}_glScalef, ['Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glScalefv',{$IfDef FPC}@{$EndIf}_glScalefv, ['PVector3f'], '');
|
||
|
|
|
||
|
|
//Engine.RegExtMethod('glMultMatrixf',{$IfDef FPC}@{$EndIf}_glMultMatrixf, ['TMatrix4f'], '');
|
||
|
|
//Engine.RegExtMethod('glMatrixMode',{$IfDef FPC}@{$EndIf}_glMatrixMode, ['Integer'], '');
|
||
|
|
//Engine.RegExtMethod('glOrtho',{$IfDef FPC}@{$EndIf}_glOrtho, ['Single','Single','Single','Single','Single','Single'], '');
|
||
|
|
|
||
|
|
//Engine.RegExtMethod('glPolygonMode',{$IfDef FPC}@{$EndIf}_glPolygonMode, ['Integer','Integer'], '');
|
||
|
|
//Engine.RegExtMethod('glPolygonOffset',{$IfDef FPC}@{$EndIf}_glPolygonOffset, ['Single','Single'], '');
|
||
|
|
Engine.RegExtMethod('glLineWidth',{$IfDef FPC}@{$EndIf}_glLineWidth, ['Integer'], '');
|
||
|
|
Engine.RegExtMethod('glBlendFunc',{$IfDef FPC}@{$EndIf}_glBlendFunc, ['Integer', 'Integer'], '');
|
||
|
|
Engine.RegExtMethod('glClearColor',{$IfDef FPC}@{$EndIf}_glClearColor, ['Single', 'Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glAccum',{$IfDef FPC}@{$EndIf}_glAccum, ['Cardinal', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glReadBuffer',{$IfDef FPC}@{$EndIf}_glReadBuffer, ['Cardinal'], '');
|
||
|
|
|
||
|
|
Engine.RegExtMethod('glLight4f',{$IfDef FPC}@{$EndIf}_glLight4f, ['Integer', 'Integer', 'Single', 'Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glLight3f',{$IfDef FPC}@{$EndIf}_glLight3f, ['Integer', 'Integer', 'Single', 'Single', 'Single'], '');
|
||
|
|
Engine.RegExtMethod('glLightf',{$IfDef FPC}@{$EndIf}_glLightf, ['Integer', 'Integer', 'Single'], '');
|
||
|
|
|
||
|
|
OutputDebugString(PChar('Rutis_EXT_OpenGl.RegisterEXTMethods - Successfully registered RUTIS OpenGL Support'));
|
||
|
|
End;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
End.
|
||
|
|
|
||
|
|
{
|
||
|
|
glGenLists
|
||
|
|
glDeleteLists
|
||
|
|
glCallList
|
||
|
|
glCallLists
|
||
|
|
glEndList
|
||
|
|
glListBase
|
||
|
|
glColorMaterial
|
||
|
|
glFrontFace
|
||
|
|
glPointSize
|
||
|
|
glDeleteTextures
|
||
|
|
glBindTexture
|
||
|
|
glDeleteTextures
|
||
|
|
glTexCoord2f
|
||
|
|
glTexCoord3f
|
||
|
|
glTexCoord4f
|
||
|
|
glTexGeni
|
||
|
|
glTexGenfv (4f)
|
||
|
|
glTexParameteri
|
||
|
|
glTexParameterf (4f)
|
||
|
|
glCopyTexImage2D
|
||
|
|
glCopyTexSubImage2D
|
||
|
|
glActiveTexture
|
||
|
|
glMultiTexCoord2f
|
||
|
|
glMultiTexCoord3f
|
||
|
|
glMultiTexCoord4f
|
||
|
|
glViewport
|
||
|
|
|
||
|
|
gluLookAt
|
||
|
|
|
||
|
|
glIsEnabled
|
||
|
|
glIsList
|
||
|
|
glIsTexture
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
glBlendFuncSeparate
|
||
|
|
glBlendColor
|
||
|
|
glBlendEquation
|
||
|
|
glBlendEquationSeparate
|
||
|
|
glClearDepth
|
||
|
|
glClearStencil
|
||
|
|
glClipPlane
|
||
|
|
glColorMask
|
||
|
|
glDepthFunc
|
||
|
|
glDepthMask
|
||
|
|
glDepthRange
|
||
|
|
glFinish
|
||
|
|
glFlush
|
||
|
|
glFrustum
|
||
|
|
|
||
|
|
glInitNames
|
||
|
|
glLoadName
|
||
|
|
glPushName
|
||
|
|
glPopName
|
||
|
|
glLightModelf (4f)
|
||
|
|
glLogicOp
|
||
|
|
glNewList
|
||
|
|
glRasterPos2f
|
||
|
|
glRasterPos3f
|
||
|
|
glWindowPos2f
|
||
|
|
glWindowPos3f
|
||
|
|
glRectf (x1,y1,x2,y2)
|
||
|
|
glRenderMode
|
||
|
|
glSelectBuffer
|
||
|
|
glShadeModel
|
||
|
|
glStencilFunc
|
||
|
|
glStencilFuncSeparate
|
||
|
|
glStencilMask
|
||
|
|
glStencilMaskSeparate
|
||
|
|
glStencilOp
|
||
|
|
glStencilOpSeparate
|
||
|
|
glTexImage2D
|
||
|
|
glTexSubImage2D
|
||
|
|
glTexImage3D
|
||
|
|
glTexSubImage3D
|
||
|
|
glFogCoordf
|
||
|
|
glGenQueries
|
||
|
|
glDeleteQueries
|
||
|
|
glIsQuery
|
||
|
|
glBeginQuery
|
||
|
|
glEndQuery
|
||
|
|
glGetQueryiv
|
||
|
|
glGetQueryObjectiv
|
||
|
|
|
||
|
|
gluPickMatrix
|
||
|
|
gluLookAt
|
||
|
|
gluProject
|
||
|
|
gluUnProject
|
||
|
|
gluScaleImage
|
||
|
|
gluBuild2DMipmaps
|
||
|
|
|
||
|
|
gluNewQuadric: TgluNewQuadric;
|
||
|
|
gluDeleteQuadric: TgluDeleteQuadric;
|
||
|
|
gluQuadricNormals: TgluQuadricNormals;
|
||
|
|
gluQuadricTexture: TgluQuadricTexture;
|
||
|
|
gluQuadricOrientation: TgluQuadricOrientation;
|
||
|
|
gluQuadricDrawStyle: TgluQuadricDrawStyle;
|
||
|
|
gluCylinder: TgluCylinder;
|
||
|
|
gluDisk: TgluDisk;
|
||
|
|
gluPartialDisk: TgluPartialDisk;
|
||
|
|
gluSphere: TgluSphere;
|
||
|
|
gluQuadricCallback: TgluQuadricCallback;
|
||
|
|
gluNewTess: TgluNewTess;
|
||
|
|
gluDeleteTess: TgluDeleteTess;
|
||
|
|
gluTessBeginPolygon: TgluTessBeginPolygon;
|
||
|
|
gluTessBeginContour: TgluTessBeginContour;
|
||
|
|
gluTessVertex: TgluTessVertex;
|
||
|
|
gluTessEndContour: TgluTessEndContour;
|
||
|
|
gluTessEndPolygon: TgluTessEndPolygon;
|
||
|
|
gluTessProperty: TgluTessProperty;
|
||
|
|
gluTessNormal: TgluTessNormal;
|
||
|
|
gluTessCallback: TgluTessCallback;
|
||
|
|
gluGetTessProperty: TgluGetTessProperty;
|
||
|
|
gluNewNurbsRenderer: TgluNewNurbsRenderer;
|
||
|
|
gluDeleteNurbsRenderer: TgluDeleteNurbsRenderer;
|
||
|
|
gluBeginSurface: TgluBeginSurface;
|
||
|
|
gluBeginCurve: TgluBeginCurve;
|
||
|
|
gluEndCurve: TgluEndCurve;
|
||
|
|
gluEndSurface: TgluEndSurface;
|
||
|
|
gluBeginTrim: TgluBeginTrim;
|
||
|
|
gluEndTrim: TgluEndTrim;
|
||
|
|
gluPwlCurve: TgluPwlCurve;
|
||
|
|
gluNurbsCurve: TgluNurbsCurve;
|
||
|
|
gluNurbsSurface: TgluNurbsSurface;
|
||
|
|
gluLoadSamplingMatrices: TgluLoadSamplingMatrices;
|
||
|
|
gluNurbsProperty: TgluNurbsProperty;
|
||
|
|
gluGetNurbsProperty: TgluGetNurbsProperty;
|
||
|
|
gluNurbsCallback: TgluNurbsCallback;
|
||
|
|
gluBeginPolygon: TgluBeginPolygon;
|
||
|
|
gluNextContour: TgluNextContour;
|
||
|
|
gluEndPolygon: TgluEndPolygon;
|
||
|
|
|
||
|
|
glGetBooleanv: TglGetBooleanv;
|
||
|
|
glGetClipPlane: TglGetClipPlane;
|
||
|
|
glGetDoublev: TglGetDoublev;
|
||
|
|
glGetError: TglGetError;
|
||
|
|
glGetFloatv: TglGetFloatv;
|
||
|
|
glGetIntegerv: TglGetIntegerv;
|
||
|
|
glGetLightfv: TglGetLightfv;
|
||
|
|
glGetLightiv: TglGetLightiv;
|
||
|
|
glGetMapdv: TglGetMapdv;
|
||
|
|
glGetMapfv: TglGetMapfv;
|
||
|
|
glGetMapiv: TglGetMapiv;
|
||
|
|
glGetMaterialfv: TglGetMaterialfv;
|
||
|
|
glGetMaterialiv: TglGetMaterialiv;
|
||
|
|
glGetPixelMapfv: TglGetPixelMapfv;
|
||
|
|
glGetPixelMapuiv: TglGetPixelMapuiv;
|
||
|
|
glGetPixelMapusv: TglGetPixelMapusv;
|
||
|
|
glGetPointerv: TglGetPointerv;
|
||
|
|
glGetPolygonStipple: TglGetPolygonStipple;
|
||
|
|
glGetTexEnvfv: TglGetTexEnvfv;
|
||
|
|
glGetTexEnviv: TglGetTexEnviv;
|
||
|
|
glGetTexGendv: TglGetTexGendv;
|
||
|
|
glGetTexGenfv: TglGetTexGenfv;
|
||
|
|
glGetTexGeniv: TglGetTexGeniv;
|
||
|
|
glGetTexImage: TglGetTexImage;
|
||
|
|
glGetTexLevelParameterfv: TglGetTexLevelParameterfv;
|
||
|
|
glGetTexLevelParameteriv: TglGetTexLevelParameteriv;
|
||
|
|
glGetTexParameterfv: TglGetTexParameterfv;
|
||
|
|
glGetTexParameteriv: TglGetTexParameteriv;
|
||
|
|
|
||
|
|
}
|