Gorilla.Material.Glowing
Unit Gorilla.Material.Glowing.pasClasses
- TGorillaGlowingMaterial = class ( TCustomMaterial )
- TGorillaGlowingMaterialSource = class ( TMaterialSource )
TGorillaGlowingMaterial
Custom glowing material.
Remarks
Shader code by : Seven am 2013-04-26 https://www.shadertoy.com/view/lsXGWnAncestors
Members
Fields
- private FSource :
TGorillaGlowingMaterialSource
- private FTimerService :
IFMXTimerService
- private FStartTime :
Double
- private FRenderTime :
Double
- private FLastTime :
Double
- private FTexture :
TTexture
Methods
- public constructor Create ( const ASource : TGorillaGlowingMaterialSource ) ;
- public destructor Destroy ( ) ;
- private procedure SetTexture ( const Value : TTexture ) ;
- protected procedure DoApply ( const Context : TContext3D ) ; override;
- protected procedure DoInitialize ( ) ; override;
Properties
TGorillaGlowingMaterialSource
Glowing texture material source, which simulates a glowing effect. This material source ignores light sources and shading. As input a texture is needed.
Remarks
Shader code by : Seven am 2013-04-26 https://www.shadertoy.com/view/lsXGWnAncestors
Members
Fields
Methods
- public constructor Create ( AOwner : TComponent ) ;
- public destructor Destroy ( ) ;
- protected function CreateMaterial ( ) : TMaterial ; override;
- protected procedure DoTextureChanged ( Sender : TObject ) ;
- protected procedure ContextResetHandlerOverride ( const Sender : TObject; const Msg : TMessageBase ) ;
- protected procedure SetTexture ( const Value : TBitmap ) ;