---

---

Von KochPeano

HilbertSierpinski

FractalClassic (v. 1.01 2003)

Download the freeware program:
Download del programma freeware per realizzare le immagini:

(218 K zip)

Download the Delphi source only:
Download del solo sorgente in Delphi del programma:

(12 K zip)

Le immagini sono state realizzate per mezzo della tartaruga grafica propria del linguaggio LOGO, che facilita grandemente la costruzione degli algoritmi generatori.

Questa è l'implementazione in Delphi di una tartaruga grafica elementare:
This is a simple Delphi graphic turtle implementation:

type Tarta = record
A: real; {angolo sessagesimale}
Y: real; {ordinata}
X: real; {ascissa}
P: real; {passo}
R: real; {angolo radiante}
end;

procedure destra(angolo: Real);
begin
T.A := T.A +angolo;
end;

procedure sinistra(angolo: Real);
begin
T.A := T.A-angolo;
end;

procedure avanti;
begin
T.R := T.A * 0.0174533;
T.X := T.P * COS(T.R) + T.X;
T.Y := T.P * SIN(T.R) + T.Y;
end;

procedure indietro;
begin
T.R := T.A * 0.0174533;
T.X := T.X-T.P * COS(T.R);
T.Y := T.Y-T.P * SIN(T.R);
end;