/usr/src/castle-game-engine-5.2.0/opengl/castleglimages_wrap.inc is in castle-game-engine-src 5.2.0-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | {
Copyright 2001-2014 Michalis Kamburelis.
This file is part of "Castle Game Engine".
"Castle Game Engine" is free software; see the file COPYING.txt,
included in this distribution, for details about the copyright.
"Castle Game Engine" is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
----------------------------------------------------------------------------
}
{ Part of CastleGLImages unit: texture wrapping modes. }
{$ifdef read_interface}
type
{ }
TTextureWrap2D = array [0..1] of TGLenum;
TTextureWrap3D = array [0..2] of TGLenum;
operator = (const W1, W2: TTextureWrap2D): boolean;
operator = (const W1, W2: TTextureWrap3D): boolean;
const
Texture2DRepeat: TTextureWrap2D = (GL_REPEAT, GL_REPEAT);
{ Return wrap GL_CLAMP_TO_EDGE in both directions. }
function Texture2DClampToEdge: TTextureWrap2D;
{$endif read_interface}
{$ifdef read_implementation}
operator = (const W1, W2: TTextureWrap2D): boolean;
begin
Result := CompareMem(@W1, @W2, SizeOf(W1));
end;
operator = (const W1, W2: TTextureWrap3D): boolean;
begin
Result := CompareMem(@W1, @W2, SizeOf(W1));
end;
function Texture2DClampToEdge: TTextureWrap2D;
begin
Result[0] := GLFeatures.CLAMP_TO_EDGE;
Result[1] := Result[0];
end;
{$endif read_implementation}
|