Class TBGLCustomLighting

Description

Hierarchy

Fields

Methods

Properties

Unit

BGRACanvasGL

Declaration

type TBGLCustomLighting = class(TObject)

Description

Abstract class for lighting with OpenGL

Hierarchy

TObject
TBGLCustomLighting

Overview

Fields

ShaderList: TStringList;

Methods

	`destructor Destroy; override;`
	`function AddDirectionalLight(AColor: TColorF; ADirection: TPoint3D): integer; virtual; abstract;`
	`function AddPointLight(AColor: TColorF; APosition: TPoint3D; ALinearAttenuation, AQuadraticAttenuation: single): integer; virtual; abstract;`
	`function GetAttribVariable(AProgram: LongWord; AName: string): LongWord; virtual; abstract;`
	`function GetUniformVariable(AProgram: LongWord; AName: string): LongWord; virtual; abstract;`
	`function MakeFragmentShader(ASource: string): LongWord; virtual; abstract;`
	`function MakeShaderProgram(AVertexShader, AFragmentShader: LongWord): LongWord; virtual; abstract;`
	`function MakeVertexShader(ASource: string): LongWord; virtual; abstract;`
	`function RemoveLight(AIndex: integer): boolean; virtual; abstract;`
	`function GetAmbiantLightF: TColorF; virtual; abstract;`
	`function GetBuiltInLightingEnabled: boolean; virtual; abstract;`
	`function GetShader(AName: string): TBGLCustomShader;`
	`function GetSupportShaders: boolean; virtual;`
	`procedure BindAttribute(AAttribute: TAttributeVariable); virtual; abstract;`
	`procedure ClearLights; virtual; abstract;`
	`procedure DeleteShaderObject(AShader: LongWord); virtual; abstract;`
	`procedure DeleteShaderProgram(AProgram: LongWord); virtual; abstract;`
	`procedure FreeShaders;`
	`procedure SetSpecularIndex(AIndex: integer); virtual; abstract;`
	`procedure SetUniformInteger(AVariable: LongWord; const AValue; AElementCount, AComponentCount: integer); virtual; abstract;`
	`procedure SetUniformSingle(AVariable: LongWord; const AValue; AElementCount, AComponentCount: integer); virtual; abstract;`
	`procedure UnbindAttribute(AAttribute: TAttributeVariable); virtual; abstract;`
	`procedure UseProgram(AProgram: LongWord); virtual; abstract;`
	`procedure SetAmbiantLightF(AAmbiantLight: TColorF); virtual; abstract;`
	`procedure SetBuiltInLightingEnabled(AValue: boolean); virtual; abstract;`
	`procedure SetShader(AName: string; AValue: TBGLCustomShader);`

Properties

	`property ActiveShader: TBGLCustomShader read GetActiveShader write SetActiveShader;`
	`property AmbiantLightF: TColorF read GetAmbiantLightF write SetAmbiantLightF;`
	`property BuiltInLightingEnabled: boolean read GetBuiltInLightingEnabled write SetBuiltInLightingEnabled;`
	`property Shader[AName: string]: TBGLCustomShader read GetShader write SetShader;`
	`property SupportShaders: boolean read GetSupportShaders;`

Description

Fields

	`ShaderList: TStringList;`
This item has no description.

Methods

	`destructor Destroy; override;`
This item has no description.

	`function AddDirectionalLight(AColor: TColorF; ADirection: TPoint3D): integer; virtual; abstract;`
This item has no description.

	`function AddPointLight(AColor: TColorF; APosition: TPoint3D; ALinearAttenuation, AQuadraticAttenuation: single): integer; virtual; abstract;`
This item has no description.

	`function GetAttribVariable(AProgram: LongWord; AName: string): LongWord; virtual; abstract;`
This item has no description.

	`function GetUniformVariable(AProgram: LongWord; AName: string): LongWord; virtual; abstract;`
This item has no description.

	`function MakeFragmentShader(ASource: string): LongWord; virtual; abstract;`
This item has no description.

	`function MakeShaderProgram(AVertexShader, AFragmentShader: LongWord): LongWord; virtual; abstract;`
This item has no description.

	`function MakeVertexShader(ASource: string): LongWord; virtual; abstract;`
This item has no description.

	`function RemoveLight(AIndex: integer): boolean; virtual; abstract;`
This item has no description.

	`function GetAmbiantLightF: TColorF; virtual; abstract;`
This item has no description.

	`function GetBuiltInLightingEnabled: boolean; virtual; abstract;`
This item has no description.

	`function GetShader(AName: string): TBGLCustomShader;`
This item has no description.

	`function GetSupportShaders: boolean; virtual;`
This item has no description.

	`procedure BindAttribute(AAttribute: TAttributeVariable); virtual; abstract;`
This item has no description.

	`procedure ClearLights; virtual; abstract;`
This item has no description.

	`procedure DeleteShaderObject(AShader: LongWord); virtual; abstract;`
This item has no description.

	`procedure DeleteShaderProgram(AProgram: LongWord); virtual; abstract;`
This item has no description.

	`procedure FreeShaders;`
This item has no description.

	`procedure SetSpecularIndex(AIndex: integer); virtual; abstract;`
This item has no description.

	`procedure SetUniformInteger(AVariable: LongWord; const AValue; AElementCount, AComponentCount: integer); virtual; abstract;`
This item has no description.

	`procedure SetUniformSingle(AVariable: LongWord; const AValue; AElementCount, AComponentCount: integer); virtual; abstract;`
This item has no description.

	`procedure UnbindAttribute(AAttribute: TAttributeVariable); virtual; abstract;`
This item has no description.

	`procedure UseProgram(AProgram: LongWord); virtual; abstract;`
This item has no description.

	`procedure SetAmbiantLightF(AAmbiantLight: TColorF); virtual; abstract;`
This item has no description.

	`procedure SetBuiltInLightingEnabled(AValue: boolean); virtual; abstract;`
This item has no description.

	`procedure SetShader(AName: string; AValue: TBGLCustomShader);`
This item has no description.

Properties

	`property ActiveShader: TBGLCustomShader read GetActiveShader write SetActiveShader;`
This item has no description.

	`property AmbiantLightF: TColorF read GetAmbiantLightF write SetAmbiantLightF;`
This item has no description.

	`property BuiltInLightingEnabled: boolean read GetBuiltInLightingEnabled write SetBuiltInLightingEnabled;`
This item has no description.

	`property Shader[AName: string]: TBGLCustomShader read GetShader write SetShader;`
This item has no description.

	`property SupportShaders: boolean read GetSupportShaders;`
This item has no description.

Getting started

Class TBGLCustomLighting

Unit

Declaration

Description

Hierarchy

Overview

Fields

Methods

Properties

Description

Fields

Methods

Properties