unit kolPortalDatConvert_const_types;

interface

const
  DDPF_ALPHAPREMULT      = $00008000;
  DDSD_LINEARSIZE        = $00080000;
  FOURCC_DXT1 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('1') shl 24;
  FOURCC_DXT2 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('2') shl 24;
  FOURCC_DXT3 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('3') shl 24;
  FOURCC_DXT4 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('4') shl 24;
  FOURCC_DXT5 = Ord('D') + Ord('X') shl 8 + Ord('T') shl 16 + Ord('5') shl 24;
  FOURCC_DDS  = Ord('D') + Ord('D') shl 8 + Ord('S') shl 16 + Ord(' ') shl 24;

const
  r_bits : word = $001F;
  g_bits : word = $07E0;
  b_bits : word = $F800;

type
  PixFormat = (	PF_ARGB, PF_DXT1, PF_DXT2, PF_DXT3, PF_DXT4, PF_DXT5, PF_UNKNOWN );

  PDWORD = ^DWORD;
  DWORD = LongWord;
  
  PDXTColBlock = ^DXTColBlock;
  DXTColBlock = packed record
    col0: Word;
    col1: Word;
    row: Array[0..3] of Byte;
  end;
  PDXTAlphaBlockExplicit = ^DXTAlphaBlockExplicit;
  DXTAlphaBlockExplicit = packed record
    row: Array[0..3] of Byte;
  end;
  PDXTAlphaBlock3BitLinear = ^DXTAlphaBlock3BitLinear;
  DXTAlphaBlock3BitLinear = packed record
    alpha0: Byte;
    alpha1: Byte;
    stuff: Array[0..5] of Byte;
  end;
  PColor8888 = ^Color8888;
  Color8888 = packed record
    r: Byte;
    g: Byte;
    b: Byte;
    a: Byte;
  end;
  
  pRGBTripleArray = ^TRGBTripleArray;
  TRGBTripleArray = array[0..16383] of array[1..3] of Byte;
  pRGBQuadArray = ^TRGBQuadArray;
  TRGBQuadArray = array[0..16383] of array[1..4] of Byte;

{ TDDColorKey structure }
  PDDColorKey = ^TDDColorKey;
  TDDColorKey = record
    dwColorSpaceLowValue: DWORD;
    dwColorSpaceHighValue: DWORD;
  end;
  DDCOLORKEY = TDDColorKey;
  LPDDCOLORKEY = PDDColorKey;

{ TDDPixelFormat structure }
  PDDPixelFormat = ^TDDPixelFormat;
  TDDPixelFormat = record
    dwSize: DWORD;
    dwFlags: DWORD;
    dwFourCC: DWORD;
    case Integer of
      0: (
        dwRGBBitCount: DWORD;
        dwRBitMask: DWORD;
        dwGBitMask: DWORD;
        dwBBitMask: DWORD;
        dwRGBAlphaBitMask: DWORD;
        );
      1: (
        _union1a: DWORD;
        _union1b: DWORD;
        _union1c: DWORD;
        _union1d: DWORD;
        dwRGBZBitMask: DWORD;
        );
      2: (
        dwYUVBitCount: DWORD;
        dwYBitMask: DWORD;
        dwUBitMask: DWORD;
        dwVBitMask: DWORD;
        dwYUVAlphaBitMask: DWORD;
        );
      3: (
        _union3a: DWORD;
        _union3b: DWORD;
        _union3c: DWORD;
        _union3d: DWORD;
        dwYUVZBitMask: DWORD;
        );
      4: (
        dwZBufferBitDepth: DWORD;
        dwStencilBitDepth: DWORD;
        dwZBitMask: DWORD;
        dwStencilBitMask: DWORD;
        );
      5: (
        dwAlphaBitDepth: DWORD;
        );
      6: (
        dwLuminanceBitCount: DWORD;
        dwLuminanceBitMask: DWORD;
        _union6c: DWORD;
        _union6d: DWORD;
        dwLuminanceAlphaBitMask: DWORD;
       );
      7: (
        dwBumpBitCount: DWORD;
        dwBumpDuBitMask: DWORD;
        dwBumpDvBitMask: DWORD;
        dwBumpLuminanceBitMask: DWORD;
       );
  end;
  DDPIXELFORMAT = TDDPixelFormat;
  LPDDPIXELFORMAT = PDDPixelFormat;

{ TDDSCaps2 structure }
  PDDSCaps2 = ^TDDSCaps2;
  TDDSCaps2 = record
    dwCaps: DWORD;
    dwCaps2: DWORD;
    dwCaps3: DWORD;
    dwCaps4: DWORD;
  end;
  DDSCAPS2 = TDDSCaps2;
  LPDDSCAPS2 = PDDSCaps2;

{ TDDSurfaceDesc2 structure }
  PDDSurfaceDesc2 = ^TDDSurfaceDesc2;
  TDDSurfaceDesc2 = record
    dwSize: DWORD;
    dwFlags: DWORD;
    dwHeight: DWORD;
    dwWidth: DWORD;
    case Integer of
      0: (
        lPitch: Longint;
        dwBackBufferCount: DWORD;
        case Integer of
        0: (
          dwMipMapCount: DWORD;
          dwAlphaBitDepth: DWORD;
          dwReserved: DWORD;
          lpSurface: Pointer;
          ddckCKDestOverlay: TDDColorKey;
          ddckCKDestBlt: TDDColorKey;
          ddckCKSrcOverlay: TDDColorKey;
          ddckCKSrcBlt: TDDColorKey;
          ddpfPixelFormat: TDDPixelFormat;
          ddsCaps: TDDSCaps2;
          dwTextureStage: DWORD;
          );
        1: (
          dwRefreshRate: DWORD;         
          );
      );
      1: (
        dwLinearSize: DWORD
      );
  end;
  DDSURFACEDESC2 = TDDSurfaceDesc2;
  LPDDSURFACEDESC2 = PDDSurfaceDesc2;

implementation

end.