Kako nacrtati spiralu u Delphiju?

Za crtanje spirale u Delphiju, možete koristiti funkciju `DrawSpiral`. Ova funkcija uzima sljedeće parametre:

* `ACanvas`:platno na kojem se crta spirala.

* `ACenterX`:x-koordinata središta spirale.

* `ACenterY`:y-koordinata središta spirale.

* `ARadius`:polumjer spirale.

* `AWidth`:širina spirale.

* `AColor`:Boja spirale.

Sljedeći kôd pokazuje kako koristiti funkciju `DrawSpiral` za crtanje spirale na platnu:

```delphi

procedure DrawSpiral(ACanvas:TCanvas; AcenterX, AcenterY:Integer; ARadius, AWidth:Double; AColor:TColor);

var

i, j, x, y, korak, kut, polumjer:cijeli broj;

početi

// Izračunajte veličinu koraka.

korak :=krug(ARradijus / 50);

// Nacrtajte spiralu.

za i :=0 do 50 do

početi

kut :=i * 10;

polumjer :=i * korak;

x :=okrugli(CentarX + radijus * cos(kut) / 180);

y :=okrugli(CentarY + radijus * sin(kut) / 180);

// Nacrtajte liniju od središta spirale do trenutne točke.

ACanvas.LineTo(x, y);

kraj;

// Postavite boju olovke na navedenu boju.

ACanvas.Pen.Color :=AColor;

kraj;

```

Sljedeći kôd pokazuje kako koristiti funkciju `DrawSpiral` za crtanje spirale na obrascu:

```delphi

procedura DrawSpiral();

var

platno:TCanvas;

početi

// Kreirajte objekt platna.

platno :=TCanvas.Create;

probati

// Nacrtajte spiralu na platnu.

DrawSpiral(canvas, 100, 100, 50, 2, clRed);

// Prikažite platno na obrascu.

Image1.Picture.Assign(canvas);

konačno

platno.Besplatno;

kraj;

kraj;

```