Italian [B4J] Come disegnare un arco / settore circolare ?

Sub Activity_Create(FirstTime As Boolean)
   Dim c As Canvas
   c.Initialize(Activity)
   Dim p As Path
   p.Initialize(100dip, 100dip)
   Dim r As Rect
   r.Initialize(0dip, 0dip, 200dip, 200dip)
   AddArc(p, r, 0, 90)
   p.LineTo(100dip, 100dip)
   c.ClipPath(p)
   c.DrawColor(Colors.Red)
End Sub

Sub AddArc(p As Path, r As Rect, StartAngle As Float, SweepAngle As Float)
   Dim rf As JavaObject
   rf.InitializeNewInstance("android.graphics.RectF", Array (r))
   Dim jo As JavaObject = p
   jo.RunMethod("addArc", Array(rf, StartAngle, SweepAngle))
End Sub