Вытянуть программку

[vibraxo]

Помогите вытащить программку из всего проекта.
http://rghost.ru/private/46566012/ad...1e45550d556656
Надо вытащить треугольник серпинского и изменить кол-во шагов до 6, помогите

[BDA]

Самому же веселее написать

procedure TForm1.serp(a: array of tpoint; n: byte);
begin
  if n = 1 then
  begin
    Canvas.Brush.Color := clred;
    Canvas.Polygon(a);
    exit;
  end;
  serp([a[0], point((a[0].X + a[1].X) div 2, (a[0].y + a[1].y) div 2),
    point((a[0].X + a[2].X) div 2, (a[0].y + a[2].y) div 2)], n - 1);
  serp([point((a[0].X + a[1].X) div 2, (a[0].y + a[1].y) div 2), a[1],
    point((a[1].X + a[2].X) div 2, (a[1].y + a[2].y) div 2)], n - 1);
  serp([point((a[0].X + a[2].X) div 2, (a[0].y + a[2].y) div 2),
    point((a[1].X + a[2].X) div 2, (a[1].y + a[2].y) div 2), a[2]], n - 1);
end;

procedure TForm1.FormPaint(Sender: TObject);
const
  a = 300;
  X = 20;
  y = 20;
var
  h: integer;
begin
  h := round(sqrt(3) * a / 2);
  serp([point(X + a div 2, y), point(X, y + h), point(X + a, y + h)], 6);
end;

[vibraxo]

Тут непонятков много) Мог бы ты архив скинуть с проектом?

[BDA]

Что именно непонятно?
Процедура FormPaint добавляется также, как и в прошлой теме.
Текст процедуры TForm1.serp пишется ниже слова implementation, рядом с TForm1.FormPaint.
Еще нужно в верхней части кода найти type TForm1 = class(TForm) private и после слова private вписать procedure serp(a: array of tpoint; n: byte);.