Графика на Паскле

[tanek]

еще вопросик

inc(Z[i].x);
 if Z[i].x>W then Z[i].x := -a;

что проитходит вот здесь?

а почему если в

procedure setcoord(var Z : massiv; i : integer);

i записаль как локальную переменную

procedure setcoord(var Z : massiv);
var 
  i : integer;

программа не работает????

[Sazary]

что проитходит вот здесь?

Ну так а вы как думаете?
Дословно: "Если координата x прямоугольника больше правой границы, то координата x становится равна минус ширине прямоугольника."

Без этого прямоугольники проедут один раз и больше не появятся.

а почему если в i записаль как локальную переменную программа не работает????

А вы можете сказать, зачем это делать? Не работает, потому что процедура написана так, как написана. Ей передается индекс прямоугольника.

[tanek]

Спасибо огромное!!!!!!!!!!!

Уважаемый Sazary!!! Не могли бы вы мне помочь... вот

Program task4;

uses Crt,Graph;
const
  a = 20;
  b = 35;
  y = 300;
  count = 15;
  step = 70;

type
  rectangle = record
    x : integer;
    mas : array[1..4] of PointType;
  end;
  RectArray = array[1..count] of rectangle;

procedure InitializationGraphicMode;
var
  driver,mode:integer;
begin
  driver:=Detect;
  InitGraph(driver,mode, 'g:\pp\bin\win32 ');
end;

procedure InitialCoordinates(var Z : RectArray; W : integer);

var
  i : integer;
begin
  W := GetmaxX;
  for i:=1 to count do
  begin
    Z[i].x := -a-step*(i-1);
  end;
end;

procedure ChangeCoordinates(i: integer; var Z : RectArray);

begin
  Z[i].mas[1].x := Z[i].x;
  Z[i].mas[1].y := y;
  Z[i].mas[2].x := Z[i].x+b;
  Z[i].mas[2].y := y;
  Z[i].mas[3].x := Z[i].x+b;
  Z[i].mas[3].y := y+a;
  Z[i].mas[4].x := Z[i].x;
  Z[i].mas[4].y := y+a;
end;

procedure PrintRectangles;

var
  i : integer;
  Z: RectArray;
  W: integer;
begin
  InitialCoordinates(Z,W);
    while true do
    begin
      if keypressed then
        if readkey = #27 then break;
      cleardevice;
      for i:=count downto 1 do
      begin
        ChangeCoordinates(i,Z);
        SetColor(15);
        SetFillStyle(8,15);
        FillPoly(4,Z[i].mas);
        Delay(3);
        inc(Z[i].x);
        if Z[i].x>W then Z[i].x := -a;
      end;
    end;
end;

begin
  InitializationGraphicMode;
  PrintRectangles;
  CloseGraph;
end.

не могли бы вы разделить процедуру PrintRectangles на две: одна рисует содержимое экрана (то, что обычно называют процедурой отрисовки), а вторая очищает экран, вызывает процедуру отрисовки, экрана, делает задержку, проверяет состояние клавиатуры (ее обычно называют циклом обработки сообщений).
g:\pp\bin\win32 - будет работать только на моей машине, где установлен паскаль у пользователя мы не знаете, как это исправить????

[Sazary]

не могли бы вы разделить процедуру PrintRectangles на две: одна рисует содержимое экрана (то, что обычно называют процедурой отрисовки), а вторая очищает экран, вызывает процедуру отрисовки, экрана, делает задержку, проверяет состояние клавиатуры (ее обычно называют циклом обработки сообщений).

Не понял, что нужно разделить.
За очистку отвечает одна-единственная процедура - cleardevice.
Не вижу никакого смысла еще что-то делить.

g:\pp\bin\win32 - будет работать только на моей машине, где установлен паскаль у пользователя мы не знаете, как это исправить????

Нужно знать. По-другому никак.
Или используйте, например, FPC. Там путь прописывается в настройках IDE.

[Stilet]

g:\pp\bin\win32 - будет работать только на моей машине, где установлен паскаль у пользователя мы не знаете, как это исправить????

Нет. Паскаль тут не причем. Это путь к BGI файлам (дровам графики от Борланд). Обычно достаточно подкинуть БГИ файл поближе к EXEшнику, и прога будет работать на любом компьютере. В твоем случае не нужно вообще писать путь, раз ты заставляешь программу саму определять режим графики:

  driver:=Detect;
  InitGraph(driver,mode, '');

[tanek]

Уважаемый Sazary, я разделила еще на пару процедур...но почему то на экране совсем не то....

Program task4;

uses Crt,Graph;
const
  a = 20;
  b = 35;
  y = 300;
  count = 15;
  step = 70;

type
  rectangle = record
    x : integer;
    mas : array[1..4] of PointType;
  end;
  RectArray = array[1..count] of rectangle;

procedure InitializationGraphicMode;
var
  driver,mode:integer;
begin
  driver:=Detect;
  InitGraph(driver,mode, 'g:\pp\bin\win32 ');
end;

procedure InitialCoordinates(var Z : RectArray);
var
  i : integer;
  W:integer;
begin
  W := GetmaxX;
  for i:=1 to count do
    Z[i].x := -a-step*(i-1);
end;

procedure ChangeCoordinates( i:integer; var Z : RectArray);
begin
  Z[i].mas[1].x := Z[i].x;
  Z[i].mas[1].y := y;
  Z[i].mas[2].x := Z[i].x+b;
  Z[i].mas[2].y := y;
  Z[i].mas[3].x := Z[i].x+b;
  Z[i].mas[3].y := y+a;
  Z[i].mas[4].x := Z[i].x;
  Z[i].mas[4].y := y+a;
end;

procedure PrintRectangles;
var
  i:integer;
  Z:RectArray;
  W:integer;
begin
  for i:=count downto 1 do
  begin
    ChangeCoordinates(i,Z);
    SetColor(15);
    SetFillStyle(8,15);
    FillPoly(4,Z[i].mas);
    inc(Z[i].x);
    if Z[i].x>W then Z[i].x := -a;
  end;
end;

procedure ProcessingMessages;
var
  Z: RectArray;
begin
  InitialCoordinates(Z);
  repeat
    {ClearDevice;}
    PrintRectangles;
    Delay(3);
    ClearDevice;
  until keypressed;
end;

begin
  InitializationGraphicMode;
   ProcessingMessages;
  CloseGraph;
end.

[Sazary]

В процедуре PrintRectangles вы объявляете локальный массив Z, в то время, как вам нужно работать с уже созданным в процедуре ProcessingMessages.

procedure PrintRectangles(var Z : RectArray);
var
  i:integer;
  W:integer;
begin
  for i:=count downto 1 do
  begin
    ChangeCoordinates(i,Z);
    SetColor(15);
    SetFillStyle(8,15);
    FillPoly(4,Z[i].mas);
    inc(Z[i].x);
    if Z[i].x>W then Z[i].x := -a;
  end;
end;

procedure ProcessingMessages;
var
  Z: RectArray;
begin
  InitialCoordinates(Z);
  repeat
    {ClearDevice;}
    PrintRectangles(Z);
    Delay(3);
    ClearDevice;
  until keypressed;
end;

[tanek]

они все равно не двигаются.....

Program task4;

uses Crt,Graph;
const
  a = 20;
  b = 35;
  y = 300;
  count = 15;
  step = 70;

type
  rectangle = record
    x : integer;
    mas : array[1..4] of PointType;
  end;
  RectArray = array[1..count] of rectangle;

procedure InitializationGraphicMode;
var
  driver,mode:integer;
begin
  driver:=Detect;
  InitGraph(driver,mode, 'g:\pp\bin\win32 ');
end;

procedure InitialCoordinates(var Z : RectArray);
var
  i : integer;
  W:integer;
begin
  W := GetmaxX;
  for i:=1 to count do
    Z[i].x := -a-step*(i-1);
end;

procedure ChangeCoordinates( i:integer; var Z : RectArray);
begin
  Z[i].mas[1].x := Z[i].x;
  Z[i].mas[1].y := y;
  Z[i].mas[2].x := Z[i].x+b;
  Z[i].mas[2].y := y;
  Z[i].mas[3].x := Z[i].x+b;
  Z[i].mas[3].y := y+a;
  Z[i].mas[4].x := Z[i].x;
  Z[i].mas[4].y := y+a;
end;

procedure PrintRectangles(var Z:RectArray);
var
  i:integer;
  W:integer;
begin
  for i:=count downto 1 do
  begin
    ChangeCoordinates(i,Z);
    SetColor(15);
    SetFillStyle(8,15);
    FillPoly(4,Z[i].mas);
    inc(Z[i].x);
    if Z[i].x>W then Z[i].x := -a;
  end;
end;

procedure ProcessingMessages;
var
  Z: RectArray;
begin
  InitialCoordinates(Z);
  repeat
    ClearDevice;
    PrintRectangles(Z);
    Delay(3);
  until keypressed;
end;

begin
  InitializationGraphicMode;
   ProcessingMessages;
  CloseGraph;
end.

[Sazary]

Сообщение от tanek

они все равно не двигаются.....

А у меня все двигается. Проверьте, то ли вы компилите.

[OCTAGRAM]

У меня тоже двигаются. Моргают сильно, но двигаются.

Если Delay(3) поменять на Delay(100), то уже нормально.

Блоки, которые прошли сквозь экран, накладываются на те, что сзади.