Узоры

Private Sub tmrMain_Timer()
  Dim fT As Single
  Dim fX1 As Single
  Dim fY1 As Single
  Dim fX2 As Single
  Dim fY2 As Single
  Dim fA1 As Single
  Dim fA2 As Single
  Dim fB1 As Single
  Dim fB2 As Single
  Dim fC1 As Single
  Dim fD As Single
  '
  picXY.Cls
  Randomize (Timer)
  fA1 = Rnd
  fA2 = Rnd
  fB1 = Rnd
  fB2 = Rnd
  fC1 = 2 * Rnd
  For fT = 0 To 12.6 Step 0.05
    fD = fT + fC1
    fX1 = 2 * Cos(fA2 * fT) - Cos(2 * fA1 * fT)
    fX2 = 2 * Cos(fA2 * fD) - Cos(2 * fA1 * fD)
    fY1 = 2 * Sin(fB2 * fT) - Sin(2 * fB1 * fT)
    fY2 = 2 * Sin(fB2 * fD) - Sin(2 * fB1 * fD)
    picXY.Line (fX2, fY2)-(fX1, fY1), RGB(0, 0, 255)
  Next fT
End Sub

picXY.Line (fX2, fY2)-(fX1, fY1), RGB(Rnd() * 255, Rnd() * 255, Rnd() * 255)

Declare Sub Bmp2Jpg Lib "save2jpg.dll" (ByVal f1 As String, ByVal f2 As String)
Declare Sub SaveToJpg1 Lib "save2jpg.dll" (ByVal hgd As Long, ByVal FileName As String, ByVal Height As Long, ByVal Width As Long)
Declare Sub SaveToJpg2 Lib "save2jpg.dll" (ByVal hgd As Long, ByVal FileName As String, ByVal Height As Long, ByVal Width As Long)