Написать программу для воспроизведения рисунка, записанного в специальном формате в файле с расширением "vec". Рисунок поместить в центр экрана. Под рисунком вывести имя файла, включая путь.
Графическое изображение представляет собой набор графических примитивов: точек, отрезков, прямоугольников и эллипсов различных цветов. Прямоугольники и эллипсы могут иметь заливку. Изображение имеет 16 цветов (коды цветов 0-15).
Файл содержит записи, каждая из которых состоит из фиксированного набора полей, описывающих графический примитив. Все координаты указываются в пикселях относительно левого верхнего угла изображения, имеющего координаты (0,0). Оси направлены: 0X - вправо, 0Y - вниз. Графические примитивы отображаются относительно текущей позиции курсора, которая может быть изменена специальной командой.
Формат записи:
Поле Operation типа Byte. Содержит код операции в соответствии с Табл.1.
Поле X типа Integer. Содержит значение координаты по оси X.
Поле Y типа Integer. Содержит значение координаты по оси Y.
Поле Color типа Byte. Поле содержит цвет графического примитива. Это битовое поле, т.е. в нем имеют значение отдельные биты и группы битов. Обычно биты нумеруются с нуля (младший бит). Бит считается установленным, если содержит 1, и сброшенным (не установленным), если содержит 0. Для выделения нужной группы битов используют битовые маски и операцию логического умножения AND, а также операции логического сдвига вправо (SHR) и влево (SHL).
Таблица 1. Содержимое поля Operation.
Код операции Вид операции
0
Запись содержит указание размера рисунка в пикселях (в полях X и Y). Если 7 бит поля Color установлен, то рисунок имеет заливку фона, код цвета которого указан в битах 0-3.
1
Указание позиции курсора (X,Y) относительно левого верхнего угла рисунка. Поле Color не несет полезной информации.
2
Рисование пикселя в позиции (X,Y). Цвет пикселя задан в младших 4-х битах (0-3) поля Color.
3
Рисование отрезка из текущей позиции курсора в точку (X,Y). Цвет задан в битах 0-3 поля Color. Позиция курсора изменяется на (X,Y).
4
Рисование прямоугольника, два диагональных угла которого заданы текущей позицией курсора и точкой (X,Y). Цвет задан в битах (0-3) поля Color. Признак заливки - бит 7 установлен в 1.
5
Рисование эллипса с центром в текущей позиции курсора, и радиусами, заданными в полях X и Y. Цвет задан в битах (0-3) поля Color. Признак заливки - бит 7 установлен в 1.
6
Заливка области, ограниченной контуром, начиная с точки (X,Y). Цвет контура задан в битах 0-3, а цвет заливки - в битах 4-7 поля Color.
Примечания:
1. Запись с кодом 0 является первой и единственной в файле.
2. Позиция курсора изменяется на (X,Y) только в операциях с кодами 1 и 3.
Кодировка цвета:
Цвет Код
Black 0
Blue 1
Green 2
Cyan 3
Red 4
Magenta 5
Brown 6
LightGray 7
DarkGray 8
LightBlue 9
LightGreen 10
LightCyan 11
LightRed 12
LightMagenta 13
Yellow 14
White 15
Примечание:
ну вот то, что я пробовал, он рисует белый прямоугольник, а должен, как мне говорили, машинку
Program M_23;
Uses Crt,Graph;
Type vec=record
Operation : byte;
X : integer;
y : integer;
Color : byte;
end;
Var Z : array[0..2] of vec;
Im : file of vec;
i,j,gd,gm,vux,vuy,col,x,y : integer;
maxxr,maxyr : real;
BEGIN
clrscr;
assign(Im,'c:\image1.vec');
reset(Im);
while not EOF(Im) do read(Im,z[i]);
gd:=detect;
initgraph(gd,gm,'c:\inst_tp7\bgi');
for i:=0 to 2 do
case z[i].Operation of
0: begin
Maxxr:=z[1].x;
for i:=2 to 100 do if z[i].x > z[i-1].x then Maxxr:=z[i].x;
for j:=1 to 300 do if (j<=maxxr/2) and (j>maxxr/2+1) then
vux:=320-j;
Maxyr:=z[1].y;
for j:=1 to 200 do if (j<=maxyr/2) and (j>maxyr/2+1) then
vuy:=240-j;
for i:=2 to 100 do if z[i].y > z[i-1].y then Maxyr:=z[i].y;
if (z[i].color and 128 = 128) then begin
col:=z[i].color and 15;
setbkcolor(col);
end;
end;
1:moveto(vux+z[i].x,vuy+z[i].y);
2:begin
col:=z[i].color and 15;
putpixel(vux+z[i].x,vuy+z[i].y,col);
end;
3:lineto(vux+z[i].x,vuy+z[i].y);
4:begin
rectangle(getx,gety,vux+z[i].x,vuy+z[i].y);
if (z[i].color and 128 = 128) then begin
col:=z[i].color and 15;
floodfill(getx+1,gety+1,col);
end;
end;
5:begin
ellipse(getx,gety,0,360,vux+z[i].x,vuy+z[i].y);
if (z[i].color and 128 = 128) then begin
col:=z[i].color and 15;
floodfill(getx+1,gety+1,col);
end;
end;
6:begin
col:=z[i].color and 240;
col:=col shr 4;
SetFillStyle(1,col);
col:=z[i].color and 15;
FloodFill(vux+z[i].x,vuy+z[i].y,col);
end;
end;
readkey;
closegraph;
readln;
END.