TLabSceneShaderBase

type TLabSceneShaderBase = class(TLabClass)

protected

type

  TShaderType = (

  st_vs,

  st_ps

);

protected

  _Shader: TLabShaderShared;

  class function MakeHash();

  class function CmpShaders();

  class procedure SortList;

  class function Find();

  class function FindCache();

  class function CompileShader();

public

  class constructor CreateClass;

  destructor DestroyClass;

  property Device: TLabDeviceShared; [r]

  property Hash: TVkUInt32; [r]

  property Shader: TLabShader; [r]

  constructor Create();

  destructor Destroy; override;

end;

TLabSceneShaderBase

TObject