Gorilla.Context.GLES

Fields

• public FContextCount : Integer
  
• public FSaveStates : TList<Gorilla.Context.GLES.TContext3DHack.TContextStates>
  
• public FGlobalBeginSceneCount : Integer
  
• public FChangeStateCount : Integer
  
• public FChangeShaderCount : Integer
  
• public FFPS : Double
  
• public FRenderTime : Double
  
• public FBeginTime : Double
  
• public FEndTime : Double
  
• public FTimerService : IFMXTimerService
  
• public FFrameCount : Integer
  
• public FCurrentContext : TContext3D
  
• public FCurrentStates : TContext3DHack.TStatesArray
  
• public FCurrentVertexShader : TContextShader
  
• public FCurrentPixelShader : TContextShader
  
• public FCurrentOpacity : Single
  
• public FCurrentMaterial : TMaterial
  
• public FCurrentMaterialClass : TMaterialClass
  
• public FCurrentFormat : TVertexFormats
  
• public FCurrentScissorRect : TRect
  
• public FBeginSceneCount : Integer
  
• public FRecalcScreenMatrix : Boolean
  
• public FRecalcProjectionMatrix : Boolean
  
• public FScreenMatrix : TMatrix3D
  
• public FProjectionMatrix : TMatrix3D
  
• public FInvScreenMatrix : TMatrix3D
  
• public FInvProjectionMatrix : TMatrix3D
  
• public FCenterOffset : TPosition
  
• public FParent : TWindowHandle
  
• public FWidth : Integer
  
• public FHeight : Integer
  
• public FScale : Single
  
• public FTexture : TTexture
  
• public FLights : TLightDescriptionList
  
• public FMultisample : TMultisample
  
• public FDepthStencil : Boolean
  
• public FCurrentMatrix : TMatrix3D
  
• public FCurrentCameraMatrix : TMatrix3D
  
• public FCurrentCameraInvMatrix : TMatrix3D
  
• public FCurrentAngleOfView : Single
  
• public FDefaultMaterial : TMaterial
  
• public FRenderToMatrix : TMatrix3D
  

Methods

• class private procedure Create@  ( ) ;  class constructor noself;
• class private procedure Destroy@  ( ) ;  class destructor noself;

Fields

• private FExtensions : TExtensions
  
• private FIndexBufferSupport : TContext3D.TIndexBufferSupport
  
• private FDefaultBlendingDetected : Boolean
  
• private FDefaultBlending : TBlendSetting
  
• protected FPrograms : TList<Gorilla.Context.Shader.TShaderProgram>
  
• protected FCurrentProgram : TShaderProgram
  
• protected FOnError : TGorillaOnContextError
  
• protected FMaxDrawBuffers : Integer
  
• protected FMaxVaryingComponents : Integer
  
• protected FMaxVaryingVectors : Integer
  
• protected FDefaultFrameBuf : TFrameBufferObject
  
• protected FDefaultMSFrameBuf : TFrameBufferObject
  
• protected FSupportMS : Boolean
  
• protected FTranslucentBuf : TFrameBufferObject
  
• protected FTranslucentRendering : Boolean
  
• protected FTranslucentDistance : Single
  
• protected FBlendingBuffers : TBlendSettings
  
• protected FSmoothTargets : TSmoothTargets
  
• protected FOldViewport :
  
• protected FOriginalCameraMatrix : TMatrix3D
  
• protected FBoundary : TBoundingBox
  
• protected FFrustumBox : TBoundingBox
  
• protected FFrustum : TGorillaFrustum
  
• protected FFog : TGorillaFogSettings
  
• protected FActivity : Boolean
  
• protected FPasses : TRenderPasses
  
• protected FCurrentPass : TRenderPass
  
• protected FIntermediatePasses : TRenderPassList
  
• protected FRenderPassStack : TStack<Gorilla.Context.Rendering.TRenderPass>
  
• protected FFBOStack : TStack<Gorilla.Context.Buffers.TFrameBufferObject>
  
• protected FDefaultBufferFallbackBind : Boolean
  
• protected FCurrentCache : TMeshBufferObject
  
• protected FInstanceVAO : TBufferObject
  
• protected FInstanceCount : Integer
  
• protected FCurrentLayeredMaterial : TObject
  
• protected FClippingPlanes :
  
• protected FPointOrigin : Integer
  
• protected FPointThreshold : Single
  
• protected FPointSizeMin : Single
  
• protected FPointSizeMax : Single
  
• public RaiseShaderCompileException : Boolean
  
• public InDesignTime : Boolean
  

Methods

• protected constructor CreateFromTexture  ( const  ATexture :  TTexture; const  AMultisample :  TMultisample; const  ADepthStencil :  Boolean ) ;
• protected constructor CreateFromWindow  ( const  AParent :  TWindowHandle; const  AWidth :  Integer; const  AHeight :  Integer; const  AMultisample :  TMultisample; const  ADepthStencil :  Boolean ) ;
• public destructor Destroy  ( ) ;
• protected procedure DoOnShaderProgramNotify  ( ASender :  TObject; const  AItem :  TShaderProgram; AAction :  TCollectionNotification ) ;  class;
• protected function GetExtensions  ( )  : TExtensions ;  static;
• protected procedure OutputInfo  ( const  APrefix :  string; const  AProgram :  TShaderProgram; const  ATexture :  TTexture; const  ATexIdx :  Integer  =  $FFFFFFFF ) ;  class;
• protected function BuildShader  ( AType :  Integer; const  ACode :  TContextShaderCode )  : Integer ;  class;
• protected function FindProgram  ( const  VS :  TContextShader; const  PS :  TContextShader )  : TShaderProgram ;  class;
• protected procedure UseProgram  ( const  VS :  TContextShader; const  PS :  TContextShader ) ;  class;
• protected function GetTextureIndexByName  ( const  AName :  string )  : Integer ;  class;
• protected procedure DestroyPrograms  ( ) ;  class;
• protected procedure CreateSharedContext  ( ) ;  class abstract virtual;
• protected procedure DestroySharedContext  ( ) ;  class abstract virtual;
• protected procedure InitializeInstanceVAO  ( ) ;
• protected procedure FinalizeInstanceVAO  ( ) ;
• protected procedure DoResize  ( ) ;  override;
• protected procedure DoFreeBuffer  ( ) ;  override;
• protected procedure DoCopyToBitmap  ( const  Dest :  TBitmap; const  ARect :  TRect ) ;  override;
• protected procedure DoCopyToBits  ( const  ABits :  Pointer; const  APitch :  Integer; const  ARect :  TRect ) ;  override;
• protected procedure DoSaveBitmap  ( const  ABmp :  TBitmap; const  APath :  string ) ;  virtual;
• protected function DoPassProcessing  ( const  AType :  TRenderPassType; const  ARenderContext :  PRenderContext )  : Boolean ;
• protected function DoBeginScene  ( )  : Boolean ;  override;
• protected procedure DoEndScene  ( ) ;  override;
• protected function DoBeginSceneIntermediate  ( )  : Boolean ;  virtual;
• protected procedure DoDrawPrimitivesBatch  ( const  AKind :  TPrimitivesKind; const  Vertices :  Pointer; const  Indices :  Pointer; const  VertexDeclaration :  TVertexDeclaration; const  VertexSize :  Integer; const  VertexCount :  Integer; const  IndexSize :  Integer; const  IndexCount :  Integer ) ;  override;
• protected procedure DoDrawPrimitives  ( const  AKind :  TPrimitivesKind; const  Vertices :  Pointer; const  Indices :  Pointer; const  VertexDeclaration :  TVertexDeclaration; const  VertexSize :  Integer; const  VertexCount :  Integer; const  IndexSize :  Integer; const  IndexCount :  Integer ) ;  override;
• protected procedure ApplyShaderMaterial  ( const  Material :  TMaterial ) ;
• protected procedure ResetShaderMaterial  ( const  Material :  TMaterial ) ;
• protected procedure DoClear  ( const  ATarget :  TClearTargets; const  AColor :  TAlphaColor; const  ADepth :  Single; const  AStencil :  Cardinal ) ;  override;
• protected procedure DoClearEx  ( const  ATarget :  TRenderTargets; const  AColor :  TAlphaColor; const  ADepth :  Single; const  AStencil :  Cardinal ) ;  virtual;
• protected function GetGlobalBlending  ( )  : TBlendSetting ;  virtual;
• protected procedure SetGlobalBlending  ( const  AValue :  TBlendSetting ) ;  virtual;
• protected function GetBlendings  ( )  : TBlendSettings ;  virtual;
• protected procedure SetBlendings  ( const  AValue :  TBlendSettings ) ;  virtual;
• protected function GetBlendingByIndex  ( AIndex :  Cardinal )  : TBlendSetting ;  virtual;
• protected procedure SetBlendingByIndex  ( AIndex :  Cardinal; const  AValue :  TBlendSetting ) ;  virtual;
• protected procedure DoSetTwoSidedRendering  ( AFrontFaceFail :  TStencilOpEx; AFrontFaceZFail :  TStencilOpEx; AFrontFaceZPass :  TStencilOpEx; ABackFaceFail :  TStencilOpEx; ABackFaceZFail :  TStencilOpEx; ABackFaceZPass :  TStencilOpEx; AFrontStencilMask :  Cardinal  =  $FF ; ABackStencilMask :  Cardinal  =  $FF ) ;  virtual;
• protected procedure DoSetPolygonOffsetFill  ( const  AMode :  TPolygonOffsetFill; AFactor :  Single  =  0 ; AUnits :  Single  =  100 ) ;  virtual;
• protected procedure DoSetSmoothMode  ( const  ASetting :  TSmoothSetting ) ;  virtual;
• protected procedure DoSetContextState  ( AState :  TContextState ) ;  override;
• protected procedure DoSetStencilOp  ( const  Fail :  TStencilOp; const  ZFail :  TStencilOp; const  ZPass :  TStencilOp ) ;  override;
• protected procedure DoSetStencilFunc  ( const  Func :  TStencilFunc; Ref :  Cardinal; Mask :  Cardinal ) ;  override;
• protected procedure DoInitializeTexture  ( const  ATexture :  TTexture ) ;  class override;
• protected procedure DoFinalizeTexture  ( const  ATexture :  TTexture ) ;  class override;
• protected procedure DoUpdateTexture  ( const  ATexture :  TTexture; const  ABits :  Pointer; const  APitch :  Integer ) ;  class override;
• protected function DoBitmapToTexture  ( const  Bitmap :  TBitmap )  : TTexture ;  class override;
• protected procedure DoInitializeShader  ( const  Shader :  TContextShader ) ;  class override;
• protected procedure DoFinalizeShader  ( const  Shader :  TContextShader ) ;  class override;
• protected procedure DoSetShaders  ( const  VertexShader :  TContextShader; const  PixelShader :  TContextShader ) ;  override;
• protected procedure DoSetShaderVariable  ( const  Name :  string; const  Data :  array of TVector3D ) ;  overload override;
• protected procedure DoSetShaderVariable  ( const  Name :  string; const  ATexture :  TTexture ) ;  overload override;
• protected procedure DoSetShaderVariable  ( const  Name :  string; const  Matrix :  TMatrix3D ) ;  overload override;
• protected procedure DoSetShaderVariableMatrix  ( const  AName :  string; const  AMatrix :  TMatrix3D ) ;  overload;
• protected procedure DoSetShaderVariableInt  ( const  AName :  string; const  AData :  array of Integer ) ;
• protected procedure DoSetShaderVariableArrayOfStruct  ( const  AName :  string; const  AType :  PTypeInfo; const  ACount :  Integer; var  AData :  Pointer ) ;
• protected function GetIndexBufferSupport  ( )  : TContext3D.TIndexBufferSupport ;  override;
• protected function IsDesignTime  ( )  : Boolean ;  class;
• public procedure SetPixelState  ( AWidth :  Integer; AHeight :  Integer; ADepth :  Integer; ABytesPerPixel :  Integer; APitch :  Integer  =  $0 ) ;  class virtual;
• public procedure UnsetPixelState  ( ) ;  class virtual;
• public function IsContextAvailable  ( )  : Boolean ;  class abstract virtual;
• public function TextureCompressionAllowed  ( )  : Boolean ;  class virtual;
• public function GetVendorName  ( )  : string ;  class;

  Request OpenGL vendor information string.

• public function GetRendererName  ( )  : string ;  class;

  Request OpenGL renderer information string.

• public function GetVersion  ( )  : string ;  class;

  Request OpenGL version string.

• public function GetExtensionString  ( )  : string ;  class;

  Request OpenGL extensions string.

• public function GLHasAnyErrors  ( )  : Boolean ;  class;

  Checks if any error occurred in OpenGL.

• public function GetShaderArch  ( )  : TContextShaderArch ;  class abstract virtual;
• public function GetCurrentProgram  ( )  : TShaderProgram ;  class;
• public function GetProgram  ( const  VS :  TContextShader; const  PS :  TContextShader )  : TShaderProgram ;
• public procedure RemoveProgram  ( const  AShaderProgram :  TShaderProgram ) ;  overload;
• public procedure RemoveProgram  ( const  VS :  TContextShader; const  PS :  TContextShader ) ;  overload;
• public function PixelFormat  ( )  : TPixelFormat ;  class override;
• public function MaxTextureSize  ( )  : Integer ;  class override;
• public function TextureUnitCount  ( )  : Integer ;  class override;
• public function MaxVertexShaderUniformBlocks  ( )  : Integer ;  class;
• public function MaxFragmentShaderUniformBlocks  ( )  : Integer ;  class;
• public function MaxUniformBlockSize  ( )  : Integer ;  class;
• public function MaxDrawBuffers  ( )  : Integer ;  class;
• public procedure SetInstances  ( AInstances :  Integer; AData :  Pointer ) ;
• public procedure UnsetInstances  ( ) ;
• public function BeginSceneRendering  ( )  : Boolean ;  virtual;

  The method initializes the context for rendering and sets up the viewport size. Besides that the canvas will be locked.

• public procedure EndSceneRendering  ( ) ;  virtual;

  Unlocks canvas and finishes rendering process.

• public procedure BindDefaultBuffer  ( ) ;

  Binds the default framebuffer to the gl context.

• public procedure UnbindDefaultBuffer  ( ) ;

  Unbinds the default framebuffer from gl context.

• public function GetCurrentlyBoundBuffer  ( )  : TFrameBufferObject ;

  Returns the lately pushed FBO from stack.

• public procedure AttachTextureToDefaultBuffer  ( ATexture :  TTexture; ATarget :  TRenderTarget ) ;  virtual;

  Attach a specific texture to default FBO for a specific render target.

• public procedure AttachTextureToTranslucentBuffer  ( ATexture :  TTexture; ATarget :  TRenderTarget ) ;  virtual;

  Attach a specific texture to the translucent rendering FBO.

• public procedure LinkDepthBufferToTranslucentBuffer  ( ) ;  virtual;

  Link depth render buffer to translucent rendering FBO.

• public procedure PushFBO  ( const  AFBO :  TFrameBufferObject ) ;

  Push a framebuffer object to stack for correct order of enabling/disabling.

• public function PopFBO  ( )  : TFrameBufferObject ;

  Pop latest framebuffer object from stack and return previous FBO as current FBO.

• public function IsTranslucentRendering  ( )  : Boolean ;

  Returns if translucent rendering is active.

• public procedure ClearEx  ( const  ATarget :  TRenderTargets; const  AColor :  TAlphaColor; const  ADepth :  Single; const  AStencil :  Cardinal ) ;
• public procedure ClearBufferFloat  ( ABuf :  Integer; APtr :  PSingle ) ;
• public procedure SetMemoryBarrierBit  ( ) ;
• public procedure FetchMemoryBarrierBit  ( ) ;
• public procedure SetShaderVariable  ( const  AName :  string; const  AMatrix :  TMatrix3D; const  AAsMat4 :  Boolean ) ;
• public procedure SetShaderVariableInt  ( const  AName :  string; const  AValue :  array of Integer ) ;
• public procedure SetShaderVariableArrayOfStruct  ( const  AName :  string; const  AType :  PTypeInfo; const  ACount :  Integer; const  AData :  Pointer ) ;
• public procedure DrawScreenRectangle  ( const  AColor :  TAlphaColorF ) ;  overload;
• public procedure DrawScreenRectangle  ( const  AColor :  TAlphaColor ) ;  overload;
• public procedure SetProjectionMatrix  ( AMat :  TMatrix3D ) ;
• public procedure BeginOrtho  ( const  ALeft :  Single; const  ATop :  Single; const  ARight :  Single; const  ABottom :  Single; const  ANear :  Single; const  AFar :  Single ) ;  overload;
• public procedure BeginOrtho  ( const  AData :  TOrthographicData ) ;  overload;
• public procedure EndOrtho  ( ) ;
• public function GetCurrentTexture  ( )  : TTexture ;

  Returns the currently active Color_0 texture from currently active framebuffer object.

• public function GetDefaultTexture  ( )  : TTexture ;

  Returns the currently active Color_0 texture from default framebuffer object.

• public function GetOpenGLTextureByTextureIndex  ( const  ATextureIndex :  Integer )  : Integer ;  class;
• public function PreProcessing  ( const  ARenderContext :  PRenderContext )  : Boolean ;  virtual;
• public function PostProcessing  ( const  ARenderContext :  PRenderContext )  : Boolean ;  virtual;
• public procedure BeginRenderPass  ( const  APass :  TRenderPass ) ;

  Sets the supplied render pass as active and returns the previously active render pass.

• public procedure EndRenderPass  ( ) ;

  Sets the supplied render pass as active.

• public procedure ResetRenderPasses  ( ) ;
• public function GetCurrentRenderPass  ( )  : TRenderPass ;
• public procedure AddIntermediatePass  ( const  APass :  TRenderPass ) ;
• public procedure ExecuteRenderPass  ( const  APass :  TRenderPass; const  ARenderContext :  PRenderContext ) ;
• public function GetDefaultBlending  ( )  : TBlendSetting ;  class;
• public procedure EnableBlendingBuffers  ( ) ;
• public procedure DisableBlendingBuffers  ( ) ;

  Deactivate global blending independently from render targets.

• public procedure SetTwoSidedRendering  ( AFrontFaceFail :  TStencilOpEx; AFrontFaceZFail :  TStencilOpEx; AFrontFaceZPass :  TStencilOpEx; ABackFaceFail :  TStencilOpEx; ABackFaceZFail :  TStencilOpEx; ABackFaceZPass :  TStencilOpEx; AFrontStencilMask :  Cardinal  =  $FF ; ABackStencilMask :  Cardinal  =  $FF ) ;
• public procedure SetPolygonOffsetFill  ( const  AMode :  TPolygonOffsetFill; AFactor :  Single  =  0 ; AUnits :  Single  =  100 ) ;
• public procedure SetSmoothMode  ( const  ASetting :  TSmoothSetting ) ;
• public procedure SetPointSprites  ( const  AEnabled :  Boolean ) ;
• public procedure SetPointSpriteTextureMode  ( ) ;
• public procedure DirectDrawPrimitives  ( const  AKind :  TPrimitivesKind; const  Vertices :  Pointer; const  Indices :  Pointer; const  VertexDeclaration :  TVertexDeclaration; const  VertexSize :  Integer; const  VertexCount :  Integer; const  IndexSize :  Integer; const  IndexCount :  Integer ) ;

  For renderpasses a direct draw method is needed with having a default material detection.

• public function GetSceneBoundary  ( )  : TBoundingBox ;

  Get the latest context 3D scene boundary.

• public procedure SetSceneBoundary  ( const  ABounds :  TBoundingBox ) ;

  Set the latest context 3D scene boundary.

• public function GetFrustum  ( )  : TGorillaFrustum ;

  Returns the latest camera frustum.

• public procedure SetFrustum  ( const  AFrustum :  TGorillaFrustum ) ;

  Set the latest context 3D camera frustum.

• public function GetFrustumBoundary  ( )  : TBoundingBox ;

  Get the latest context 3D camera frustum boundary box.

• public procedure ActivateClipPlane  ( AIndex :  Integer; const  APlane :  TPlaneF ) ;

  Activate a specific clipping plane.

• public procedure DeactivateClipPlane  ( AIndex :  Integer ) ;

  Deactivate a specific clipping plane.

• public function GetClippingPlane  ( AIndex :  Integer )  : PClipPlaneF ;

  Get the clipping plane struct for a specific entry (0..7)

• public function IsClippingPlaneActive  ( AIndex :  Integer )  : Boolean ;

  Checks if a specific clipping plane is activated.

• public function ScreenToWorld  ( const  AScreenPos :  TPointF; const  AProjection :  TProjection )  : TPoint3D ;

  Converts 2D screen coordinates into 3D world coordinates. This method is always an approximate on consideration of near/far plane.

Properties

• public OnError : TGorillaOnContextError
  read FOnError
  write FOnError
  
• public DefaultFrameBuf : TFrameBufferObject
  read FDefaultFrameBuf
  
• public DefaultMSFrameBuf : TFrameBufferObject
  read FDefaultMSFrameBuf
  
• public TranslucentBuf : TFrameBufferObject
  read FTranslucentBuf
  
• public TranslucentRendering : Boolean
  read FTranslucentRendering
  write FTranslucentRendering
  
• public TranslucentDistance : Single
  read FTranslucentDistance
  write FTranslucentDistance
  
• public GlobalBlending : TBlendSetting
  read GetGlobalBlending
  write SetGlobalBlending
  
• public BlendingBuffer[AIndex] : TBlendSetting
  read GetBlendingByIndex
  write SetBlendingByIndex
  
• public Blendings : TBlendSettings
  read GetBlendings
  write SetBlendings
  
• public SmoothTargets : TSmoothTargets
  read FSmoothTargets
  
• public OriginalCameraMatrix : TMatrix3D
  read FOriginalCameraMatrix
  write FOriginalCameraMatrix
  
• public Fog : TGorillaFogSettings
  read FFog
  write FFog
  
• public RenderPasses : TRenderPasses
  read FPasses
  
• public IntermediatePasses : TObjectList<Gorilla.Context.Rendering.TRenderPass>
  read FIntermediatePasses
  
• public CurrentPass : TRenderPass
  read FCurrentPass
  
• public CurrentCache : TMeshBufferObject
  read FCurrentCache
  write FCurrentCache
  
• public CurrentLayeredMaterial : TObject
  read FCurrentLayeredMaterial
  write FCurrentLayeredMaterial
  
• public InstanceCount : Integer
  read FInstanceCount
  
• public Extensions : TExtensions
  read GetExtensions