TGLTextureSharingShaderMaterial

type TGLTextureSharingShaderMaterial = class(TGLInterfacedCollectionItem,IGLMaterialLibrarySupported)

protected

  procedure coordNotifychange();

  procedure OtherNotifychange();

  function GetDisplayName; override;

  function GetTextureSharingShader;

  function GetMaterialLibrary; virtual;

public

  procedure Apply();

  procedure UnApply();

  constructor Create(); override;

  destructor Destroy; override;

  property LibMaterial: TGLLibMaterial; [rw]

  property TextureMatrix: TMatrix; [r]

  property TextureMatrixIsUnitary: Boolean; [r]

published

  property TexOffset: TGLCoordinates2; [rw]

  property TexScale: TGLCoordinates2; [rw]

  property BlendingMode: TGLBlendingMode; [rw]

  property Emission: TGLColor; [rw]

  property Ambient: TGLColor; [rw]

  property Diffuse: TGLColor; [rw]

  property Specular: TGLColor; [rw]

  property Shininess: TGLShininess; [rw]

  property MaterialLibrary: TGLMaterialLibrary; [rw]

  property LibMaterialName: TGLLibMaterialName; [rw]

end;

TGLTextureSharingShaderMaterial

TObject,IGLMaterialLibrarySupported