Спасибо! Проверил, работает.
Всё проще, оказывается. Обидно, что 4 часа провозился с разбиением окружности на части.
Хреново, когда не помнишь геометрию. Я даже не подумал про синусы косинусы, потому что их графики мне представляются в виде волны, а не окружности.
Graphics 800,600,32, 2
While Not KeyHit(1)
Color 255, 255, 255
For q = 1 To 1000 Step 4
Plot 400+200*Cos(q), 300+200*Sin(q)
Next
Wend