Нужна спецификация формата TIM2 PS2...

[nikita600]

Пожалуйста помогите... Нужна спецификация формата ТIМ2.
У кого есть, поделитесь пожалуйста.

[HoRRoR]

TTIM2Header = Packed Record
  thSignTag: Array[0..3] of Char;    // 'TIM2' ($324D4954)
  thFormatTag:              Byte;    // 3 or 4
  thAlign128:               Boolean; // 0 - 16, 1 - 256
  thLayersCount:            Word;
  thReserved1:              Integer; // null
  thReserved2:              Integer; // null
 end;
 TTIM2LayerHeader = Packed Record
  lhLayerSize:              Integer; // HeaderSize + ImageSize + PaletteSize
  lhPaletteSize:            Integer;
  lhImageSize:              Integer;
  lhHeaderSize:             Word;
  lhColorsUsed:             Word;
  lh256:                    Word;    // = 256 always
  lhControlByte:            Byte;    // $0x - swizzled palette, $8x - normal, 1 - 16, 2 - 24, 3 - 32
  lhFormat:                 Byte;    // 1 - 16bpp, 2 - 24bpp, 3 - 32bpp, 4 - 4bpp, 5 - 8bpp
  lhWidth:                  Word;
  lhHeight:                 Word;
  lhTEX0:    Array[0..7] of Byte;
  lhTEX1:    Array[0..7] of Byte;
  lhTEXA:    Array[0..3] of Byte;
  lhTEXCLUT: Array[0..3] of Byte;
 end;

По какой спецификации писал - не помню, нагуглить не сложно. Есть также ридер на паскале.

[nikita600]

Спасибо
Жаль что на Паскале, а не на Си.

[HoRRoR]

А в чём проблема? По-моему одно в другое свободно переписывается.

[nikita600]

Да нет проблемы
Хотя подожди... Tim2 поддерживает формат 4bpp + альфа канал, так?

[HoRRoR]

Естественно он поддерживает индексированные цвета. И альфу тоже.

[nikita600]

Ладно буду дальше разбираться.
Спасибо

Добавлено позже:
  lhTEX0:    Array[0..7] of Byte;
  lhTEX1:    Array[0..7] of Byte;
  lhTEXA:    Array[0..3] of Byte;
  lhTEXCLUT: Array[0..3] of Byte;

Если не трудно, тогда поясни пожалуйста. Какие значения должны лежать в этих переменных.

[nikita600]

А всё уже разобрался.
Ещё раз спасибо.