графика Дельфи

[Kingdom_Reborn]

А какие проблемы то?

{$N+}

uses
  Crt, Graph;

function X(const _x: Double): Integer;
begin
  X := Trunc(GetMaxX / 2 + _x);
end;

function Y(const _y: Double): Integer;
begin
  Y := Trunc(GetMaxY / 2 + _y);
end;

procedure Rotate(var x, y: Double; const phi: Double; const x0, y0: Double);
var
  _x, _y: Double;
begin
  _x := x0 + (x - x0) * cos(phi) - (y - y0) * sin(phi);
  _y := y0 + (x - x0) * sin(phi) + (y - y0) * cos(phi);
  x := _x;
  y := _y;
end;

var
  x1, y1, x2, y2, x3, y3: Double;
  GrDriver, GrMode: Integer;
  v: Char;
begin
  GrDriver := Detect;
  InitGraph(GrDriver, GrMode, 'C:\TP\BGI');
  if GraphResult <> GrOK then Halt(2);
  x1 := 8;
  y1 := 31;
  x2 := 110;
  y2 := 31;
  x3 := 59;
  y3 := 118;
  SetColor(Yellow);
  Line(X(x1), Y(y1), X(x2), Y(y2));
  Line(X(x2), Y(y2), X(x3), Y(y3));
  Line(X(x3), Y(y3), X(x1), Y(y1));
  repeat
    SetColor(Black);
    Line(X(x1), Y(y1), X(x2), Y(y2));
    Line(X(x2), Y(y2), X(x3), Y(y3));
    Line(X(x3), Y(y3), X(x1), Y(y1));
    Rotate(x1, y1, pi/3, 0, 0);
    Rotate(x2, y2, pi/3, 0, 0);
    Rotate(x3, y3, pi/3, 0, 0);
    SetColor(Yellow);
    Line(X(x1), Y(y1), X(x2), Y(y2));
    Line(X(x2), Y(y2), X(x3), Y(y3));
    Line(X(x3), Y(y3), X(x1), Y(y1));
    v := ReadKey;
  until v = #27; { Выход при нажатии Esc }
  CloseGraph;
end.

Это поворот относительно начала координат на угол пи/3 радиан. Система координат тут самая обыкновенная с пересечением осей по середине... Можешь вращать треугольник вокруг его центра или другой точки.