ビジュアルベーシックで極座標を使用して描画中の原点を移動する

Question

極座標を使用してピザにペッパーノーズを描こうとしていますが、原点を移動する際に問題があります。ここに私のコードは次のとおりです。

私はポイントを移動する方法任意のアイデア：

If pTopping = True Then 
    Dim counter = 0 
    Dim imgPic(3) As Image 
    imgPic(0) = pepperoniOne 
    imgPic(1) = pepperoniTwo 
    imgPic(2) = pepperoniThree 
    Do Until counter > 38 
     Dim value As Integer = CInt(Int((3 * Rnd()) + 0)) 
     Dim i = imgPic(value) 
     Dim PTC As New polarAndCartesian(CInt(Int((60 * Rnd()) + 0)), CInt(Int((360 * Rnd()) + 0))) 
     e.Graphics.DrawImage(i, CInt(PTC.X), CInt(PTC.Y)) 
     counter += 1 
    Loop 
End If 

そしてここでは、私の結果です：

Public Class polarToCartesian 

Property X As Double 
Property Y As Double 
Sub New(Radius As Double, AngleDegree As Double) 
    Dim AngleRadian As Double = AngleDegree * 2 * Math.PI/360 
    X = Radius * Math.Cos(AngleRadian) 
    Y = Radius * Math.Sin(AngleRadian) 
End Sub 
End Class 

Public Class CartesianToPolar 
    Property Radius As Double 
    Property AngleRadian As Double 
    ReadOnly Property AngleDegree As Double 
    Get 
     Return AngleRadian * 360/(2 * Math.PI) 
    End Get 
    End Property 

    Sub New(X As Double, Y As Double) 
     Radius = (X^2 + Y^2)^0.5 
     AngleRadian = Math.Atan2(Y, X) 
    End Sub 
End Class 

そして、ここでは、私がpepperonisを描いてる方法です私は描画を始める前に極座標上の原点？私はこの1つの周りに私の頭を包んで苦労している。

Answer 1

ピザパイの中心を計算し、それをpeperoni xとyに追加する必要があります。

PTC.X += (pie.X + pie.Width ) \ 2 ' "\" for integer division instead of "/" 
PTC.Y += (pie.Y + pie.Height) \ 2 

また、極座標では、円の中心が、辺よりもペペロニを持つように見えます。代わりに、ランダムなXとYを取得し、それらがピザパイの円内にあるかどうかを確認することができます。 （

Dim random as New Random() 
Dim value = random.Next(3);