Построение фрактала

//---------------------------------------------------------------------------
 
 
#include <vcl.h>
#pragma hdrstop
#include <iostream.h>
#include <string>
#include <tchar.h>
#include <stack>
#include <math.h>
using namespace std;
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double const pi= 3.14159265;
string str = "[F]+[F]+[F]+[F]+[F]+[F]";
string newf = "F[++F][-FF]FF][+F][-F]FF";
double alfaold=pi/3;
double alfa=pi/3;
int xold=200;
int x=200;
int yold=350;
int y=350;
int d=100;
int n;
std::stack<int> xx;
std::stack<int> yy;
std::stack<double> al;
bool flag=false;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{   Image1->Canvas->Brush->Color=clWhite;
    Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
}
//---------------------------------------------------------------------------
void draw (int &x, int &y, double alfa, string str, int d)
{      int i;
       Form1->Image1->Canvas->Brush->Color=clBlack;
       int l=str.length();
     for (string::size_type i = 0; i < l; i++) {
         switch (str[i]) {
          case '+': alfa=alfa+pi/3; break;
          case '-': alfa=alfa-pi/3; break;
          case '[': {
              xx.push(x);
              yy.push(y);
              al.push(alfa);
              break;
          }
          case ']': {
              x=xx.top();
              y=yy.top();
              xx.pop();
              yy.pop();
              alfa=al.top();
              al.pop();
              break;
          }
          case 'F':{
          Form1->Image1->Canvas->MoveTo(x,y);
          if (n==0) {
              Form1->Image1->Canvas->LineTo(x+d*cos(alfa),y+d*sin(alfa));
                 x= x+d*cos(alfa);
                 y= y+d*sin(alfa);
          }
          else {
              n--;
              draw(x,y,alfa,newf, d);
              n++;
          }
 
 
          }
         default:
             ;
         }
     }
}
 
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{   if (flag) {
     x=xold; y=yold; alfa=alfaold;
     n++;
     d=d/2;
     Image1->Canvas->Brush->Color=clWhite;
     Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
     while (!xx.empty()){
         xx.pop();
     }
     while (!yy.empty()){
         yy.pop();
     }
     while (!al.empty()){
         al.pop();
     }
     draw(x,y,alfa,str,d);
    }
    else
    {
       ShowMessage("Нет начального изображения");
    }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{    x=xold; y=yold; alfa=alfaold;
    if (!flag) {
      Image1->Canvas->Brush->Color=clBlack;
      draw(x,y,alfa,str,d);
 
    }
    else
    {
        Image1->Canvas->Brush->Color=clWhite;
        Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
 
    }
 
      flag=!flag;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{  if (flag) {
     if (n>0) {
     x=xold; y=yold; alfa=alfaold;
     n--;
     d=d*2;
     Image1->Canvas->Brush->Color=clWhite;
     Image1->Canvas->FillRect(Rect(0,0, Image1->Width, Image1->Height));
     while (!xx.empty()){
         xx.pop();
     }
     while (!yy.empty()){
         yy.pop();
     }
     while (!al.empty()){
         al.pop();
     }
     draw(x,y,alfa,str,d);
   }
   else
   {
       ShowMessage("n<0") ;
   }
   }
   else
   {
       ShowMessage("Нет начального изображения");
   }
 
}
//---------------------------------------------------------------------------