Описать рекурсивную процедуру построения узора из окружностей

//---------------------------------------------------------------------------
struct Circle
{
  Circle(int x_, int y_, int r_)
    : x(x_), y(y_), r(r_)
    {}
  Circle()
    : x(0), y(0), r(0)
    {}
 
  int x;
  int y;
  int r;
};
//---------------------------------------------------------------------------
void RecPaintCircle( TCanvas *Canvas, Circle CurrCircle, int Deep ) // Куда рисовать, что рисовать, глубина рекурсии
{
  if( --Deep <= 0 )  // Проверка на глубину рекурсии
    return;          //
  if( CurrCircle.r <= 1 ) // Проверка на целесообразность рисования круга,
    return;               //  радиусом меньшего одного пикселя
 
  Canvas->Ellipse( CurrCircle.x - CurrCircle.r,     //// Непосредственно отрисовка
                   CurrCircle.y - CurrCircle.r,       //
                   CurrCircle.x + CurrCircle.r,       //
                   CurrCircle.y + CurrCircle.r );   ////
 
  Circle CircleLeft  ( CurrCircle.x - CurrCircle.r, //// Создание трех новых кругов
                       CurrCircle.y,                  //  для отрисови
                       CurrCircle.r / 2),
 
         CircleBottom( CurrCircle.x,
                       CurrCircle.y + CurrCircle.r,
                       CurrCircle.r / 2 ),
 
         CircleTop   ( CurrCircle.x,
                       CurrCircle.y - CurrCircle.r,   //
                       CurrCircle.r / 2 );          ////
 
 
  RecPaintCircle( Canvas, CircleLeft,   Deep ); //// отрисовка трех новых кругов
  RecPaintCircle( Canvas, CircleBottom, Deep );   //
  RecPaintCircle( Canvas, CircleTop,    Deep ); ////
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Circle cir;
  cir.x = this->Width/2;
  cir.y = this->Height/2;
  cir.r = 100;
 
  int Deep = 4;
  RecPaintCircle( this->Canvas, cir, Deep );
}
//---------------------------------------------------------------------------