Sub Activity_Create(FirstTime As Boolean)
Dim cvs As Canvas
cvs.Initialize(Activity)
Dim path As Path
path.Initialize(50%x, 50%y)
Dim radius As Float = 100dip
PathAddCircle(path, 50%x, 50%y, radius)
cvs.DrawPath(path, Colors.Red, False, 2dip)
DrawTextOnPath(cvs, path, "Circular Text!!!", Typeface.DEFAULT, 18, Colors.White, radius)
End Sub
Sub PathAddCircle(path As Path, x As Float, y As Float, radius As Float)
Dim jo As JavaObject = path
jo.RunMethod("addCircle", Array(x, y, radius, "CW"))
End Sub
Sub DrawTextOnPath(canvas As Canvas, path As Path, text As String, typeface1 As Typeface, TextSize As Float, Color As Int, Radius As Float)
canvas.DrawText("", 0, 0, typeface1, TextSize, Color, "CENTER")
Dim jo As JavaObject = canvas
Dim r As Reflector
r.Target = canvas
r.Target = r.GetField("paint")
jo = jo.GetField("canvas")
Dim hoffset = Radius * 2 * cPI / 4, voffset = -10dip As Float
jo.RunMethod("drawTextOnPath", Array(text, path, hoffset, voffset, r.Target))
End Sub