mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 12:58:11 +02:00
24 lines
393 B
ObjectPascal
24 lines
393 B
ObjectPascal
{ %fail }
|
|
|
|
Type
|
|
GLEnum = longint;
|
|
tShader=Record
|
|
TexturesUsed:Longint;
|
|
Primitive:GLenum;
|
|
Blended:Boolean;
|
|
BlendSrc:GLenum;
|
|
BlendDst:GLenum;
|
|
ShaderName:String;
|
|
End;
|
|
|
|
Const EmptyShader:tShader=(
|
|
TexturesUsed:-1;
|
|
Primitive:0;
|
|
Blended:False;
|
|
BlendSrc:0;
|
|
BlendDst:0;
|
|
Tag:'');
|
|
|
|
begin
|
|
end.
|