//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <conio.h>
#define N 3         //eiee?anoai iiaoi?ia  -  aeoaeia ?aeo?nee
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

void risovka(int x0,int y1,int x1,int y0, int n)
{
int x, y, x11, x12, x21, x22, x31, x32, x41, x42,
          y11, y12, y21, y22, y31, y32, y41, y42;
if (n > 0)
        {
        //середины сторон
        x = x1 / 2;
        y = y1 / 2;
        // для 1 квадрата
        x11 = x0 + 5;   x12 = x;
        y11 = y;        y12 = y0 + 5;
        // для 2 квадрата
        x21 = x + 10;   x22 = x1 - 5;
        y21 = y;        y22 = y0 + 5;
        // для 3 квадрата
        x31 = x + 10;   x32 = x1 - 5;
        y31 = y1 - 5;   y32 = y + 10;
        // для 4 квадрата
        x41 = x0 + 5;   x42 = x;
        y41 = y1 - 5;   y42 = y + 10;

        // верхний левый
        Form1->Image1->Canvas->MoveTo(x11, y11);
        Form1->Image1->Canvas->LineTo(x11, y12);
        Form1->Image1->Canvas->LineTo(x12, y12);
        Form1->Image1->Canvas->LineTo(x12, y11);
        Form1->Image1->Canvas->LineTo(x11, y11);
        /*
        // верхний правый
        Form1->Image1->Canvas->MoveTo(x21, y21);
        Form1->Image1->Canvas->LineTo(x21, y22);
        Form1->Image1->Canvas->LineTo(x22, y22);
        Form1->Image1->Canvas->LineTo(x22, y21);
        Form1->Image1->Canvas->LineTo(x21, y21);
        // нижний левый
        Form1->Image1->Canvas->MoveTo(x31, y31);
        Form1->Image1->Canvas->LineTo(x31, y32);
        Form1->Image1->Canvas->LineTo(x32, y32);
        Form1->Image1->Canvas->LineTo(x32, y31);
        Form1->Image1->Canvas->LineTo(x31, y31);
        // нижний правый
        Form1->Image1->Canvas->MoveTo(x41, y41);
        Form1->Image1->Canvas->LineTo(x41, y42);
        Form1->Image1->Canvas->LineTo(x42, y42);
        Form1->Image1->Canvas->LineTo(x42, y41);
        Form1->Image1->Canvas->LineTo(x41, y41);
        */
        risovka(x11, y11, x12, y12, n - 1);
        //risovka(x21, y21, x22, y22, n - 1);
        //risovka(x3, y3, x22, y22, x33, y33, n - 1);
        }
getch();
}



//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
        {
        int x0 = 0, y1 = 500, x1 = 500, y0 = 0;
        //i?i?eniaea ia?aeuiiai o?aoaieuieea
        Image1->Canvas->MoveTo(x0, y1);
        Image1->Canvas->LineTo(x0, y0);
        Image1->Canvas->LineTo(x1, y0);
        Image1->Canvas->LineTo(x1, y1);
        Image1->Canvas->LineTo(x0, y1);
        //aucaaou ?aeo?neaio? ooieoe?
        risovka(x0, y1, x1, y0, N);
        getch();
        }
}
//---------------------------------------------------------------------------