From: Bergmann89 Date: Wed, 22 Oct 2014 17:16:19 +0000 (+0200) Subject: * some small cleanup X-Git-Url: https://git.delphigl.com/?a=commitdiff_plain;h=d3ba3cb9166f57256b6fe62ebdbf9dbaf9a6d92f;p=LazOpenGLCore.git * some small cleanup --- diff --git a/uglcLight.pas b/uglcLight.pas index 6a36b43..fd79ca5 100644 --- a/uglcLight.pas +++ b/uglcLight.pas @@ -21,7 +21,10 @@ type end; PglcMaterialRec = ^TglcMaterialRec; - TglcLightType = (ltGlobal, ltPoint, ltSpot); + TglcLightType = ( + ltGlobal = 0, + ltPoint = 1, + ltSpot = 2); TglcLightRec = packed record Ambient: TgluVector4f; Diffuse: TgluVector4f; diff --git a/uglcShader.pas b/uglcShader.pas index 4235108..634d57f 100644 --- a/uglcShader.pas +++ b/uglcShader.pas @@ -99,9 +99,6 @@ type fProgramObj: GLHandle; fOnLog: TglcShaderLogEvent; fFilename: String; - fGeometryInputType: GLint; - fGeometryOutputType: GLint; - fGeometryVerticesOut: GLint; function GetUniformLocation(const aName: String; out aPos: glInt): Boolean; function GetInfoLog(Obj: GLHandle): String; @@ -117,9 +114,6 @@ type property Compiled: Boolean read GetCompiled; property Linked: Boolean read GetLinked; property OnLog: TglcShaderLogEvent read fOnLog write fOnLog; - property GeometryInputType: GLint read fGeometryInputType write fGeometryInputType; - property GeometryOutputType: GLint read fGeometryOutputType write fGeometryOutputType; - property GeometryVerticesOut: GLint read fGeometryVerticesOut write fGeometryVerticesOut; procedure Compile; procedure Enable; @@ -158,7 +152,7 @@ type procedure SaveToFile(const aFilename: String); procedure SaveToStream(const aStream: TStream); - constructor Create(aLogEvent: TglcShaderLogEvent = nil); + constructor Create(const aLogEvent: TglcShaderLogEvent = nil); destructor Destroy; override; end; @@ -960,7 +954,7 @@ end; //@LogEvent: Event zum loggen von Fehlern und Ereignissen; //@raise: EglcShader wenn OpenGL nicht initialisiert werden konnte; //@raise: -constructor TglcShaderProgram.Create(aLogEvent: TglcShaderLogEvent); +constructor TglcShaderProgram.Create(const aLogEvent: TglcShaderLogEvent); begin inherited Create; fOnLog := aLogEvent;