Астроиды

Сначала попроще

Потом посложнее 

Какая картинка лишняя? 8=)

 Вот код на VB, используйте, получите красивые астроиды...

Private Sub Command1_Click() ScaleMode = 3 DrawWidth = 1 pi = Atn(1) * 4 xmax = 580 ymax = 550 r0 = 100 n = 16 v = 6 For b = 0 To 16 * pi Step 2 * pi / v t = b - 2 * pi / v For h = r0 / n To r0 + 1 Step r0 / n r1 = r0 - h xx = r1 * Sin(b) + xmax / 2 yy = r1 * Cos(b) + ymax / 2 x = h * Sin(t) + xmax / 2 y = h * Cos(t) + ymax / 2 On Error Resume Next Col = RGB(0, 0, 0) Line (xx, yy)-(x, y), Col Next h: Next b End Sub

Если получите красивее - прошу в Форум, если нет - все равно....