B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=6.5
@EndOfDesignText@
'Class Circle module
Sub Class_Globals
	Private mx, my, mRadius As Int
End Sub

'Initializes the object. You can add parameters to this method if needed.
Sub Initialize (Shapes As List, x As Int, y As Int, Radius As Int)
	mx = x
	my = y
	mRadius = Radius
	Shapes.Add(Me)
End Sub

Sub Draw(cvs As Canvas)
	cvs.DrawCircle(mx, my, mRadius, Colors.Blue, False, 1dip)
End Sub
