Анимация Вращения треугольника

[SnowSin]

Если у кого остались с учебных годов прога с анимацией врашения треугольника, в Delphi буду очень благодарен если скините) Зарание большое спасибо!

[Serge_Bliznykov]

так пойдёт?

uses Graph, CRT;

var
  Gd, Gm, ErrorCode : Integer;
var 
  t, ugol_ : double;

procedure PaintTreug(TriangleColor : integer; ugol:double);
const
  {w,h координаты центра}
  w = 150; h = 150;
  r = 150; {ралиус описанной окружности}

var i,x1,y1 : integer;

begin
    SetColor(TriangleColor);
    x1 := w+trunc(R*cos(ugol));
    y1 := h+trunc(R*sin(ugol));
    MoveTo(x1, y1);
    for i:=1 to 3 do
    begin
      ugol := ugol + (120 *pi/180);
      x1 := w+trunc(R*cos(ugol));
      y1 := h+trunc(R*sin(ugol));
      LineTo(x1,y1);
    end;
end;  

begin  
  Gd := Detect;
  InitGraph(Gd, Gm, '..\BGI');
  ErrorCode := GraphResult;
  if ErrorCode = grFileNotFound then
  begin
    WriteLn('Ошибка инициализации графики: ', GraphErrorMsg(ErrorCode));
    InitGraph(Gd, Gm, '');
    ErrorCode := GraphResult;
  end;
  if ErrorCode <> grOk then
  begin
    WriteLn('Ошибка инициализации графики: ', GraphErrorMsg(ErrorCode));
    ReadLn;
    Halt(1);
  end;

  t := 0; 
  ugol_ := 0;
  repeat
    PaintTreug(White, ugol_);
    Delay(100); {задержка}
    PaintTreug(Black, ugol_);
    {на сколько градусов поворачиваем каждый цикл}
    t := t + 2;
    ugol_ := t * pi / 180;
  until KeyPressed;
  CloseGraph;
end.

[SnowSin]

Блин, все забываю что форум не тока по делфи...мне в делфи нада, в паскале находил проги, сори

[NiCola999]

дык паскаль и делфи почти одно и тоже, насколько мне известно делфи стал официально языком после 7 версии, раньше этобыл Object Pascal както так=)

[SnowSin]

Я в паскале не работал нормально, так что познаниния в нем отсутствуют, с делфи то норм все, но вот рисование это ппц, нефига не шарю