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

[Sazary]

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

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

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

[OCTAGRAM]

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

Увы, в паскале лучшего сложно добиться.

А как же page flipping? Можно поставить режим 640x350, там две страницы есть. Можно попробовать SVGA драйвер, вдруг у него страниц больше доступно.

Это вряд ли прокатит за решение, просто правды ради.

[Sazary]

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

А как же page flipping? Можно поставить режим 640x350, там две страницы есть. Можно попробовать SVGA драйвер, вдруг у него страниц больше доступно.

Я все это дело запускаю под FPC )

По-моему, лучше уж это в Делфи делать. Ну кто в нашем веке пользуется этими старыми графическими режимами? ))

[tanek]

Уважаемый, Sazary!!!
Можно ли записать процедуру ChangeCoordinates???
а именно
Код:

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

можно туда поставить?
Код:

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);
var
  W:integer;
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;
  inc(Z[i].x);
  if Z[i].x>W then Z[i].x := -a;
end;

procedure PrintRectangles(var Z:RectArray);
var
  i:integer;
begin
  for i:=count downto 1 do
  begin
    ChangeCoordinates(i,Z);
    SetColor(15);
    SetFillStyle(8,15);
    FillPoly(4,Z[i].mas);
   ChangeCoordinates(i,Z);
  end;
end;

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

begin
  InitializationGraphicMode;
   ProcessingMessages;
  CloseGraph;
end.

[tanek]

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

[Sazary]

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

Естественно. А W у вас в процедуре чему равно? Ничему. Вы когда что-то куда-то перемещаете, хоть следите за переменными, которые используются.

Посылайте W в процедуру:

procedure ChangeCoordinates( i:integer; var Z : RectArray; W : integer);
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;
  inc(Z[i].x);
  if Z[i].x>W then Z[i].x := -a;
end;

ну и вызов. соответственно:

ChangeCoordinates(i,Z,W);

[OCTAGRAM]

Нет, здесь другой случай.

Как они могут не двигаться?