File:Троичное дерево.png

uses GraphABC; 
const
  Length = 240; 
  Angle = 120;

procedure Draw(x, y, r: real; ang, rotation: real);
var
  xp, yp: real;
begin
  var steps := 360 div Angle - 1; 
  for var i := 0 to steps do 
    if i * Angle <> ang then
    begin
      var ang1 := DegToRad(Angle * i + rotation);
      Line(Round(x), Round(y), Round(x + r * Cos(ang1)), Round(y + r * Sin(ang1))); 
    end;
  
  for var i := 0 to steps do
  begin
    var r2 := r / 2;
    var ang1 := DegToRad(Angle * i + rotation);
    xp := x + r2 * Cos(ang1); 
    yp := y + r2 * Sin(ang1); 
    if r >= 1 then 
      Draw(xp, yp, r2 - 10, i * Angle, rotation); 
  end; 
end;

begin
  SetWindowIsFixedSize(true); 
  SetWindowSize(500, 500);
  SetSmoothingOff(); 
  LockDrawing();
  
  while true do 
  begin
    var c := clRandom(); 
    for var i := 0 to 360 do 
    begin
      ClearWindow(clBlack); 
      SetPenColor(c); 
      Draw(Window.Width / 2, Window.Height / 2, Length, 1, i); 
      Redraw(); 
    end; 
  end; 
end.