Розетки

Заметили должно быть фоновый узор.

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

Private Sub Command1_Click() xx = 330 yy = 260: X2 = 200: Y2 = 0 P = 3.1415926 RR = 120 RR1 = 10 Line (0, 0)-(800, 800), RGB(227, 231, 230), BF For i = 0 To 360 Step 2 For j = 0 To 360 Step 0.8 t = i * P / 180 s = j * P / 180 rr0 = RR1 + 50 * Cos(2# * t) ^ 14 + 50 * (Sin(1 * s + 4 * t)) ^ 24 'rr0 = RR1 + 50 * Sin(0.5 * t) ^ 4 + 30 * (Sin(1 * s + 7 * t)) ^ 44 X = RR * Cos(t) + rr0 * Cos(s) Y = RR * Sin(t) + rr0 * Sin(s) z = 0 'RR * Sin(1 * t) + rr0 * Cos(s) X1 = X / 1 - z * Cos(P / 3) * 0.5 Y1 = Y / 1 - z * Sin(P / 3) * 0.5 red = 0 '190 '255 * rr0 / (RR1 + 70) green = 0 '215 '255 * Abs(Sin(i / 15)) blue = 0 '190 '255 * Abs(Sin((j) / 20)) 'red = 255 * rr0 / (RR1 + 70) 'green = 255 * Abs(Sin(i / 15)) 'blue = 255 * Abs(Sin((j) / 20)) DrawWidth = 1 If i > 0 And j > 0 Then Line (X1 + xx + 10, Y1 + yy + 40)-(X2 + xx + 10, Y2 + yy + 40), RGB(red, green, blue) X2 = X1 Y2 = Y1 Next j Next i

Вот еще варианты.