Gorilla.Controller.Passes.CustomBlur

Unit Gorilla.Controller.Passes.CustomBlur.pas

Classes

TBlurMaterial = class ( TGorillaRenderPassMaterial )
TBlurMaterialSource = class ( TGorillaRenderPassMaterialSource )
TGorillaRenderPassBlur = class ( TGorillaRenderPassController )

Enumerations

enum TPassBlurMode = ( Horizontal, Vertical ) ;

Constants

TBlurMaterial

Ancestors

-TGorillaRenderPassMaterial

-TCustomMaterial

Members

Fields

protected FBlurMode : TPassBlurMode
protected FPixelShader2 : TContextShader
protected FBlurAmount : Single
protected FInputTexture : TTexture

Methods

public constructor Create ( const ASource : TBlurMaterialSource ) ;
public destructor Destroy ( ) ;
protected procedure DoApply ( const Context : TContext3D ) ; override;
protected procedure DoInitialize ( ) ; override;
protected procedure SetInputTexture ( const Value : TTexture ) ;

Properties

public BlurMode : TPassBlurMode
read FBlurMode
write FBlurMode
public BlurAmount : Single
read FBlurAmount
write FBlurAmount
public InputTexture : TTexture
read FInputTexture
write SetInputTexture

TBlurMaterialSource

Ancestors

-TGorillaRenderPassMaterialSource

-TMaterialSource

Members

Fields

protected FContextResetOvrId : Integer
protected FIteration : Integer
protected : TGorillaRenderPassController

Methods

public constructor Create ( AOwnerPass : TGorillaRenderPassController ) ;
public destructor Destroy ( ) ;
protected function CreateMaterial ( ) : TMaterial ; override;
protected procedure DoPassesChanged ( Sender : TObject ) ; override;
protected procedure ContextResetHandlerOverride ( const Sender : TObject; const Msg : TMessageBase ) ;
protected procedure ( const AValue : TGorillaRenderPassController ) ; virtual;

Properties

public Iteration : Integer
read FIteration
write FIteration
public InputPass : TGorillaRenderPassController

TGorillaRenderPassBlur

Ancestors

-TGorillaRenderPassController

-TGorillaController

Members

Fields

protected FPingPongMode : Boolean

Methods

public constructor Create ( AOwner : TComponent; const AId : string = Blur ) ;
public destructor Destroy ( ) ;
protected function GetBlurMode ( ) : TPassBlurMode ;
protected procedure SetBlurMode ( AValue : TPassBlurMode ) ;
protected function GetBlurAmount ( ) : Single ;
protected procedure SetBlurAmount ( AValue : Single ) ;
protected function CreateMaterialSource ( ) : TGorillaRenderPassMaterialSource ; override;
protected procedure DoSetupTexturesByViewport ( const AContext : TContext3D; const AWidth : Integer; const AHeight : Integer ) ; override;
protected procedure DoOnRenderPass ( const AContext : TContext3D; const ACount : Integer; const AState : TRenderPassEventState; const APass : TRenderPass ) ; override;
public function GetOutputTexture ( ) : TTexture ; override;

Properties

public BlurMode : TPassBlurMode
read GetBlurMode
write SetBlurMode
public BlurAmount : Single
read GetBlurAmount
write SetBlurAmount
public PingPongMode : Boolean
read FPingPongMode
write FPingPongMode