Fractal del Dragon

En esta aplicación dibujamos el fractal del dragón la cual es una imagen compuesta por lineas del mismo tamaño.
Este es el método que genera al dragón:


 void TForm1::GenerarDragon(TColor color)
 {
   int i, j,dx,dy;
   j=Paso/2;
//setcolor(color);
   Canvas->Pen->Color=color;
   for(i=1;i<=4096;i+=Paso)
   {
   dx=EjeX[Paso+i]-EjeX[i];
   dy=EjeY[Paso+i]-EjeY[i];
   Signo*=-1;
   EjeX[i+j]=EjeX[i]+(dx+(dy*Signo))/2;
   EjeY[i+j]=EjeY[i]+(dy-(dx*Signo))/2;

   Canvas->MoveTo(EjeX[i],EjeY[i]);
   Canvas->LineTo(EjeX[i+j],EjeY[i+j]);
  Canvas->MoveTo(EjeX[i+j],EjeY[i+j]);
   Canvas-> LineTo(EjeX[i+Paso],EjeY[i+Paso]);
   
   Sleep(1);

  }
 }

Este es el resultado;

Aqui puedes descargar