Public Sub DrawTexts(Pn As B4XView, lstTexts As List, FontSize As Float, lstColors As List, Radius As Int, StrokeWidth As Int, CircleColor As Int)
Dim xCanvas As B4XCanvas
xCanvas.Initialize(Pn)
Dim NumOfSectors As Int = lstTexts.Size
Dim SectorsOffset As Double = 360 / NumOfSectors
Dim CenterX, CenterY As Float
CenterX = Pn.Width / 2
CenterY = Pn.Height / 2
Dim Angle As Float
Dim xFont As B4XFont = xui.CreateDefaultFont(FontSize)
Dim Text As String
For i = 0 To NumOfSectors - 1
Text = lstTexts.Get(i)
Angle = 270 + i * SectorsOffset + SectorsOffset / 2
Dim r As B4XRect = xCanvas.MeasureText(Text, xFont)
Dim BaseLine As Int = CenterY - r.Height / 2 - r.Top
xCanvas.DrawTextRotated(Text, CenterX + 100dip * CosD(Angle), BaseLine + 100dip * SinD(Angle), xFont, xui.Color_Black, "CENTER", Angle)
Next
End Sub