Перетворення форматів графічних файлів

HGT := PCXheader[11]*256+PCXheader[10]+1;

writeln('Height: ', HGT);

На екран виводяться ширина та висота зображення, взяті з заголовку PCX файлу, при чому висота нам ще знадобиться. Формула використовується для перетворення двох байтових значень у одне слово.

BPL := PCXheader[67]*256+PCXheader[66];

Визначається кількість байтів на рядок. Далі створюється заголовок формату BMP, поки що в пам‘яті.

BMPheader[0] := $42; {header word}

BMPheader[1] := $4D;

Заголовок всього формату BMP – "BM".

BMPheader[10] := 54;

Початок даних – 14 байтів заголовку №1 + 40 байтів заголовку №2.

BMPheader[14] := 40; {header size}

Розмір заголовку 2 та одночасно ідентифікатор версії – три.

BMPheader[18] := PCXheader[8]+1;

BMPheader[19] := PCXheader[9];

BMPheader[22] := PCXheader[10]+1;

BMPheader[23] := PCXheader[11];

Записується ширина та висота зображення.BMPheader[26] := 1; {planes}

Кількість площин.

BMPheader[28] := 24; {bpp}

Бітів на піксель.

blockwrite(BMPF, BMPheader, 54);

Створенй заголовок записується на диск.

result:=1;

size:=0;

curx:=0;