https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=110021&view=findpost&p=816722 Sat, 05 Jan 2002 20:16:00 +0000 https://forum.sources.ru/index.php?showtopic=110021&view=findpost&p=816722 короче - 54 байта заголовок, а потом в (зависимости от глубины цвета ) идет растр. потому
uses graph,crt;
var
f:file;
dat : integer;
i,j : integer;
gd,gm: integer;
begin
gd:=detect;
initgraph(gd,gm,'');
assign(f,'file.bmp');
reset(f,1);
seek(f,54);
for i:=1 to 640 do
for j:=480 downto 1 do
Begin
BlockRead(f,dat,sizeof(dat));
putpixel(i,j);
End;
енто если без палитры рисовать и в 16битном цвете. ясно что надо немножко править.... но идея думаю понятно .... скажем так - pcx сложнее ___)))]]> Titanicus Pascal https://forum.sources.ru/index.php?showtopic=110021&view=findpost&p=816721 Fri, 04 Jan 2002 17:41:00 +0000 https://forum.sources.ru/index.php?showtopic=110021&view=findpost&p=816721 Jin X Pascal https://forum.sources.ru/index.php?showtopic=110021&view=findpost&p=816720 Fri, 04 Jan 2002 14:27:00 +0000 https://forum.sources.ru/index.php?showtopic=110021&view=findpost&p=816720 я в форматах ентих не разбираюсь - может быть формат досовских и мастдаевских бмп различаюцца?]]> grunger Pascal