TBGLShader3D

type TBGLShader3D = class(TBGLCustomShader)

protected

  FUsed: Boolean;

  FCanvas: TBGLCustomCanvas;

  FLighting: TBGLCustomLighting;

  FVertexShaderSource: string;

  FFragmentShaderSource: string;

  FVertexShader: LongWord;

  FFragmentShader: LongWord;

  FProgram: LongWord;

  function GetUniformVariableSingle();

  function GetUniformVariablePointF();

  function GetUniformVariablePoint3D();

  function GetUniformVariableInteger();

  function GetUniformVariablePoint();

  function GetUniformVariableMatrix4D();

  function GetAttributeVariableInteger();

  function GetAttributeVariablePoint();

  function GetAttributeVariableSingle();

  function GetAttributeVariablePointF();

  function GetAttributeVariablePoint3D();

  procedure SetUniformSingle();

  procedure SetUniformInteger();

  procedure CheckUsage();

  procedure StartUse; override;

  procedure EndUse; override;

  property Canvas: TBGLCustomCanvas; [r]

public

  constructor Create();

  destructor Destroy; override;

  property UniformSingle []: TUniformVariableSingle; [r]

  property UniformPointF []: TUniformVariablePointF; [r]

  property UniformPoint3D []: TUniformVariablePoint3D; [r]

  property UniformInteger []: TUniformVariableInteger; [r]

  property UniformPoint []: TUniformVariablePoint; [r]

  property UniformMatrix4D []: TUniformVariableMatrix4D; [r]

  property AttributeSingle []: TAttributeVariableSingle; [r]

  property AttributePointF []: TAttributeVariablePointF; [r]

  property AttributePoint3D []: TAttributeVariablePoint3D; [r]

  property AttributeInteger []: TAttributeVariableInteger; [r]

  property AttributePoint []: TAttributeVariablePoint; [r]

  property IsUsed: Boolean; [r]

end;

TBGLShader3D

TBGLCustomShader

TObject