VB只用PSet画平滑的圆

代码：
Sub myCircle(ByVal x0, ByVal y0, ByVal r)
Dim js, f, t, x, k, y_, j, y, c
js = Array(-1, 1, 0)
For f = 0 To 1
If f Then t = x0: x0 = y0: y0 = t
For x = Round(x0 - r * 0.71) To Round(x0 + r * 0.71)
For k = -1 To 1 Step 2
y_ = Round(y0 + Sqr(Abs(r ^ 2 - (x - x0) ^ 2)) * k)
For Each j In js
y = y_ + j
c = Abs(r - Sqr((x - x0) ^ 2 + (y - y0) ^ 2))
If c < 1 Then
c = Round(c * 255)
PSet (IIf(f, y, x), IIf(f, x, y)), RGB(c, c, c)
End If
Next j
Next k
Next x
Next f
End Sub
Private Sub Form_Load()
AutoRedraw = True
ScaleMode = 3
BackColor = vbWhite
Circle (100, 100), 90
myCircle 200, 100, 90
End Sub

我记得计算机图形学讲过这事儿……书上甚至有完备的算法说明……

我写的方法还有一个线宽参数，2楼的代码是把线宽参数去掉改成1简化的。
线宽效果：

画圆方法可以改进，以下是圆的放大图。
左边的是Circle方法画的圆，中间的是原先方法，右边的是最新方法。

不错不错

不错 已达到GDI画出的效果了 其实平滑两字是欺骗人的眼睛视觉 与GDI一样的道理 使用接近的颜色描绘填充锯齿部份(屏幕解析度衔接问题), 就会有平滑的感觉

看不懂你们带代码侧重点在哪里？我这个又如何
Do While kk < 2 * 3.14159265
PSet (pw / 2 + r * Cos(kk), ph / 2 - r * Sin(kk))
kk = kk + k
Loop
'pw/2,ph/2圆心，r半径，kk仰角,k角速度。

不同线宽和平滑程度，线宽0也是有图像的。

不错。要是想应用到游戏里，最好一次性写入位图数据然后现实，而不是像这样一个点一个点的显示。

不错
~(来自爱贴吧Lumia820客户端)(其实句（maimeng）号也是小尾巴)

cleartype效果还是略有问题，不够平滑，改改吧，没准能超过M$呢