用Visual Basic程式來畫 太極圖

太極圖可看成六塊:
各2組陰陽半圓和一組陰陽圓形



程式如下：

Private Sub form_activate()
Const PI = 3.1415926
Dim bangle, eangle As Single
FillStyle = 0

FillColor = vbBlack
bangle = 90 * PI / 180
eangle = 270 * PI / 180
Circle (3000, 2500), 2000, vbBlack, -bangle, -eangle

bangle = 270 * PI / 180
eangle = 90 * PI / 180
FillColor = vbWhite
Circle (3000, 2500), 2000, vbWhite, -bangle, -eangle

FillColor = vbWhite
bangle = 90 * PI / 180
eangle = 270 * PI / 180
Circle (3000, 3500), 1000, vbWhite, -bangle, -eangle

bangle = 270 * PI / 180
eangle = 90 * PI / 180
FillColor = vbBlack
Circle (3000, 1500), 1000, vbBlack, -bangle, -eangle

FillColor = vbBlack
Circle (3000, 3500), 500, vbBlack

FillColor = vbWhite
Circle (3000, 1500), 500, vbWhite

End Sub