ShaderFile/uengShaderPartScope.pas

unit uengShaderPartScope;

{$mode objfpc}{$H+}
{$I uengShaderFile.inc}

interface

uses
  Classes, SysUtils,
  uengShaderPartCntr, uengShaderGeneratorArgs;

type
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  TengShaderPartScope = class(TengShaderPartCntr)
  { Code Generation }
  public
    procedure GenerateCodeIntern(const aArgs: TengShaderGeneratorArgs); override;
  end;

implementation

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//TengShaderPartScope///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
procedure TengShaderPartScope.GenerateCodeIntern(const aArgs: TengShaderGeneratorArgs);
begin
  aArgs.BeginBlock;
  try
    inherited GenerateCodeIntern(aArgs);
  finally
    aArgs.EndBlock;
  end;
end;

end.