Пошаговая постройка фрактального дерева

//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int max; //густота ветвей, самая густая=1, чем больше тем убывает
int i=0;
void lineto1(int x, int y, double l, double u) //функция рисования линии по заданным координатам
{  int i;
for(i=0;i<=15;i++){ Form2->Show();
Form2->PaintBox1->Canvas->MoveTo(x,y);
Form2->PaintBox1->Canvas->LineTo(x+l*cos(u),y-l*sin(u));}
};
void Rekur(int x, int y, double l, double u)//рекурсивная процедура  рисования всего изображения
{
if (l>max)
{
l=l*0.7;
lineto1(x, y,l, u);
x=x+l*cos(u);
y=y-l*sin(u);
Rekur(x,y,l, u+3.14/4);//Угол поворота 1
Rekur(x,y,l, u-3.14/4);//Угол поворота 2
}}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x1,x2,y1,y2;
double a;
Form2->PaintBox1->Canvas->Rectangle(0,0,Form2->Width, Form2->Height);
max=StrToInt(Edit1->Text);
x1=Form2->Width/2;//середина формы
y1=Form2->Height-100;//100 пикселей от нижнего края
Rekur(x1,y1,Form2->Height/3, 3.14/2);//размер рисунка2/3 высоты формы, угол между ветвями приблизительно 90 градусов
}
//---------------------------------------------------------------------------