Kako narisati spiralo v Delphiju?

Za risanje spirale v Delphiju lahko uporabite funkcijo `DrawSpiral`. Ta funkcija sprejme naslednje parametre:

* `ACanvas`:Platno, na katerega narišete spiralo.

* `ACenterX`:x-koordinata središča spirale.

* `ACenterY`:y-koordinata središča spirale.

* `ARadius`:polmer spirale.

* `AWidth`:širina spirale.

* `AColor`:Barva spirale.

Naslednja koda prikazuje, kako uporabiti funkcijo `DrawSpiral` za risanje spirale na platno:

```delphi

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

var

i, j, x, y, korak, kot, polmer:celo število;

začeti

// Izračunajte velikost koraka.

korak :=krog(ARradius / 50);

// Nariši spiralo.

za i :=0 do 50 do

začeti

kot :=i * 10;

polmer :=i * korak;

x :=krog(AcenterX + polmer * cos(kot) / 180);

y :=okroglo (AcenterY + polmer * sin(kot) / 180);

// Nariši črto od središča spirale do trenutne točke.

ACanvas.LineTo(x, y);

konec;

// Nastavite barvo peresa na podano barvo.

ACanvas.Pen.Color :=AColor;

konec;

```

Naslednja koda prikazuje, kako uporabiti funkcijo `DrawSpiral` za risanje spirale na obrazcu:

```delphi

postopek DrawSpiral();

var

platno:TCanvas;

začeti

// Ustvari predmet platna.

platno :=TCanvas.Create;

poskusi

// Narišite spiralo na platno.

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

// Prikažite platno na obrazcu.

Image1.Picture.Assign(canvas);

končno

platno. Brezplačno;

konec;

konec;

```