Графика. Движущиеся рисунки.

uses crt, graph;
Type dvizh=record x,y:word;
     end;
var d, m, size:integer;
    x,y:longint;p:pointer;
 
begin
  d := detect;
  initgraph(d, m, 'C:\TP7\BGI');
  setbkcolor(3);
 
  {solnce}
  setcolor(14);
  circle (50, 50, 45);
  setfillstyle(1, 14);
  floodfill(50, 50, 14);
  setcolor(8);
  circle(30, 40, 5);
  setfillstyle(4,8);
  floodfill(30, 40, 8);
  circle(70, 40, 5);
  setfillstyle(5, 8);
  floodfill(70, 40, 8);
  arc(50, 60, 580, 330, 10);
 
  {dom}
  setcolor(6);
  rectangle(200, 200, 400, 300);
  setfillstyle(1,6);
  floodfill(300,250, 6);
  setcolor(7);
  line(200, 200, 300, 120);
  line(400, 200, 300, 120);
  line(200, 200, 400, 200);
  setfillstyle(1,7);
  floodfill(250,175, 7);
  setcolor(15);
  circle(300, 160, 20);
  setfillstyle(1,15);
  floodfill(300, 160, 15);
  setcolor(7);
  line(300, 140, 300, 180);
  line(280, 160, 320, 160);
  rectangle(320, 220, 370, 300);
  setfillstyle(1, 7);
  floodfill(321, 221, 7);
  setcolor(8);
  circle(325, 255, 2);
  setfillstyle(1, 8);
  floodfill(325, 255, 8);
  setcolor(15);
  rectangle(220, 220, 260, 260);
  setfillstyle(1, 15);
  floodfill(221, 221, 15);
  setcolor(8);
  line(220, 240, 260, 240);
  line(240, 220, 240, 260);
 
  {3ABOR}
  setcolor(15);
  rectangle(1, 260, 10, 300);
  setfillstyle(1, 15);
  floodfill(2, 261, 15);
  line(1, 260, 5, 250);
  line(5, 250, 10, 260);
  setfillstyle(1,15);
  floodfill(2, 259, 15);
  rectangle(15, 260, 25, 300);
  setfillstyle(1, 15);
  floodfill(16, 261, 15);
  line(15, 260, 20, 250);
  line(20, 250, 25, 260);
  setfillstyle(1,15);
  floodfill(16, 259, 15);
  rectangle(30, 260, 40, 300);
  setfillstyle(1, 15);
  floodfill(31, 261, 15);
  line(30, 260, 35, 250);
  line(35, 250, 40, 260);
  setfillstyle(1,15);
  floodfill(31, 259, 15);
  rectangle(45, 260, 55, 300);
  setfillstyle(1, 15);
  floodfill(46, 261, 15);
  line(45, 260, 50, 250);
  line(50, 250, 55, 260);
  setfillstyle(1,15);
  floodfill(51, 259, 15);
  rectangle(60, 260, 70, 300);
  setfillstyle(1, 15);
  floodfill(61, 261, 15);
  line(60, 260, 65, 250);
  line(65, 250, 70, 260);
  setfillstyle(1,15);
  floodfill(61, 259, 15);
  rectangle(75, 260, 85, 300);
  setfillstyle(1, 15);
  floodfill(76, 261, 15);
  line(75, 260, 80, 250);
  line(80, 250, 85, 260);
  setfillstyle(1,15);
  floodfill(76, 259, 15);
  rectangle(90, 260, 100, 300);
  setfillstyle(1, 15);
  floodfill(91, 261, 15);
  line(90, 260, 95, 250);
  line(95, 250, 100, 260);
  setfillstyle(1,15);
  floodfill(91, 259, 15);
  rectangle(105, 260, 115, 300);
  setfillstyle(1, 15);
  floodfill(106, 261, 15);
  line(105, 260, 110, 250);
  line(110, 250, 115, 260);
  setfillstyle(1,15);
  floodfill(106, 259, 15);
  rectangle(120, 260, 130, 300);
  setfillstyle(1, 15);
  floodfill(121, 261, 15);
  line(120, 260, 125, 250);
  line(125, 250, 130, 260);
  setfillstyle(1,15);
  floodfill(121, 259, 15);
  rectangle(135, 260, 145, 300);
  setfillstyle(1, 15);
  floodfill(136, 261, 15);
  line(135, 260, 140, 250);
  line(140, 250, 145, 260);
  setfillstyle(1,15);
  floodfill(136, 259, 15);
  rectangle(150, 260, 160, 300);
  setfillstyle(1, 15);
  floodfill(151, 261, 15);
  line(150, 260, 155, 250);
  line(155, 250, 160, 260);
  setfillstyle(1,15);
  floodfill(151, 259, 15);
  rectangle(165, 260, 175, 300);
  setfillstyle(1, 15);
  floodfill(166, 261, 15);
  line(165, 260, 170, 250);
  line(170, 250, 175, 260);
  setfillstyle(1,15);
  floodfill(166, 259, 15);
  rectangle(180, 260, 190, 300);
  setfillstyle(1, 15);
  floodfill(181, 261, 15);
  line(180, 260, 185, 250);
  line(185, 250, 190, 260);
  setfillstyle(1,15);
  floodfill(181, 259, 15);
 
  rectangle(410, 260, 420, 300);
  setfillstyle(1, 15);
  floodfill(411, 261, 15);
  line(410, 260, 415, 250);
  line(415, 250, 420, 260);
  setfillstyle(1,15);
  floodfill(411, 259, 15);
  rectangle(425, 260, 435, 300);
  setfillstyle(1, 15);
  floodfill(426, 261, 15);
  line(425, 260, 430, 250);
  line(430, 250, 435, 260);
  setfillstyle(1,15);
  floodfill(426, 259, 15);
  rectangle(440, 260, 450, 300);
  setfillstyle(1, 15);
  floodfill(441, 261, 15);
  line(440, 260, 445, 250);
  line(445, 250, 450, 260);
  setfillstyle(1,15);
  floodfill(441, 259, 15);
  rectangle(455, 260, 465, 300);
  setfillstyle(1, 15);
  floodfill(456, 261, 15);
  line(455, 260, 460, 250);
  line(460, 250, 465, 260);
  setfillstyle(1,15);
  floodfill(456, 259, 15);
  rectangle(470, 260, 480, 300);
  setfillstyle(1, 15);
  floodfill(471, 261, 15);
  line(470, 260, 475, 250);
  line(475, 250, 480, 260);
  setfillstyle(1,15);
  floodfill(471, 259, 15);
  rectangle(485, 260, 495, 300);
  setfillstyle(1, 15);
  floodfill(486, 261, 15);
  line(485, 260, 490, 250);
  line(490, 250, 495, 260);
  setfillstyle(1,15);
  floodfill(486, 259, 15);
  rectangle(500, 260, 510, 300);
  setfillstyle(1, 15);
  floodfill(501, 261, 15);
  line(500, 260, 505, 250);
  line(505, 250, 510, 260);
  setfillstyle(1,15);
  floodfill(501, 259, 15);
  rectangle(515, 260, 525, 300);
  setfillstyle(1, 15);
  floodfill(516, 261, 15);
  line(515, 260, 520, 250);
  line(520, 250, 525, 260);
  setfillstyle(1,15);
  floodfill(516, 259, 15);
  rectangle(530, 260, 540, 300);
  setfillstyle(1, 15);
  floodfill(531, 261, 15);
  line(530, 260, 535, 250);
  line(535, 250, 540, 260);
  setfillstyle(1,15);
  floodfill(531, 259, 15);
  rectangle(545, 260, 555, 300);
  setfillstyle(1, 15);
  floodfill(546, 261, 15);
  line(545, 260, 550, 250);
  line(550, 250, 555, 260);
  setfillstyle(1,15);
  floodfill(546, 259, 15);
  rectangle(560, 260, 570, 300);
  setfillstyle(1, 15);
  floodfill(561, 261, 15);
  line(560, 260, 565, 250);
  line(565, 250, 570, 260);
  setfillstyle(1,15);
  floodfill(561, 259, 15);
  rectangle(575, 260, 585, 300);
  setfillstyle(1, 15);
  floodfill(576, 261, 15);
  line(575, 260, 580, 250);
  line(580, 250, 585, 260);
  setfillstyle(1,15);
  floodfill(576, 259, 15);
  rectangle(590, 260, 600, 300);
  setfillstyle(1, 15);
  floodfill(591, 261, 15);
  line(590, 260, 595, 250);
  line(595, 250, 600, 260);
  setfillstyle(1,15);
  floodfill(591, 259, 15);
  rectangle(605, 260, 615, 300);
  setfillstyle(1, 15);
  floodfill(606, 261, 15);
  line(605, 260, 610, 250);
  line(610, 250, 615, 260);
  setfillstyle(1,15);
  floodfill(606, 259, 15);
  rectangle(620, 260, 630, 300);
  setfillstyle(1, 15);
  floodfill(621, 261, 15);
  line(620, 260, 625, 250);
  line(625, 250, 630, 260);
  setfillstyle(1,15);
  floodfill(621, 259, 15);
  rectangle(635, 260, 645, 300);
  setfillstyle(1, 15);
  floodfill(636, 261, 15);
  line(635, 260, 640, 250);
  line(640, 250, 645, 260);
  setfillstyle(1,15);
  floodfill(636, 259, 15);
  rectangle(0, 265, 199, 270);
  rectangle(0, 285, 199, 290);
  rectangle(401, 265, 650, 270);
  rectangle(401, 285, 650, 290);
 
  {Luzhaika}
  setcolor(2);
  rectangle(0, 300, 650, 410);
  setfillstyle(1,2);
  floodfill(2,301, 2);
 
  {doroga}
  setcolor(8);
  rectangle(0, 410, 650, 500);
  setfillstyle(1,8);
  floodfill(1, 451, 8);
 
  setcolor(15);
  rectangle(1, 445, 40, 448);
  setfillstyle(1, 15);
  floodfill(2, 446, 15);
  rectangle(50, 445, 90, 448);
  setfillstyle(1, 15);
  floodfill(51, 446, 15);
  rectangle(100, 445, 140, 448);
  setfillstyle(1, 15);
  floodfill(101, 446, 15);
  rectangle(150, 445, 190, 448);
  setfillstyle(1, 15);
  floodfill(151, 446, 15);
  rectangle(200, 445, 240, 448);
  setfillstyle(1, 15);
  floodfill(201, 446, 15);
  rectangle(250, 445, 290, 448);
  setfillstyle(1, 15);
  floodfill(251, 446, 15);
  rectangle(300, 445, 340, 448);
  setfillstyle(1, 15);
  floodfill(301, 446, 15);
  rectangle(350, 445, 390, 448);
  setfillstyle(1, 15);
  floodfill(351, 446, 15);
  rectangle(400, 445, 440, 448);
  setfillstyle(1, 15);
  floodfill(401, 446, 15);
  rectangle(450, 445, 490, 448);
  setfillstyle(1, 15);
  floodfill(451, 446, 15);
  rectangle(500, 445, 540, 448);
  setfillstyle(1, 15);
  floodfill(501, 446, 15);
  rectangle(550, 445, 590, 448);
  setfillstyle(1, 15);
  floodfill(551, 446, 15);
  rectangle(600, 445, 640, 448);
  setfillstyle(1, 15);
  floodfill(601, 446, 15);
 
 
 
  {mashina}
  setcolor(4);
  rectangle(420, 400, 600, 420);
  setfillstyle(1,4);
  floodfill(599, 401, 4);
 
  setcolor(7);
  circle(450, 425, 10);
  setfillstyle(1,7);
  floodfill(450, 425, 7);
  circle(570, 425, 10);
  setfillstyle(1,7);
  floodfill(570, 425, 7);
 
  setcolor(15);
  line(476, 399, 500, 375);
  line(500, 375, 515, 375);
  line(515, 375, 515, 399);
  line(476, 399, 515, 399);
  setfillstyle(1, 15);
  floodfill(500, 390, 15);
  setcolor(6);
  arc(558, 400, 362, 538, 42);
  line(516, 399, 600, 399);
  setfillstyle(1,6);
  floodfill(520, 390, 6);
 
  size:=imagesize(1, 1, 100, 100);
  getmem(p, size);
  getimage(1, 1, 100, 100, p^);
  for x:=1 to 600 do begin
      y:=1;
      Putimage(x, y, p^, copyput);
      delay(1000);
      end;
 
  size:=imagesize(419, 355, 601, 441);
  GetMem(p, size);
  getimage(419, 355, 601, 441, p^);
      for x:=419 downto 1 do  begin
          y:=355;
      Putimage(x,y, p^, copyput);
      Delay(1000);
      end;
 
  readln;
  closegraph;
end.