uses GraphABC;
const
  Rotation = 10;
  MinAngle = -180;
  MaxAngle = 0;
  RandomAngle = 45;

procedure RLine(x, y, x1, y1: real):=Line(Round(x), Round(y), Round(x1), Round(y1));

procedure Draw(x, y, r, angle: real; n: integer);
begin
  var ang := DegToRad(angle);
  var x1 := x + r * Cos(ang);
  var y1 := y + r * Sin(ang);
  
  SetPenWidth(n);
  RLine(x, y, x1, y1);
  
  if r > 1 then
  begin
    r := r * 0.8;
    if n > 0 then n := n - 1;
    if angle + Rotation < MaxAngle then
      Draw(x1, y1, r, angle + Rotation + Random(RandomAngle), n);
    if angle - Rotation > MinAngle then
      Draw(x1, y1, r, angle - Rotation - Random(RandomAngle), n);
  end;
end;

begin
  ClearWindow(clBlack);
  SetWindowIsFixedSize(true);
  
  SetPenColor(ARGB(100, clPink.R, clPink.G, clPink.B));
  
  LockDrawing();
  Draw(Window.Width / 2, Window.Height / 2 + 50, 50, -90, 5);
  Redraw();
end.