Sub Globals
Dim Aed As ABExtDrawing
Dim Cv As Canvas
Dim Arc As ABRectF
Dim Apt As ABPath
Dim Apa As ABPaint
Private Panel1 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
Cv.Initialize(Panel1)
Arc.Initialize(100,100,Panel1.Width-100, Panel1.Width-100)
Apt.Initialize
Apt.arcTo(Arc, 30, 260)
Apa.Initialize
Apa.SetAntiAlias(True)
Apa.SetStrokeWidth(80)
Dim c(2) As Int
c(0) = Colors.Yellow
c(1) = Colors.Red
Apa.SetSweepGradient(1, Panel1.Width/2.0, Panel1.Width/2.0, c, Null)
Apa.DoShaderSingle(1)
Apa.SetStrokeCap(Apa.Cap_ROUND)
Apa.SetStyle(Apa.Style_STROKE)
Aed.drawPath(Cv, Apt, Apa)
End Sub