Перенос матрицы в графический режим

[Timon779]

Здравствуйте! У меня такая проблема. Надо сделать курсовую (игра на паскале). Суть игры: лягушка прыгает по листикам на болоте, листики то уменьшаются, то пропадают, также на игровом экране есть места, где они вообще не появляются, по этим листикам нужно перепрыгнуть с одного конца болота на другой. Итак, вот что я сделал:

uses graph;

var  gd,gm,error: integer;

begin

  gd:=VGA;   {адаптер VGA}

  gm:=VGAHi; {режим 640*480пикс.*16 цветов}

  initgraph(gd,gm,'');

  error:=graphresult;

  if error <> grOk then begin

   write ('Ошибка графики: ',

     grapherrormsg(error));

   readln; halt;

  end;

  bar(0,0,480,400);

  readln; closegraph;

end.

^Этот текст отображает на экране прямоугольник, с отношением сторон 6:5, теперь мне нужно разбить этот прямоугольник на матрицу, у которой по x будет 6 клеток, а по y будет 5 клеток. Гуглил и яндексил очень долго, но так и не нашёл, как перевести матрицу в графический режим.

[Serge_Bliznykov]

проходите в цикле по матрице, и, отображайте (создавайте) объект по заданному смещению!

щас пример набросаю...

[Timon779]

заранее спасибо, жду примера) на словах тяжело понять, что именно делать надо

[Serge_Bliznykov]

uses graph;

const
  MaxX = 6;
  MaxY = 5;


var gd, gm, error: integer;
  MainField : array[1..MaxX,1..MaxY] of byte;
  i, j : integer; 
  DX, DY : integer;


begin

  gd := VGA; {адаптер VGA}

  gm := VGAHi; {режим 640*480пикс.*16 цветов}

  initgraph(gd, gm, '');

  error := graphresult;

  if error <> grOk then begin

    write('Ошибка графики: ',

      grapherrormsg(error));

    readln; halt;

  end;

  bar(0, 0, 480, 400);
  DX := 480 div MaxX;
  DY := 400 div MaxY;

  { к примеру в матрице
    0 - ничего
    1 - листик
    2 - листик с лягушкой
  }
  MainField[3,3]:= 2;
  MainField[1,1]:= 1;
  MainField[1,2]:= 1;
  MainField[2,3]:= 1;
  MainField[6,5]:= 1;



  {вывод матрицы}
  for i:=1 to MaxX do
    for j:=1 to MAxY do begin
      case MainField[i,j] of
        0: begin {тут можно вывод пустой клетки сделать...} end;
        1: begin
              SetFillStyle(XHatchFill, Green);
              bar((i-1)*DX, (j-1)*DY, i*DX, j*DY);
           end;
        2: begin
              SetFillStyle(SolidFill, RED);
              bar((i-1)*DX, (j-1)*DY, i*DX, j*DY);
           end;
      end;
    end;



  readln; closegraph;

end.

p.s. Это только ПРИМЕР отображение игрового поля... (кстати, лягушку надо через граф.примитивы нарисовать....
p.p.s. возможно, что с координатами X Y я напутал... посмотрите, при необходимости поменяете местами...

p.p.p.s. не забывайте при публикации Вашего кода на форуме использовать тэги [СODE][/СODE] (ставятся кнопочкой с # )

[Timon779]

Огромное спасибо! Сейчас буду пробовать

[Timon779]

c MainField покрыл всю матрицу) Только как круги на квадраты поменять? там вроде как x,y и r надо указать. Но это в var или только в самом circle?