VPF::Движение точки в пределах экрана

ausar

Дата 3.12.2008, 05:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет

Привет всем!
Пытаюсь сделать движение графического объекта в графическом режиме на плоскости по произвольной траектории. Начальные координаты фигуры также задаются генератором. Получилось вот так.

Код


var x,y:integer;
begin
x:=random(640);
y:=random(480);
PutPixel(x,y,white)
repeat
x:=x+random(1+1)-2*1;
y:=y+random(1+1)-2*1;
until keypressed;
End.

Проблема в том что точка не должна выходить за приделы графического экрана т.е она должна перемещаться до границы а потом менять свою траекторию. Я не имею ввиду отталкиваться с соблюдением законов физики, учетом угла соприкосновения, просто чтоб она всегда была в пределах экрана. У меня получилось так что после запуска точка хоть и по кривой траектории движется к левому верхнему углу.

volvo877

Дата 3.12.2008, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(ausar @ 3.12.2008, 04:40

)

У меня получилось так что после запуска точка хоть и по кривой траектории движется к левому верхнему углу.

Сделай так:

Код

uses graph, crt;
var
  gd, gm: integer;
  X, Y, dx, dy: integer;
begin
  initgraph(gd, gm, '');
  { ... }
  x := random(getmaxx);
  y := random(getmaxy);
  repeat
    putpixel(X, Y, white);
    repeat
      dx := random(3) - 1;
    until (X + dx > 0) and (X + dx < getmaxx);

    repeat
      dy := random(3) - 1;
    until (Y + dy > 0) and (Y + dy < getmaxy);

    X := X + dx;
    Y := Y + dy;
  until keypressed;
  closegraph;

end.

, тогда точка будет болтаться по экрану, не выходя за его пределы...

ausar

Дата 3.12.2008, 11:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 127
Регистрация: 3.8.2007

Репутация: нет
Всего: нет

Во вот так гораздо ближе! volvo877 большое спасибо!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »