Gorilla.Renderer

Unit Gorilla.Renderer.pas

Classes

TRenderer = class ( TObject )
TCompositeRenderer = class ( TRenderer )
TForwardRenderer = class ( TCompositeRenderer )
TDeferredRenderer = class ( TCompositeRenderer )

Enumerations

enum TRendererFlag = ( IgnoreRenderTargets, IgnoreCompositeCtrl ) ;

Constants

TRenderer

Basis renderer class for all types of renderer.

Ancestors

Members

Fields

protected FId : string
protected FFlags : TRendererFlags
protected FMultisample : TMultisample
protected FSharedContext : TContext3D
protected FRenderTargets : TRenderTargets
protected FCompositeTexture : TGorillaTextureBitmap
protected FOwner : TComponent
protected FSize : TPoint
protected FScale : Single
protected FOnCreateCompositeTexture : TOnRendererCreateCompositeTexture

Methods

public constructor Create ( AId : string; AOwner : TComponent; AFlags : TRendererFlags = [] ; ACompositeTextureEvent : TOnRendererCreateCompositeTexture = nil ) ;
public destructor Destroy ( ) ;
protected function GetDefaultFrameBuf ( ) : TFrameBufferObject ;
protected function GetTranslucentBuf ( ) : TFrameBufferObject ;
protected procedure SetSize ( const AValue : TPoint ) ; virtual;
protected procedure SetScale ( const AValue : Single ) ; virtual;
protected procedure DoResize ( const ASize : TPoint; const AScale : Single ) ; virtual;
protected procedure DoCreateContext ( ) ;
protected procedure DoDestroyContext ( ) ;
protected function DoCreateCompositeTexture ( ) : TTexture ; virtual;
protected procedure DoCreateTextures ( ) ; virtual;
protected procedure DoDestroyTextures ( ) ; virtual;
protected procedure DoApply ( ) ; virtual;
public procedure Resize ( const ASize : TPoint; const AScale : Single ) ;
public procedure Apply ( ) ; virtual;
public procedure Reset ( ) ; virtual;
public procedure BeginMainRenderPass ( ACamera : TMatrix3D; AAngleOfView : Single; AFill : TAlphaColor; ADepth : Single ) ; virtual;
public procedure EndMainRenderPass ( ) ; virtual;
public function BeginOpaqueRendering ( ) : Boolean ; virtual;
public procedure EndOpaqueRendering ( ) ; virtual;
public function BeginTranslucentRendering ( ) : Boolean ; virtual;
public procedure EndTranslucentRendering ( ) ; virtual;

Properties

public Id : string
read FId
public Flags : TRendererFlags
read FFlags
public SharedContext : TContext3D
read FSharedContext
public CompositeTexture : TGorillaTextureBitmap
read FCompositeTexture
public RenderTargets : TRenderTargets
read FRenderTargets
write FRenderTargets
public Owner : TComponent
read FOwner
write FOwner
public Size : TPoint
read FSize
write SetSize
public Scale : Single
read FScale
write SetScale
public DefaultFrameBuf : TFrameBufferObject
read GetDefaultFrameBuf
public TranslucentBuf : TFrameBufferObject
read GetTranslucentBuf

TCompositeRenderer

Basis renderer for forward and deferred renderer with WBOIT 3-phase rendering.

Ancestors

Members

Fields

protected FAlbedoTexture : TTexture
protected FTranslucentAlbedoTexture : TTexture
protected FAlphaTexture : TTexture
protected FPositionTexture : TTexture
protected FDeferredCompositeCtrl : TObject
protected FDeferredCompositePass : TRenderPass

Methods

public constructor Create ( AId : string; AOwner : TComponent; AFlags : TRendererFlags = [] ; ACompositeTextureEvent : TOnRendererCreateCompositeTexture = nil ) ;
public destructor Destroy ( ) ;
protected procedure DoResize ( const ASize : TPoint; const AScale : Single ) ; override;
protected procedure DoCreateTextures ( ) ; override;
protected procedure DoDestroyTextures ( ) ; override;
public function BeginOpaqueRendering ( ) : Boolean ; override;
public procedure EndOpaqueRendering ( ) ; override;
public procedure Composite ( const ARenderContext : PRenderContext ) ; virtual;

Properties

public AlbedoTexture : TTexture
read FAlbedoTexture
public TranslucentAlbedoTexture : TTexture
read FTranslucentAlbedoTexture
public AlphaTexture : TTexture
read FAlphaTexture
public PositionTexture : TTexture
read FPositionTexture
public DeferredCompositeCtrl : TObject
read FDeferredCompositeCtrl

TForwardRenderer

The old forward renderer with simple albedo, translucent-albedo and alpha texture.

Ancestors

-TCompositeRenderer

Members

Methods

public constructor Create ( AId : string; AOwner : TComponent; AFlags : TRendererFlags = [] ; ACompositeTextureEvent : TOnRendererCreateCompositeTexture = nil ) ;
public destructor Destroy ( ) ;
protected procedure DoApply ( ) ; override;

TDeferredRenderer

The new deferred renderer with multiple color channels combined together in a final composite render pass (embedded).

Ancestors

-TCompositeRenderer

Members

Fields

protected FNormalsTexture : TTexture
protected FComponentsTexture : TTexture
protected FAmbientTexture : TTexture
protected FEmissiveTexture : TTexture
protected FSpecularTexture : TTexture

Methods

public constructor Create ( AId : string; AOwner : TComponent; AFlags : TRendererFlags = [] ; ACompositeTextureEvent : TOnRendererCreateCompositeTexture = nil ) ;
public destructor Destroy ( ) ;
protected procedure DoResize ( const ASize : TPoint; const AScale : Single ) ; override;
protected procedure DoCreateTextures ( ) ; override;
protected procedure DoDestroyTextures ( ) ; override;
protected procedure DoApply ( ) ; override;
public procedure Composite ( const ARenderContext : PRenderContext ) ; override;

Properties

public NormalsTexture : TTexture
read FNormalsTexture
public ComponentsTexture : TTexture
read FComponentsTexture
public AmbientTexture : TTexture
read FAmbientTexture
public EmissiveTexture : TTexture
read FEmissiveTexture
public SpecularTexture : TTexture
read FSpecularTexture