TGLRenderer

type TGLRenderer = class

public

  ambient: TfRGBA;

  diffuse: TfRGBA;

  color: TfRGBA;

  shininess: single;

  cam: TCamera;

  shader: TGLShader;

  curTexture: LongInt;

  va2D: array of T2DVertex;

  va3D: array of T3DVertex;

  program2D: TShaderProgram;

  program3D: TShaderProgram;

  lights: array of T3DLight;

  buf2D: GLuint;

  buf3D: GLuint;

  att_2Dpos: GLint;

  att_2Dtex: GLint;

  att_2Dcol: GLint;

  att_3Dpos: GLint;

  att_3Dtex: GLint;

  att_3Dcol: GLint;

  uniModel: GLint;

  uniNormal: GLint;

  uniDiffuse2D: GLint;

  uniPmv2D: GLint;

  uniPmv3D: GLint;

  uniTex2D: GLint;

  uniTex3D: GLint;

  uniLightcount: GLint;

  uniLights: GLint;

  uniAmbient3D: GLint;

  uniSpecular: GLint;

  uniShininess: GLint;

  count: Word;

  Length2D: Word;

  Length3D: Word;

  property isEnabled: Boolean; [r]

  property isBuffer3D: Boolean; [r]

  property polyMode: GLuint; [r]

  function AddProgram();

  constructor Create();

  destructor Destroy; override;

  procedure Disable;

  function Draw();

  function DrawRotateS();

  procedure Enable2D();

  procedure Enable3D();

  procedure EnableProgram();

  function NewQuad;

  function NewTriangle;

  procedure Render;

  procedure Reset;

  procedure SetColor();

  procedure SetDiffuse();

  procedure SetNormal();

  procedure SetTexture();

  procedure SetUniforms();

  procedure SetVertex();

end;

TGLRenderer

TObject