Class TBGLShader3D

Unit

Declaration

type TBGLShader3D = class(TBGLCustomShader)

Description

Shader for 3D polygons

Hierarchy

TObject
TBGLCustomShader
TBGLShader3D

Overview

Fields

	`FCanvas: TBGLCustomCanvas;`
	`FFragmentShader: LongWord;`
	`FFragmentShaderSource: string;`
	`FLighting: TBGLCustomLighting;`
	`FProgram: LongWord;`
	`FUsed: boolean;`
	`FVertexShader: LongWord;`
	`FVertexShaderSource: string;`

Methods

	`constructor Create(ACanvas: TBGLCustomCanvas; AVertexShaderSource: string; AFragmentShaderSource: string; AVaryingVariables: string = ''; AVersion: string = '120');`
	`destructor Destroy; override;`
	`function GetAttributeVariableInteger(AName: string): TAttributeVariableInteger;`
	`function GetAttributeVariablePoint(AName: string): TAttributeVariablePoint;`
	`function GetAttributeVariablePoint3D(AName: string): TAttributeVariablePoint3D;`
	`function GetAttributeVariablePointF(AName: string): TAttributeVariablePointF;`
	`function GetAttributeVariableSingle(AName: string): TAttributeVariableSingle;`
	`function GetUniformVariableInteger(AName: string): TUniformVariableInteger;`
	`function GetUniformVariableMatrix4D(AName: string): TUniformVariableMatrix4D;`
	`function GetUniformVariablePoint(AName: string): TUniformVariablePoint;`
	`function GetUniformVariablePoint3D(AName: string): TUniformVariablePoint3D;`
	`function GetUniformVariablePointF(AName: string): TUniformVariablePointF;`
	`function GetUniformVariableSingle(AName: string): TUniformVariableSingle;`
	`procedure CheckUsage(AUsing: boolean);`
	`procedure EndUse; override;`
	`procedure SetUniformInteger(AVariable: LongWord; const AValue; AElementCount: integer; AComponentCount: integer);`
	`procedure SetUniformSingle(AVariable: LongWord; const AValue; AElementCount: integer; AComponentCount: integer);`
	`procedure StartUse; override;`

Properties

	`property AttributeInteger[AName: string]: TAttributeVariableInteger read GetAttributeVariableInteger;`
	`property AttributePoint[AName: string]: TAttributeVariablePoint read GetAttributeVariablePoint;`
	`property AttributePoint3D[AName: string]: TAttributeVariablePoint3D read GetAttributeVariablePoint3D;`
	`property AttributePointF[AName: string]: TAttributeVariablePointF read GetAttributeVariablePointF;`
	`property AttributeSingle[AName: string]: TAttributeVariableSingle read GetAttributeVariableSingle;`
	`property Canvas: TBGLCustomCanvas read FCanvas;`
	`property IsUsed: boolean read FUsed;`
	`property UniformInteger[AName: string]: TUniformVariableInteger read GetUniformVariableInteger;`
	`property UniformMatrix4D[AName: string]: TUniformVariableMatrix4D read GetUniformVariableMatrix4D;`
	`property UniformPoint[AName: string]: TUniformVariablePoint read GetUniformVariablePoint;`
	`property UniformPoint3D[AName: string]: TUniformVariablePoint3D read GetUniformVariablePoint3D;`
	`property UniformPointF[AName: string]: TUniformVariablePointF read GetUniformVariablePointF;`
	`property UniformSingle[AName: string]: TUniformVariableSingle read GetUniformVariableSingle;`

Description

Fields

	`FCanvas: TBGLCustomCanvas;`
This item has no description.

	`FFragmentShader: LongWord;`
This item has no description.

	`FFragmentShaderSource: string;`
This item has no description.

	`FLighting: TBGLCustomLighting;`
This item has no description.

	`FProgram: LongWord;`
This item has no description.

	`FUsed: boolean;`
This item has no description.

	`FVertexShader: LongWord;`
This item has no description.

	`FVertexShaderSource: string;`
This item has no description.

Methods

	`constructor Create(ACanvas: TBGLCustomCanvas; AVertexShaderSource: string; AFragmentShaderSource: string; AVaryingVariables: string = ''; AVersion: string = '120');`
This item has no description.

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

	`function GetAttributeVariableInteger(AName: string): TAttributeVariableInteger;`
This item has no description.

	`function GetAttributeVariablePoint(AName: string): TAttributeVariablePoint;`
This item has no description.

	`function GetAttributeVariablePoint3D(AName: string): TAttributeVariablePoint3D;`
This item has no description.

	`function GetAttributeVariablePointF(AName: string): TAttributeVariablePointF;`
This item has no description.

	`function GetAttributeVariableSingle(AName: string): TAttributeVariableSingle;`
This item has no description.

	`function GetUniformVariableInteger(AName: string): TUniformVariableInteger;`
This item has no description.

	`function GetUniformVariableMatrix4D(AName: string): TUniformVariableMatrix4D;`
This item has no description.

	`function GetUniformVariablePoint(AName: string): TUniformVariablePoint;`
This item has no description.

	`function GetUniformVariablePoint3D(AName: string): TUniformVariablePoint3D;`
This item has no description.

	`function GetUniformVariablePointF(AName: string): TUniformVariablePointF;`
This item has no description.

	`function GetUniformVariableSingle(AName: string): TUniformVariableSingle;`
This item has no description.

	`procedure CheckUsage(AUsing: boolean);`
This item has no description.

	`procedure EndUse; override;`
This item has no description.

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

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

	`procedure StartUse; override;`
This item has no description.

Properties

	`property AttributeInteger[AName: string]: TAttributeVariableInteger read GetAttributeVariableInteger;`
This item has no description.

	`property AttributePoint[AName: string]: TAttributeVariablePoint read GetAttributeVariablePoint;`
This item has no description.

	`property AttributePoint3D[AName: string]: TAttributeVariablePoint3D read GetAttributeVariablePoint3D;`
This item has no description.

	`property AttributePointF[AName: string]: TAttributeVariablePointF read GetAttributeVariablePointF;`
This item has no description.

	`property AttributeSingle[AName: string]: TAttributeVariableSingle read GetAttributeVariableSingle;`
This item has no description.

	`property Canvas: TBGLCustomCanvas read FCanvas;`
This item has no description.

	`property IsUsed: boolean read FUsed;`
This item has no description.

	`property UniformInteger[AName: string]: TUniformVariableInteger read GetUniformVariableInteger;`
This item has no description.

	`property UniformMatrix4D[AName: string]: TUniformVariableMatrix4D read GetUniformVariableMatrix4D;`
This item has no description.

	`property UniformPoint[AName: string]: TUniformVariablePoint read GetUniformVariablePoint;`
This item has no description.

	`property UniformPoint3D[AName: string]: TUniformVariablePoint3D read GetUniformVariablePoint3D;`
This item has no description.

	`property UniformPointF[AName: string]: TUniformVariablePointF read GetUniformVariablePointF;`
This item has no description.

	`property UniformSingle[AName: string]: TUniformVariableSingle read GetUniformVariableSingle;`
This item has no description.