Галерея интересных картинок-2

Использованы материалы сайта Арбуз - угощение для технической интеллигенции
Dim r1 As Integer, r As Integer, pi As Single, x As 
      Single, y As Single

Private Sub Command1_Click() Form1.ScaleMode = vbPixels Cls pi = 4 * Atn(1) DrawWidth = 2: n = 30 For j = 1 To n x = Rnd * 500 + 150: y = Rnd * 300 + 20 r1 = 9 * (n - j) + 10: kaplya Next j End Sub
Private Sub kaplya() For i = 0 To pi / 2 Step 0.001 r = r1 * Sin(i) ^ 3 Line (r * Cos(i) + x - i * 70, r * Sin(i) + y)-(-r * Cos(-i) _ + x - i * 70, -r * Sin(-i) + y), _ RGB(Abs(r), _ Abs(255 - i * 220), _ Abs(255 - i * 320)) Next i End Sub
Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single
Dim n As Integer, j As Byte, i As Single

Private Sub Command1_Click() Form1.ScaleMode = vbPixels Cls pi = 4 * Atn(1) DrawWidth = 2: n = 1 For j = 1 To n x = 550: y = 220 r1 = 100 kaplya Next j End Sub
Private Sub kaplya() For i = 0 To pi * 9 Step 0.0015 r = r1 * (1 - Cos(5.4 * i) ^ 1) Line (r * Cos(i) + x - i * 20, r * Sin(i) + y)- _ (-r * Cos(i) + x - i * 30, r * Sin(-i) + y), _ RGB(Abs(r), _ Abs(255 - Cos(i / 2) * 420), _ Abs(Cos(i * 2) * 250)) Next i End Sub
Dim r1 As Integer, r As Integer, pi As Single, x As Single, y As Single
Dim n As Integer, j As Byte, i As Single

Private Sub Command1_Click() Form1.ScaleMode = vbPixels Cls pi = 4 * Atn(1) DrawWidth = 2: n = 1 For j = 1 To n x = 550: y = 220 r1 = 10 kaplya Next j End Sub
Private Sub kaplya() For i = -pi To pi * 50 Step 0.0015 r = r1 + i * 2.5 + 0.1 * i * Cos(55 * i) ^ 6 Line (r * Cos(i) + x - i * 1, r * Sin(i) + y)- _ (r * Cos(i) + x - i * 1.2, r * Sin(i) + y), _ RGB(Abs(r), _ Abs(255 - Cos(i / 2) * 420), _ Abs(Cos(i * 4) * 250)) Next i End Sub
Реклама

рандом аккаунты warface