rounded rect

BlitzMax Forums/BlitzMax Programming/rounded rect

Diablo
 #1
ok got to fix it
Function DrawRoundRect(x:Int, y:Int, width:Int, height:Int, radius:Int)
	DrawOval(x, y, radius, radius)
	DrawOval(x + (width - (radius)), y, radius, radius)
	DrawOval(x, y + (height - (radius)), radius, radius)
	DrawOval(x + (width - (radius)), y + (height - (radius)), radius, radius)
	DrawRect(x + (radius / 2), y, width - radius, height)
	DrawRect(x, y + (radius / 2), width, height - radius)
End Function