Hogyan rajzoljunk spirált a Delphiben?

Spirál rajzolásához Delphiben használhatja a "Spirál rajzolása" funkciót. Ez a funkció a következő paramétereket veszi fel:

* "ACanvas":A vászon, amelyre a spirált meg kell rajzolni.

* `ACenterX`:A spirál középpontjának x-koordinátája.

* "ACenterY":A spirál középpontjának y-koordinátája.

* `ARadius`:A spirál sugara.

* "AWidth":A spirál szélessége.

* `AColor`:A spirál színe.

A következő kód bemutatja, hogyan kell a „DrawSpiral” funkciót használni spirál rajzolására a vászonra:

``` delphi

eljárás DrawSpiral(ACanvas:TCanvas; AcenterX, AcenterY:Integer; ARadius, AWidth:Double; AColor:TColor);

var

i, j, x, y, lépés, szög, sugár:Egész;

kezdődik

// A lépések méretének kiszámítása.

lépés :=kerek(ARadius / 50);

// Rajzold meg a spirált.

for i :=0-tól 50-ig

kezdődik

szög :=i * 10;

sugár :=i * lépés;

x :=kerek(KözéppontX + sugár * cos(szög) / 180);

y :=round(KözpontY + sugár * sin(szög) / 180);

// Rajzoljon egy vonalat a spirál közepétől az aktuális pontig.

ACanvas.LineTo(x, y);

vége;

// Állítsa be a toll színét a megadott színre.

ACanvas.Pen.Color :=AColor;

vége;

```

A következő kód bemutatja, hogyan kell a `DrawSpiral` funkciót spirál rajzolására egy űrlapon:

``` delphi

eljárás DrawSpiral();

var

vászon:TCanvas;

kezdődik

// Vászonobjektum létrehozása.

vászon :=TCanvas.Create;

megpróbál

// Rajzolja meg a spirált a vászonra.

DrawSpiral(vászon, 100, 100, 50, 2, clRed);

// A vászon megjelenítése az űrlapon.

Kép1.Kép.Hozzárendelés(vászon);

végül

vászon.Ingyenes;

vége;

vége;

```