mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-30 11:34:39 +02:00
25 lines
394 B
ObjectPascal
25 lines
394 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.
|
|
|