VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form Form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Control Panel"
   ClientHeight    =   6270
   ClientLeft      =   2565
   ClientTop       =   2205
   ClientWidth     =   6735
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   6270
   ScaleWidth      =   6735
   Begin VB.Timer Timer1 
      Interval        =   100
      Left            =   120
      Top             =   120
   End
   Begin VB.OptionButton Option11 
      Caption         =   "Red"
      Height          =   255
      Left            =   3360
      TabIndex        =   6
      Top             =   4545
      Value           =   -1  'True
      Width           =   855
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Change Direction"
      Height          =   375
      Left            =   2520
      TabIndex        =   5
      ToolTipText     =   "Change tunnel's direction"
      Top             =   1080
      Width           =   1575
   End
   Begin VB.CheckBox Check7 
      Caption         =   "Lock Color Scrollbars"
      Height          =   255
      Left            =   960
      TabIndex        =   4
      Top             =   3960
      Value           =   1  'Checked
      Width           =   1935
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Set lower bound"
      Height          =   255
      Left            =   3360
      TabIndex        =   3
      ToolTipText     =   "Set lowest allowed value for selected color"
      Top             =   5160
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Set upper bound"
      Height          =   255
      Left            =   4920
      TabIndex        =   2
      ToolTipText     =   "Set highest allowed value for selected color"
      Top             =   5160
      Width           =   1455
   End
   Begin VB.OptionButton Option13 
      Caption         =   "Blue"
      Height          =   255
      Left            =   5520
      TabIndex        =   1
      Top             =   4545
      Width           =   855
   End
   Begin VB.OptionButton Option12 
      Caption         =   "Green"
      Height          =   255
      Left            =   4440
      TabIndex        =   0
      Top             =   4545
      Width           =   855
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   960
      TabIndex        =   38
      ToolTipText     =   "Overall size of tunnel"
      Top             =   600
      Width           =   615
   End
   Begin VB.Label Label4 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   1680
      TabIndex        =   37
      ToolTipText     =   "Radius of the colors"
      Top             =   600
      Width           =   615
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   2400
      TabIndex        =   36
      ToolTipText     =   "Width (thickness) of each circle line drawn"
      Top             =   600
      Width           =   615
   End
   Begin VB.Label Label6 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   5040
      TabIndex        =   35
      ToolTipText     =   "Direction of color cycling"
      Top             =   600
      Width           =   615
   End
   Begin VB.Label Label8 
      Alignment       =   2  'Center
      Caption         =   "Size"
      Height          =   210
      Left            =   960
      TabIndex        =   34
      Top             =   240
      Width           =   615
   End
   Begin VB.Label Label9 
      Alignment       =   2  'Center
      Caption         =   "Density"
      Height          =   255
      Left            =   1680
      TabIndex        =   33
      Top             =   240
      Width           =   615
   End
   Begin VB.Label Label10 
      Alignment       =   2  'Center
      Caption         =   "Width"
      Height          =   255
      Left            =   2400
      TabIndex        =   32
      Top             =   240
      Width           =   615
   End
   Begin VB.Label Label11 
      Alignment       =   2  'Center
      Caption         =   "Direction"
      Height          =   255
      Left            =   5040
      TabIndex        =   31
      Top             =   240
      Width           =   615
   End
   Begin MSForms.ScrollBar ScrollBar4 
      Height          =   225
      Left            =   360
      TabIndex        =   30
      ToolTipText     =   "Overall size of tunnel"
      Top             =   1800
      Width           =   5895
      Size            =   "10398;397"
      Max             =   1000
      Position        =   100
      LargeChange     =   10
   End
   Begin MSForms.ScrollBar ScrollBar5 
      Height          =   225
      Left            =   360
      TabIndex        =   29
      ToolTipText     =   "Radius of the colors"
      Top             =   2400
      Width           =   5895
      Size            =   "10398;397"
      Max             =   9900
      Position        =   100
      LargeChange     =   100
   End
   Begin MSForms.ScrollBar ScrollBar6 
      Height          =   225
      Left            =   360
      TabIndex        =   28
      ToolTipText     =   "Width (thickness) of each circle line drawn"
      Top             =   3000
      Width           =   5895
      Size            =   "10398;397"
      Min             =   1
      Max             =   1500
      Position        =   2
      LargeChange     =   10
   End
   Begin VB.Label Label46 
      Alignment       =   2  'Center
      Caption         =   "Size"
      Height          =   255
      Left            =   1320
      TabIndex        =   27
      Top             =   1560
      Width           =   3855
   End
   Begin VB.Label Label47 
      Alignment       =   2  'Center
      Caption         =   "Density"
      Height          =   255
      Left            =   1320
      TabIndex        =   26
      Top             =   2160
      Width           =   3855
   End
   Begin VB.Label Label48 
      Alignment       =   2  'Center
      Caption         =   "Width"
      Height          =   255
      Left            =   1320
      TabIndex        =   25
      Top             =   2760
      Width           =   3855
   End
   Begin VB.Label Label49 
      Alignment       =   2  'Center
      Caption         =   "Color Cycle Multiplier"
      Height          =   255
      Left            =   1320
      TabIndex        =   24
      Top             =   3360
      Width           =   3855
   End
   Begin MSForms.ScrollBar ScrollBar7 
      Height          =   225
      Left            =   360
      TabIndex        =   23
      ToolTipText     =   "Color cycler multiplication value"
      Top             =   3600
      Width           =   5895
      Size            =   "10398;397"
      Max             =   100
      Position        =   1
      LargeChange     =   2
   End
   Begin VB.Label Label50 
      Alignment       =   2  'Center
      Caption         =   "Cycle"
      Height          =   255
      Left            =   3120
      TabIndex        =   22
      Top             =   240
      Width           =   615
   End
   Begin VB.Label Label51 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   3120
      TabIndex        =   21
      ToolTipText     =   "Color cycler multiplication value"
      Top             =   600
      Width           =   615
   End
   Begin MSForms.ScrollBar ScrollBar8 
      Height          =   225
      Left            =   360
      TabIndex        =   20
      ToolTipText     =   "Speed of color cycler (red)"
      Top             =   4560
      Width           =   2895
      Size            =   "5106;397"
      Max             =   200
      Position        =   1
      LargeChange     =   2
   End
   Begin VB.Label Label52 
      Alignment       =   2  'Center
      Caption         =   "Color Cycle Speed (Red)"
      Height          =   255
      Left            =   360
      TabIndex        =   19
      Top             =   4320
      Width           =   2895
   End
   Begin VB.Label Label53 
      Alignment       =   2  'Center
      Caption         =   "Speed"
      Height          =   255
      Left            =   3840
      TabIndex        =   18
      Top             =   240
      Width           =   1095
   End
   Begin VB.Label Label54 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   3840
      TabIndex        =   17
      ToolTipText     =   "Speed of color cycler (shows red, green, and blue values)"
      Top             =   600
      Width           =   1095
   End
   Begin MSForms.ScrollBar ScrollBar9 
      Height          =   225
      Left            =   360
      TabIndex        =   16
      ToolTipText     =   "Speed of color cycler (green)"
      Top             =   5160
      Width           =   2895
      Size            =   "5106;397"
      Max             =   200
      Position        =   1
      LargeChange     =   2
   End
   Begin MSForms.ScrollBar ScrollBar10 
      Height          =   225
      Left            =   360
      TabIndex        =   15
      ToolTipText     =   "Speed of color cycler (blue)"
      Top             =   5760
      Width           =   2895
      Size            =   "5106;397"
      Max             =   200
      Position        =   1
      LargeChange     =   2
   End
   Begin VB.Label Label55 
      Alignment       =   2  'Center
      Caption         =   "Color Cycle Speed (Green)"
      Height          =   255
      Left            =   360
      TabIndex        =   14
      Top             =   4920
      Width           =   2895
   End
   Begin VB.Label Label56 
      Alignment       =   2  'Center
      Caption         =   "Color Cycle Speed (Blue)"
      Height          =   255
      Left            =   360
      TabIndex        =   13
      Top             =   5520
      Width           =   2895
   End
   Begin MSForms.ScrollBar ScrollBar11 
      Height          =   225
      Left            =   3360
      TabIndex        =   12
      ToolTipText     =   "Choose color value"
      Top             =   5760
      Width           =   3015
      Size            =   "5318;397"
      Max             =   255
      Position        =   127
      LargeChange     =   2
   End
   Begin VB.Label Label60 
      Alignment       =   2  'Center
      Caption         =   "Color Spectrum Limits"
      Height          =   255
      Left            =   3480
      TabIndex        =   11
      Top             =   4320
      Width           =   2775
   End
   Begin VB.Label Label64 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   4560
      TabIndex        =   10
      Top             =   5475
      Width           =   615
   End
   Begin VB.Label Label58 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   4440
      TabIndex        =   9
      ToolTipText     =   "Overall size of tunnel"
      Top             =   4800
      Width           =   855
   End
   Begin VB.Label Label59 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   5520
      TabIndex        =   8
      ToolTipText     =   "Overall size of tunnel"
      Top             =   4800
      Width           =   855
   End
   Begin VB.Label Label57 
      Alignment       =   2  'Center
      BorderStyle     =   1  'Fixed Single
      Height          =   255
      Left            =   3360
      TabIndex        =   7
      ToolTipText     =   "Overall size of tunnel"
      Top             =   4800
      Width           =   855
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'ColorTunnel 2.0
'©2005 FollowTheWatch Software
'http://vhypno.sourceforge.net
'http://sourceforge.net/projects/vhypno
'Contact - followthewatch55@yahoo.com

'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.

'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details.

'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

Option Explicit

Private Sub Command4_Click()
'Select which way circles go
    cbf = cbf + 1


    If cbf = 2 Then
        cbf = 0
    End If

End Sub

Private Sub Form_Load()
Me.Left = 10
Me.Top = 10
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1
Me.Hide
End Sub

Private Sub ScrollBar4_Change()
If ScrollBar4.Value = 0 Then ScrollBar4.Value = 1
Form1.ViewObject.Cls
CircleSize = ScrollBar4.Value
End Sub

Private Sub ScrollBar5_Change()
If ScrollBar5.Value = 0 Then ScrollBar5.Value = 1
Form1.ViewObject.Cls
CircleRadius = ScrollBar5.Value / 100
End Sub

Private Sub ScrollBar6_Change()
Form1.ViewObject.Cls
CircleWidth = ScrollBar6.Value
Form1.ViewObject.DrawWidth = CircleWidth
End Sub

Private Sub ScrollBar7_Change()
CircleCycle = ScrollBar7.Value
End Sub

Private Sub ScrollBar8_Change()
CircleSpeedR = ScrollBar8.Value
ColorReset = True
If Check7.Value = 1 Then
    ScrollBar9.Value = CircleSpeedR
    ScrollBar10.Value = CircleSpeedR
End If
End Sub

Private Sub ScrollBar9_Change()
CircleSpeedG = ScrollBar9.Value
ColorReset = True
If Check7.Value = 1 Then
    ScrollBar8.Value = CircleSpeedG
    ScrollBar10.Value = CircleSpeedG
End If
End Sub

Private Sub Command1_Click()
If Option11.Value = True Then RLower = ScrollBar11.Value
If Option12.Value = True Then GLower = ScrollBar11.Value
If Option13.Value = True Then BLower = ScrollBar11.Value
ColorReset = True
End Sub

Private Sub Command2_Click()
If Option11.Value = True Then RUpper = ScrollBar11.Value
If Option12.Value = True Then GUpper = ScrollBar11.Value
If Option13.Value = True Then BUpper = ScrollBar11.Value
ColorReset = True
End Sub

Private Sub Timer1_Timer()
Label2.Caption = CircleSize
Label4.Caption = CircleRadius
Label5.Caption = CircleWidth
Label6.Caption = cbf
Label51.Caption = CircleCycle
Label54.Caption = LTrim$(Str$(CircleSpeedR)) + ", " + LTrim$(Str$(CircleSpeedG)) + ", " + LTrim$(Str$(CircleSpeedB))
Label57.Caption = LTrim$(Str$(RLower)) + ", " + LTrim$(Str$(RUpper))
Label58.Caption = LTrim$(Str$(GLower)) + ", " + LTrim$(Str$(GUpper))
Label59.Caption = LTrim$(Str$(BLower)) + ", " + LTrim$(Str$(BUpper))
Label64.Caption = ScrollBar11.Value
End Sub
