رسم نیم دایره

[اندرویدستان 93]

سلام

چطوری میتونم یک نیم دایره یا یک ربع دایره تو پر رسم کنم

درضمن این ربع دایره در مختصات مختلف باشد

ممنون

[M-CAP7AIN 537]

	' 1/4
	Dim cvs As Canvas
	cvs.Initialize(Activity)
	Dim cx = 60dip, cy = 60dip As Int
	Dim r As Int = 50dip
	Dim rt As Int = r + 10dip 'stroke width
	Dim p As Path
	p.Initialize(cx - rt, cy - rt)
	p.LineTo((cx + rt)/2, (cy - rt)/2)
	p.LineTo((cx + rt)/2, cy)
	p.LineTo((cx - rt)/2, cy)
	cvs.ClipPath(p)
	cvs.DrawCircle(cx, cy, r, Colors.Red, True, 10dip)
	cvs.RemoveClip
	Activity.Invalidate
	
	'2/4
	Dim cvs As Canvas
	cvs.Initialize(Activity)
	Dim cx = 60dip, cy = 60dip As Int
	Dim r As Int = 50dip
	Dim rt As Int = r + 10dip 'stroke width
	Dim p As Path
	p.Initialize(cx - rt, cy - rt)
	p.LineTo(cx + rt, cy - rt)
	p.LineTo(cx + rt, cy)
	p.LineTo(cx - rt, cy)
	cvs.ClipPath(p)
	cvs.DrawCircle(cx, cy, r, Colors.Red, True, 10dip)
	cvs.RemoveClip
	Activity.Invalidate
	
	'3/4
	Dim cvs As Canvas
	cvs.Initialize(Activity)
	Dim cx = 60dip, cy = 60dip As Int
	Dim r As Int = 50dip
	Dim rt As Int = r + 10dip 'stroke width
	Dim p As Path
	p.Initialize(cx - rt, cy - rt)
	p.LineTo(cx + rt, cy - rt)
	p.LineTo(cx + rt, cy)
	p.LineTo(cx + rt, cy*2)
	p.LineTo((cx + rt)/2, cy*2)
	p.LineTo((cx + rt)/2, cy)
	p.LineTo(cx - rt, cy)
	cvs.ClipPath(p)
	cvs.DrawCircle(cx, cy, r, Colors.Red, True, 10dip)
	cvs.RemoveClip
	Activity.Invalidate
	
	'4/4
	Dim cvs As Canvas
	cvs.Initialize(Activity)
	Dim cx = 60dip, cy = 60dip As Int
	Dim r As Int = 50dip
	Dim rt As Int = r + 10dip 'stroke width
	cvs.DrawCircle(cx, cy, r, Colors.Red, True, 10dip)
	Activity.Invalidate

 

[اندرویدستان 93]

فدایت . عالیست