Галерея интересных картинок-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
Реклама