VPF::Графический треугольник - Форум программистов

Metalex

Дата 18.8.2009, 16:19 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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

Изобразить на экране правильный треугольник, вращающийся в плоскости экрана вокруг своего центра.
Подскажите, как решать.

--------------------

Don't let the system get you down.

volvo877

Дата 18.8.2009, 18:33 (ссылка)

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

Загрузка ...

Эксперт

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

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

Так пойдет?

Код

uses graph, crt;

procedure PolarToDecart(phi, r: integer;
          var p: PointType);
begin
  while phi > 359 do dec(phi, 360);
  p.X := (getmaxx div 2) + Trunc(R * cos(phi * pi / 180));
  p.Y := (getmaxy div 2) - Trunc(R * sin(phi * pi / 180));
end;

var
  gd, gm, err: integer;
  pts: array[1 .. 4] of pointtype;
  angle: integer;

const
  R = 100;

begin
  initgraph(gd, gm, '');
  err := graphresult;
  if err <> grok then begin
    writeln('error: ' + grapherrormsg(err));
    readln; halt(100);
  end;

  angle := 0;
  setwritemode(XORput);
  repeat
    PolarToDecart( 90 + angle, R, pts[1]);
    PolarToDecart(210 + angle, R, pts[2]);
    PolarToDecart(330 + angle, R, pts[3]);
    pts[4] := pts[1];

    drawpoly(4, pts);
    delay(100); { <--- Подберешь по вкусу }
    drawpoly(4, pts);
    Inc(angle, 10);
    if angle > 359 then dec(angle, 360);
  until keypressed;
  readln;
  closegraph;
end.

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