Frattali , fiocchi e merletti

procedure TForm1.DisegnaClick(Sender: TObject);
var Rango: integer ;
Var Lato: Double;
Var x0, y0 : double;

begin
  // leggo il rango del merletto
 Rango:=spinRango.Value;
 // fisso lato del quadrato e il punto di ancoraggio
 Lato:=360;
 x0:=45;
 y0:=380;

 // disegno il quadrato di rango 0
 DisegnaTappeto0(chart1.canvas, x0,y0,Lato);

 //Richiamo la procedura ricorsiva
 DisegnaTappeto(chart1.canvas, x0,y0,lato, rango)
end;

procedure TForm1.DisegnaTappeto0(BoxCanvas: TCanvas; x, y, Lato: double);
var
 w: double;
 PuntiQ :array of Tpoint;
begin

 w := Lato;

 SetLength(PuntiQ, 4);
 PuntiQ[0] := Point(round(x),Round(y));
 PuntiQ[1] := Point(round(x+w),round(y));
 PuntiQ[2] := Point(round(x+w),Round(y-w));
 PuntiQ[3] := Point(round(x),Round(y-w));

 BoxCanvas.Pen.Width := 1;
 BoxCanvas.Pen.Color := clBlack;
 BoxCanvas.Brush.Color := clred;
 BoxCanvas.Polygon(PuntiQ);
end;

procedure TForm1.DisegnaTappeto(BoxCanvas: TCanvas; x, y, Lato: double; n: integer);
var
 w: double;
 x1, y1, x2, y2, x3, y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8: double;
 PuntiQC :array of Tpoint;
begin
 // punto di uscita dalla ricorsione.
 // N.B.:il Quadrato di rango 0 è già stato disegnato
 if n=0 then  exit;

 // Determino le dimensioni del quadrato
 w := Lato;

 // Punto di ancoraggio Quadrato in basso a sinistra
 x1 := x;
 y1 := y;
 // Punto di ancoraggio quadrato in basso a centro
 x2 := x+w/3;
 y2 := y;
 // Punto di ancoraggio quadrato in basso a destra
 x3 := x+2*w/3;
 y3 := y;

 // Punto di ancoraggio Quadrato centro sinistra
 x4 := x;
 y4 := y-w/3;
 // Punto di ancoraggio quadrato centro destra
 x5 := x+2*w/3;
 y5 := y-w/3;

 // Punto di ancoraggio Quadrato in alto a sinistra
 x6 := x;
 y6 := y-2*w/3;
 // Punto di ancoraggio quadrato in alto a centro
 x7 := x+w/3;
 y7 := y-2*w/3;
 // Punto di ancoraggio quadrato in alto a destra
 x8 := x+2*w/3;
 y8 := y-2*w/3;

 // disegno quadrato centrale col colore bianco
 SetLength(PuntiQC, 4);
 PuntiQC[0] := Point(round(x1+w/3),round(y1-w/3));
 PuntiQC[1] := Point(round(x1+2*w/3),Round(y1-w/3));
 PuntiQC[2] := Point(round(x1+2*w/3),Round(y1-2*w/3));
 PuntiQC[3] := Point(round(x1+w/3),Round(y1-2*w/3));

 BoxCanvas.Brush.Color := clWhite;
 BoxCanvas.Polygon(PuntiQC);

 //Ricorsione :  passo n-1 e il lato pari a un terzo del precedente
 if n > 0 then
 begin
   DisegnaTappeto(BoxCanvas, x1, y1, Lato/3, n-1);
   DisegnaTappeto(BoxCanvas, x2, y2, Lato/3, n-1);
   DisegnaTappeto(BoxCanvas, x3, y3, Lato/3, n-1);
   DisegnaTappeto(BoxCanvas, x4, y4, Lato/3, n-1);
   DisegnaTappeto(BoxCanvas, x5, y5, Lato/3, n-1);
   DisegnaTappeto(BoxCanvas, x6, y6, Lato/3, n-1);
   DisegnaTappeto(BoxCanvas, x7, y7, Lato/3, n-1);
   DisegnaTappeto(BoxCanvas, x8, y8, Lato/3, n-1);
  end;
end;