太极图

使用QB绘制一副黑白相间的太极图。

<br />CLS : pi = 4 * ATN(1)<br />SCREEN 12: a = 40: r = 5 * a<br />CIRCLE (8 * a, r), 4 * a<br />CIRCLE (r + a, r), a<br />CIRCLE (2 * r, r), a<br />CIRCLE (r + a, r), 2 * a, , 0, pi<br />CIRCLE (2 * r, r), 2 * a, , pi, 0<br />PAINT (2 * r, r): PAINT (8 * a, 7 * a)<br />END<br />