Delphi で螺旋を描くにはどうすればよいですか?

Delphi で螺旋を描くには、`DrawSpir​​al` 関数を使用できます。この関数は次のパラメータを受け取ります。

* `ACanvas`:スパイラルを描くキャンバス。

* `ACenterX`:螺旋の中心の x 座標。

* `ACenterY`:螺旋の中心の y 座標。

* `ARadius`:螺旋の半径。

* `AWidth`:スパイラルの幅。

* `AColor`:スパイラルの色。

次のコードは、「DrawSpir​​al」関数を使用してキャンバス上にスパイラルを描画する方法を示しています。

デルフィ

プロシージャ DrawSpir​​al(ACanvas:TCanvas; AcenterX, AcenterY:Integer; ARadius, AWidth:Double; AColor:TColor);

変数

i、j、x、y、ステップ、角度、半径:整数。

始める

// ステップサイズを計算します。

ステップ :=ラウンド(ARadius / 50);

// 螺旋を描きます。

for i :=0 ～ 50 を実行します

始める

角度 :=i * 10;

半径 :=i * ステップ;

x :=round(AcenterX + radius * cos(角度) / 180);

y :=round(AcenterY + 半径 * sin(角度) / 180);

// 螺旋の中心から現在の点まで線を描きます。

ACanvas.LineTo(x, y);

終わり;

// ペンの色を指定した色に設定します。

ACanvas.Pen.Color :=AColor;

終わり;

「」

次のコードは、「DrawSpir​​al」関数を使用してフォーム上にスパイラルを描画する方法を示しています。

「デルフィ」

プロシージャ DrawSpir​​al();

変数

キャンバス:TCanvas;

始める

// キャンバスオブジェクトを作成します。

キャンバス :=TCanvas.Create;

試す

// キャンバスに螺旋を描きます。

DrawSpir​​al(canvas, 100, 100, 50, 2, clRed);

// フォーム上にキャンバスを表示します。

Image1.Picture.Assign(キャンバス);

ついに

キャンバス。無料。

終わり;

終わり;

「」