VERSION 5.00
Begin VB.Form frmmoire 
   BackColor       =   &H00400040&
   Caption         =   "speed control: 1=fast, 900=slow...  http://gregvan.tripod.com"
   ClientHeight    =   6705
   ClientLeft      =   60
   ClientTop       =   375
   ClientWidth     =   9480
   FillColor       =   &H00400040&
   BeginProperty Font 
      Name            =   "Arial Black"
      Size            =   12
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H00FFFF00&
   LinkTopic       =   "Form1"
   ScaleHeight     =   26440.1
   ScaleMode       =   0  'User
   ScaleWidth      =   9480
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtspeed 
      Height          =   435
      Left            =   120
      TabIndex        =   2
      Text            =   "236"
      Top             =   120
      Width           =   615
   End
   Begin VB.CommandButton cmdKali 
      Caption         =   "START "
      BeginProperty Font 
         Name            =   "Arial Black"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   8520
      TabIndex        =   1
      Top             =   120
      Width           =   855
   End
   Begin VB.CommandButton cmdQuit 
      Caption         =   "QUIT"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   8520
      TabIndex        =   0
      Top             =   720
      Width           =   855
   End
End
Attribute VB_Name = "frmmoire"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Visual Basic program that paints a
'MOIRE PATTERN on the screen...
'other Kaleidoscope programs can be found at:
'http://gregvan.tripod.com
'This project is saved as yak.vbp
'the form is saved as yak.frm
'this form's object name is frmmoire




Private Sub cmdKali_Click()
'when you push the "Start" button
'this part of the program executes...

frmmoire.Scale (0, 450)-(640, 0)
Dim col1 As Single
Dim col As Single
Dim col2 As Single


Dim extreme As Integer
Dim slow As Integer
Dim speed As Integer

Dim fred As Integer, sue As Integer

Dim forever As Integer
Dim endless As Integer

Dim dark As Integer



   Randomize
'generate some random numbers
    sue = Int(Rnd * 200)
    
    
    fred = Int(Rnd * 140) + 25
For j = 1 To fred

art = art + 13
If art > 50 Then art = art - 50
art2 = art + art

fart = fart + 23
If fart > 60 Then fart = fart - 60
fart2 = fart + fart

sam = sam + 1
If sam > 3 Then sam = -4
samc = samc + 1
If samc > 3 Then samc = -3


jay = jay + 3
If jay > 14 Then jay = jay - 14
col = col + &H2A1123
If col > &HFFFFFF Then col = col - &HFFFFFF

Next j
frmmoire.DrawWidth = 1
z2 = fred
z4 = sue
'GoTo testing
For forever = 1 To 1000
For endless = 1 To 1000
For jerry = 1 To 300
col = col + &H10401
If col > &HFFFFFF Then col = col - &HFFFFFF
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow
frmmoire.Circle (320 - jerry, 240), 302 - jerry, col
frmmoire.Circle (320 + jerry, 240), 302 - jerry, col
frmmoire.Circle (320, 240 - jerry), 302 - jerry, col
frmmoire.Circle (320, 240 + jerry), 302 - jerry, col


frmmoire.Circle (320 + jerry, 240), jerry, col
frmmoire.Circle (320 - jerry, 240), jerry, col
frmmoire.Circle (320, 240 + jerry), jerry, col
frmmoire.Circle (320, 240 - jerry), jerry, col
Next jerry
col2 = &HFFFFFF - col
For hh = 1 To 150

frmmoire.Circle (320, 240), hh, col2
Next hh
col1 = &HFFFFFF - col2
frmmoire.DrawWidth = 18
frmmoire.Line (310, 335)-(330, 335), col1
frmmoire.Line (270, 145)-(290, 145), col1
frmmoire.Line (350, 145)-(370, 145), col1
frmmoire.Line (230, 335)-(250, 335), col1
frmmoire.Line (390, 335)-(410, 335), col1
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow



frmmoire.Line (320, 335)-(280, 145), col1
frmmoire.Line (320, 335)-(360, 145), col1
frmmoire.Line (280, 145)-(240, 335), col1
frmmoire.Line (360, 145)-(400, 335), col1

frmmoire.DrawWidth = 1
For yak = 1 To 10
col = col + &H123456
If col > &HFFFFFF Then col = col - &HFFFFFF
frmmoire.Line (165, 420)-(165, 420), &H0

frmmoire.FontSize = 25
frmmoire.ForeColor = col
frmmoire.Print "Destination Gear"
frmmoire.Line (45, 100)-(45, 100), &H0

frmmoire.FontSize = 40
frmmoire.ForeColor = col
frmmoire.Print "Watermark/Yakima"

col1 = col1 + &H3A2E1
If col1 > &HFFFFFF Then col1 = col1 - &HFFFFFF

frmmoire.DrawWidth = 18
frmmoire.Line (310, 335)-(330, 335), col1
frmmoire.Line (270, 145)-(290, 145), col1
frmmoire.Line (350, 145)-(370, 145), col1
frmmoire.Line (230, 335)-(250, 335), col1
frmmoire.Line (390, 335)-(410, 335), col1
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow



frmmoire.Line (320, 335)-(280, 145), col1
frmmoire.Line (320, 335)-(360, 145), col1
frmmoire.Line (280, 145)-(240, 335), col1
frmmoire.Line (360, 145)-(400, 335), col1
frmmoire.DrawWidth = 1
For peter = 1 To 10
For h = 1 To 50 Step 1
col = col + &H30201
If col > &HFFFFFF Then col = col - &HFFFFFF
frmmoire.Circle (0, 480), h, col
frmmoire.Circle (640, 480), h, col
frmmoire.Circle (0, 0), h, col
frmmoire.Circle (640, 0), h, col
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow






Next h
Next peter

Next yak

col = col + &H2A1123
If col > &HFFFFFF Then col = col - &HFFFFFF


art = art + 13
If art > 70 Then art = art - 60
art2 = art + art

fart = fart + 23
If fart > 80 Then fart = fart - 70
fart2 = fart + fart

For achoo = 1 To 20 Step 1
col = col + &H40308
If col > &HFFFFFF Then col = col - &HFFFFFF

sam = sam + 1
If sam > 3 Then sam = -4
samc = samc + 1
If samc > 3 Then samc = -3

For joe = 1 To achoo

z2 = z2 - samc
If z2 < -250 Then z2 = z2 + 500
If z2 > 250 Then z2 = z2 - 500
z4 = z4 + sam
If z4 > 225 Then z4 = z4 - 450
If z4 < -225 Then z4 = z4 + 450
DoEvents
col = col + &H80203
If col > &HFFFFFF Then col = col - &HFFFFFF

sue = 10
For w = -fart2 To fart2 Step fart2
'If w > 0 Then sue = 10
'If w < 0 Then sue = 30
sue = sue + 3
z2 = z2 + w
z4 = z4 - w - w

For v = 0 To art2 Step art

z4 = z4 + v
z2 = z2 - v - v
sue = sue + v
frmmoire.Circle (320 + z2, 240 + z4), sue, col
frmmoire.Circle (320 - z4, 240 + z2), sue, col
frmmoire.Circle (320 - z2, 240 - z4), sue, col
frmmoire.Circle (320 + z4, 240 - z2), sue, col
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow

frmmoire.Circle (320 + z4, 240 + z2), sue, col
frmmoire.Circle (320 - z2, 240 + z4), sue, col
frmmoire.Circle (320 - z4, 240 - z2), sue, col
frmmoire.Circle (320 + z2, 240 - z4), sue, col
z4 = z4 - v
z2 = z2 + v + v
sue = sue - v
Next v
z2 = z2 - w
z4 = z4 + w + w

Next w

DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow


Next joe

Next achoo
For ball = -fart To fart Step fart
For que = art2 To -art2 Step -art
z4 = z4 - que - ball
z2 = z2 + que + que + ball
For gd = 0 To art + fart Step 2
z4 = z4 + gd
z2 = z2 - gd
sue = sue + gd
col1 = col1 + &H201
If col1 > &HFFFFFF Then col1 = col1 - &HFFFFFF
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow

frmmoire.Circle (320 + z2, 240 + z4), sue, col1
frmmoire.Circle (320 - z4, 240 + z2), sue, col1
frmmoire.Circle (320 - z2, 240 - z4), sue, col1
frmmoire.Circle (320 + z4, 240 - z2), sue, col1
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow

frmmoire.Circle (320 + z4, 240 + z2), sue, col1
frmmoire.Circle (320 - z2, 240 + z4), sue, col1
frmmoire.Circle (320 - z4, 240 - z2), sue, col1
frmmoire.Circle (320 + z2, 240 - z4), sue, col1
z4 = z4 - gd
z2 = z2 + gd
sue = sue - gd

Next gd
z4 = z4 + que - ball
z2 = z2 - que - que + ball
Next que
Next ball

For zappa = 0 To art2 + art2 Step art
sue = zappa
col = col + &H80223
If col > &HFFFFFF Then col = col - &HFFFFFF

For frank = zappa To zappa + zappa
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow
sue = sue + frank
'z4 = z4 - frank
z2 = z2 - frank

col = col + &H10213
If col > &HFFFFFF Then col = col - &HFFFFFF
frmmoire.Circle (320 + z2, 240 + z4), sue, col
frmmoire.Circle (320 - z4, 240 + z2), sue, col
frmmoire.Circle (320 - z2, 240 - z4), sue, col
frmmoire.Circle (320 + z4, 240 - z2), sue, col
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow

frmmoire.Circle (320 + z4, 240 + z2), sue, col
frmmoire.Circle (320 - z2, 240 + z4), sue, col
frmmoire.Circle (320 - z4, 240 - z2), sue, col
frmmoire.Circle (320 + z2, 240 - z4), sue, col
'z4 = z4 + frank
z2 = z2 + frank
sue = sue - frank
Next frank
Next zappa

For abbie = 600 To 900 Step 100
For yippie = 1 To abbie
ho = ho + 1
If ho > 800 Then ho = 0
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed + 100
For extreme = 1 To speed + 100

Next extreme
Next slow
If ho < 580 Then GoTo mann
frmmoire.Line (320 - yippie, 240)-(320, 240 + yippie), col
frmmoire.Line (320, 240 + yippie)-(320 + yippie, 240), col
frmmoire.Line (320 - yippie, 240)-(320, 240 - yippie), col
frmmoire.Line (320, 240 - yippie)-(320 + yippie, 240), col
GoTo hoff
mann:
ny = 401 - yippie
frmmoire.Line (320 + yippie, 240 + yippie)-(320, 240 + ny), col
frmmoire.Line (320 + yippie, 240 + yippie)-(320 + ny, 240), col
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow
frmmoire.Line (320 + yippie, 240 - yippie)-(320 + ny, 240), col
frmmoire.Line (320 + yippie, 240 - yippie)-(320, 240 - ny), col

frmmoire.Line (320 - yippie, 240 - yippie)-(320 - ny, 240), col
frmmoire.Line (320 - yippie, 240 - yippie)-(320, 240 - ny), col

frmmoire.Line (320 - yippie, 240 + yippie)-(320 - ny, 240), col
frmmoire.Line (320 - yippie, 240 + yippie)-(320, 240 + ny), col
hoff:
col = col + &H10208
If col > &HFFFFFF Then col = col - &HFFFFFF


Next yippie
For hh = 1 To 150

frmmoire.Circle (320, 240), hh, col2
Next hh

frmmoire.DrawWidth = 18
frmmoire.Line (310, 335)-(330, 335), col1
frmmoire.Line (270, 145)-(290, 145), col1
frmmoire.Line (350, 145)-(370, 145), col1
frmmoire.Line (230, 335)-(250, 335), col1
frmmoire.Line (390, 335)-(410, 335), col1
DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow



frmmoire.Line (320, 335)-(280, 145), col1
frmmoire.Line (320, 335)-(360, 145), col1
frmmoire.Line (280, 145)-(240, 335), col1
frmmoire.Line (360, 145)-(400, 335), col1
frmmoire.DrawWidth = 1


col1 = &HFFFFFF - col2


For zippy = 1 To 5
For trip = 400 To 150 Step -1
col = col + &H30201
If col > &HFFFFFF Then col = col - &HFFFFFF
col1 = col1 + &H30221
If col1 > &HFFFFFF Then col1 = col1 - &HFFFFFF
col2 = col2 + &H30281
If col2 > &HFFFFFF Then col2 = col2 - &HFFFFFF


DoEvents
speed = Val(txtspeed.Text)
For slow = 1 To speed
For extreme = 1 To speed

Next extreme
Next slow
frmmoire.Circle (320, 240), trip, col
frmmoire.Circle (320, 240), trip + 50, col1
frmmoire.Circle (320, 240), trip + 100, col2

Next trip
Next zippy
Next abbie
testing:


Next endless
Next forever
End Sub

Private Sub cmdQuit_Click()
Unload frmmoire
End
End Sub