home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 6
/
Freelog006.iso
/
Logs
/
Musique
/
Orangator
/
ORAN20.EXE
/
0
/
RCDATA
/
TORANGATOR
/
TORANGATOR.txt
< prev
Wrap
Text File
|
1998-02-08
|
84KB
|
3,354 lines
object Orangator: TOrangator
Left = -4
Top = -4
Width = 648
Height = 460
Caption = 'Orangator'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Menu = MainMenu
Position = poDefault
WindowState = wsMaximized
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object AboutLabel: TLabel
Left = 430
Top = 296
Width = 206
Height = 13
Caption = 'rangator v2.0 (c) 1997 Sharonov Oleg // trx'
end
object PlayButton: TButton
Left = 583
Top = 313
Width = 55
Height = 23
Caption = 'Play'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = PlayClick
end
object StopButton: TButton
Left = 583
Top = 338
Width = 55
Height = 23
Caption = 'Stop'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = StopClick
end
object ExitButton: TButton
Left = 583
Top = 363
Width = 55
Height = 23
Caption = 'Exit'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Exit1Click
end
object TabControl: TPageControl
Left = 1
Top = 0
Width = 638
Height = 296
ActivePage = OscillatorsSheet
TabOrder = 7
object MixerSheet: TTabSheet
Caption = 'Mixer'
object FrequencyGroupBox: TGroupBox
Left = 0
Top = -2
Width = 313
Height = 115
Caption = 'Parameters'
TabOrder = 0
object FrequencyLabel: TLabel
Left = 72
Top = 9
Width = 105
Height = 13
Caption = 'Frequency: 22050Hz'
end
object FrequencyScrollBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 9600
Min = 200
Position = 4410
TabOrder = 0
OnChange = FrequencyScrollBarChange
end
object Frequency22050Button: TButton
Left = 72
Top = 48
Width = 49
Height = 17
Caption = '22050'
TabOrder = 1
OnClick = Frequency22050ButtonClick
end
object Frequency44100Button: TButton
Left = 128
Top = 48
Width = 49
Height = 17
Caption = '44100'
TabOrder = 2
OnClick = Frequency44100ButtonClick
end
object Frequency11025Button: TButton
Left = 16
Top = 48
Width = 49
Height = 17
Caption = '11025'
TabOrder = 3
OnClick = Frequency11025ButtonClick
end
object Frequency48000Button: TButton
Left = 184
Top = 48
Width = 49
Height = 17
Caption = '48000'
TabOrder = 4
OnClick = Frequency48000ButtonClick
end
object LengthNumberEdit: TNumberEdit
Left = 8
Top = 72
Width = 297
Height = 36
TabOrder = 5
Mult = 1.000000000000000000
ScrollMax = 256
ScrollMin = 1
Min = 1
Value = 10.000000000000000000
Description = 'Length: 0.227s, 10K'
OnChange = LengthNumberEditChange
end
end
object SamplesInfoGroupBox: TGroupBox
Left = 320
Top = -2
Width = 305
Height = 121
Caption = 'Samples Info'
TabOrder = 1
object Sample1Name: TLabel
Left = 80
Top = 9
Width = 73
Height = 16
Caption = 'No sample'
end
object Sample2Name: TLabel
Left = 81
Top = 65
Width = 72
Height = 16
Caption = 'No sample'
end
object Sample1StartPosNumberEdit: TNumberEdit
Left = 8
Top = 24
Width = 289
Height = 36
TabOrder = 0
Mult = 1.000000000000000000
ScrollMax = 1024
ScrollMin = 0
Min = 0
Description = 'Sample #1 start'
OnChange = Sample1StartPosNumberEditChange
end
object Sample2StartPosNumberEdit: TNumberEdit
Left = 8
Top = 80
Width = 289
Height = 36
TabOrder = 1
Mult = 1.000000000000000000
ScrollMax = 1024
ScrollMin = 0
Min = 0
Description = 'Sample #2 start'
OnChange = Sample2StartPosNumberEditChange
end
end
end
object AmplifiersSheet: TTabSheet
Caption = 'Amplifiers'
object FeedBackGroupBox: TGroupBox
Left = 0
Top = 76
Width = 305
Height = 177
Caption = 'FeedBack'
TabOrder = 2
object FeedBackVolumeLabel: TLabel
Left = 112
Top = 9
Width = 57
Height = 16
Caption = 'Volume'
end
object FeedBackDelayLabel: TLabel
Left = 112
Top = 74
Width = 129
Height = 15
Caption = 'Delay: 79.8ms (3.520K)'
end
object AdditionalSilenceLabel: TLabel
Left = 112
Top = 106
Width = 161
Height = 15
Caption = 'Additional Silence : 0.0sec (0K)'
end
object FeedBackDecayLabel: TLabel
Left = 112
Top = 41
Width = 81
Height = 16
Caption = 'Decay'
end
object FeedBackCutOffLabel: TLabel
Left = 112
Top = 138
Width = 81
Height = 15
Caption = 'Cut off'
end
object FeedBackVolumeScrollBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 256
Position = 180
TabOrder = 0
OnChange = FeedBackVolumeScrollBarChange
end
object FeedBackDelayScrollBar: TScrollBar
Left = 8
Top = 88
Width = 289
Height = 16
LargeChange = 32
Max = 4096
Position = 220
TabOrder = 1
OnChange = FeedBackDelayScrollBarChange
end
object FeedBackActiveCheckBox: TCheckBox
Left = 248
Top = 0
Width = 50
Height = 17
Caption = 'Active'
TabOrder = 2
OnClick = FeedBackActiveCheckBoxClick
end
object AdditionalSilenceScrollBar: TScrollBar
Left = 8
Top = 120
Width = 289
Height = 16
Max = 256
TabOrder = 3
OnChange = AdditionalSilenceScrollBarChange
end
object FeedBackCyclicCheckBox: TCheckBox
Left = 61
Top = 0
Width = 46
Height = 16
Caption = 'Cyclic'
TabOrder = 4
OnClick = FeedBackCyclicCheckBoxClick
end
object FeedBackDecayScrollBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
Max = 256
Position = 180
TabOrder = 5
OnChange = FeedBackVolumeScrollBarChange
end
object FeedBackCutOffScrollBar: TScrollBar
Left = 7
Top = 152
Width = 289
Height = 16
Max = 256
Position = 192
TabOrder = 6
OnChange = ReverbCutOffScrollBarChange
end
end
object MainAmplifierBox: TGroupBox
Left = 0
Top = -2
Width = 305
Height = 77
Caption = 'Main'
TabOrder = 1
object MainVolumeLabel: TLabel
Left = 128
Top = 9
Width = 49
Height = 13
Caption = 'Volume'
end
object MainVolumeBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 256
Position = 256
TabOrder = 0
OnChange = MainVolumeBarChange
end
object VolumeModulationBox: TListBox
Left = 8
Top = 40
Width = 289
Height = 30
Columns = 9
ExtendedSelect = False
ItemHeight = 13
Items.Strings = (
'None'
'Env1'
'Env2'
'Env3'
'LFO1'
'LFO2'
'Noise'
'Graph'
'Seq'
'SEnv'
'Midi1'
'Midi2'
'MEnv1'
'MEnv2')
MultiSelect = True
TabOrder = 1
OnClick = VolumeModulationBoxClick
end
end
object AmplifierBox: TGroupBox
Left = 312
Top = 0
Width = 305
Height = 113
Caption = 'Amplifier'
TabOrder = 0
object PreOverdriveLabel: TLabel
Left = 112
Top = 9
Width = 105
Height = 16
Caption = 'PreOverdrive: 1.0'
end
object PostOverdriveLabel: TLabel
Left = 112
Top = 41
Width = 113
Height = 16
Caption = 'PostOverdrive: 1.0'
end
object WrapOverdriveLabel: TLabel
Left = 112
Top = 75
Width = 97
Height = 14
Caption = 'WrapOverdrive: 1.0'
end
object PreOverdriveScrollBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
LargeChange = 16
Max = 256
Min = 16
Position = 16
TabOrder = 0
OnChange = PreOverdriveScrollBarChange
end
object PostOverdriveScrollBar: TScrollBar
Left = 8
Top = 55
Width = 289
Height = 16
LargeChange = 16
Max = 256
Min = 16
Position = 16
TabOrder = 1
OnChange = PostOverdriveScrollBarChange
end
object WrapOverdriveScrollBar: TScrollBar
Left = 8
Top = 90
Width = 289
Height = 16
LargeChange = 32
Max = 256
Min = 32
Position = 32
TabOrder = 2
OnChange = WrapOverdriveScrollBarChange
end
object WrapOverdriveCheckBox: TCheckBox
Left = 248
Top = 72
Width = 49
Height = 16
Caption = 'Active'
TabOrder = 3
OnClick = WrapOverdriveCheckBoxClick
end
end
object ReverbGroupBox: TGroupBox
Left = 312
Top = 113
Width = 305
Height = 144
Caption = 'Reverb'
TabOrder = 3
object ReverbVolume: TLabel
Left = 64
Top = 9
Width = 73
Height = 15
Caption = 'Dry volume'
end
object ReverbLengthLabel: TLabel
Left = 112
Top = 41
Width = 57
Height = 13
Caption = 'Length: 200ms'
end
object ReverbAttackLabel: TLabel
Left = 112
Top = 73
Width = 113
Height = 13
Caption = 'Attack length: 15ms'
end
object ReverbCutOffLabel: TLabel
Left = 112
Top = 105
Width = 57
Height = 13
Caption = 'Cut off'
end
object ReverbWetVolumeLabel: TLabel
Left = 160
Top = 8
Width = 73
Height = 14
Caption = 'Wet volume'
end
object ReverbActiveCheckBox: TCheckBox
Left = 248
Top = 0
Width = 49
Height = 16
Caption = 'Active'
TabOrder = 0
OnClick = ReverbActiveCheckBoxClick
end
object ReverbDryVolumeScrollBar: TScrollBar
Left = 8
Top = 24
Width = 145
Height = 16
Max = 32767
Position = 32767
TabOrder = 1
OnChange = ReverbVolumeScrollBarChange
end
object ReverbLengthScrollBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
Max = 2000
Position = 200
TabOrder = 2
OnChange = ReverbLengthScrollBarChange
end
object ReverbAttackScrollBar: TScrollBar
Left = 8
Top = 88
Width = 289
Height = 16
Max = 600
Position = 15
TabOrder = 3
OnChange = ReverbAttackScrollBarChange
end
object ReverbCutOffScrollBar: TScrollBar
Left = 7
Top = 120
Width = 289
Height = 16
Max = 256
Position = 192
TabOrder = 4
OnChange = ReverbCutOffScrollBarChange
end
object ReverbWetVolumeScrollBar: TScrollBar
Left = 160
Top = 24
Width = 137
Height = 16
Max = 32767
Position = 15000
TabOrder = 5
OnChange = ReverbVolumeScrollBarChange
end
end
end
object OscillatorsSheet: TTabSheet
Caption = 'Oscillators'
object SignalGeneratorBox: TGroupBox
Left = 124
Top = -2
Width = 506
Height = 270
Caption = 'Oscillator'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object SineGeneratorVolumeLabel: TLabel
Left = 96
Top = 7
Width = 64
Height = 13
Caption = 'Volume: 50'
end
object ShapeLabel: TLabel
Left = 96
Top = 157
Width = 77
Height = 13
Caption = 'Shape: 1.000'
end
object SineGeneratorFrequencyLabel: TLabel
Left = 96
Top = 67
Width = 104
Height = 13
Caption = 'Frequency: 440Hz'
end
object SineGeneratorRelativeFrequencyLabel: TLabel
Left = 96
Top = 127
Width = 148
Height = 13
Caption = 'Relative frequency: 100.0'
end
object SineGeneratorPhaseLabel: TLabel
Left = 96
Top = 218
Width = 56
Height = 13
Caption = 'Phase: 0�'
end
object SineGeneratorVolumeBar: TScrollBar
Left = 6
Top = 21
Width = 332
Height = 16
LargeChange = 16
Max = 256
Position = 128
TabOrder = 0
OnChange = SineGeneratorVolumeBarChange
end
object SineGeneratorShapeBar: TScrollBar
Left = 6
Top = 171
Width = 332
Height = 16
LargeChange = 32
Max = 2048
Position = 1024
TabOrder = 5
OnChange = SineGeneratorShapeBarChange
end
object SineGeneratorShapeModulationBox: TListBox
Left = 5
Top = 188
Width = 334
Height = 30
Columns = 9
ExtendedSelect = False
ItemHeight = 13
Items.Strings = (
'None'
'Env1'
'Env2'
'Env3'
'LFO1'
'LFO2'
'Noise'
'Graph'
'Seq'
'SEnv'
'Midi1'
'Midi2'
'MEnv1'
'MEnv2')
MultiSelect = True
TabOrder = 6
OnClick = SineGeneratorShapeModulationBoxClick
end
object OscillatorFrequencyBar: TScrollBar
Left = 6
Top = 81
Width = 332
Height = 16
LargeChange = 10
Max = 11025
Position = 440
TabOrder = 2
OnChange = OscillatorFrequencyBarChange
end
object SineGeneratorFrequencyModulationBox: TListBox
Left = 5
Top = 98
Width = 334
Height = 30
Columns = 9
DragCursor = 2
ExtendedSelect = False
ItemHeight = 13
Items.Strings = (
'None'
'Env1'
'Env2'
'Env3'
'LFO1'
'LFO2'
'Noise'
'Graph'
'Seq'
'SEnv'
'Midi1'
'Midi2'
'MEnv1'
'MEnv2')
MultiSelect = True
TabOrder = 3
OnClick = SineGeneratorFrequencyModulationBoxClick
end
object SineGeneratorRelativeFrequencyBar: TScrollBar
Left = 6
Top = 140
Width = 332
Height = 16
LargeChange = 10
Max = 4000
Position = 1000
TabOrder = 4
OnChange = SineGeneratorRelativeFrequencyBarChange
end
object SineGeneratorPhaseScrollBar: TScrollBar
Left = 6
Top = 231
Width = 153
Height = 16
Max = 256
TabOrder = 7
OnChange = SineGeneratorPhaseScrollBarChange
end
object SineGeneratorVolumeModulationBox: TListBox
Left = 5
Top = 38
Width = 334
Height = 30
Columns = 9
ExtendedSelect = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'None'
'Env1'
'Env2'
'Env3'
'LFO1'
'LFO2'
'Noise'
'Graph'
'Seq'
'SEnv'
'Midi1'
'Midi2'
'MEnv1'
'MEnv2')
MultiSelect = True
ParentFont = False
Style = lbOwnerDrawVariable
TabOrder = 1
OnClick = SineGeneratorFrequencyModulationBoxClick
end
object OscillatorFilteredCheckBox: TCheckBox
Left = 275
Top = 236
Width = 51
Height = 14
Caption = 'Filter'
State = cbChecked
TabOrder = 8
OnClick = OscillatorWaveTypeRadioButtonClick
end
object HarmonicsGroupBox: TGroupBox
Left = 344
Top = 7
Width = 159
Height = 261
Caption = 'Harmonics'
TabOrder = 10
object HarmonicsActiveCheckBox: TCheckBox
Left = 88
Top = -1
Width = 57
Height = 17
Caption = 'Active'
TabOrder = 0
OnClick = HarmonicBarChange
end
object HarmonicsClearButton: TButton
Left = 3
Top = 147
Width = 51
Height = 17
Caption = 'Clear'
TabOrder = 1
OnClick = HarmonicsClearButtonClick
end
object HarmonicsRandomButton: TButton
Left = 3
Top = 181
Width = 51
Height = 17
Caption = 'Random'
TabOrder = 2
OnClick = HarmonicsRandomButtonClick
end
object HarmonicsExpButton: TButton
Left = 55
Top = 147
Width = 50
Height = 17
Caption = 'Exp'
TabOrder = 3
OnClick = HarmonicsExpButtonClick
end
object HarmonicsAllButton: TButton
Left = 3
Top = 164
Width = 51
Height = 17
Caption = 'Max'
TabOrder = 4
OnClick = HarmonicsAllButtonClick
end
object Harmonics1101Button: TButton
Left = 106
Top = 147
Width = 51
Height = 17
Caption = '11010'
TabOrder = 5
OnClick = Harmonics1101ButtonClick
end
object Harmonics1010Button: TButton
Left = 106
Top = 164
Width = 51
Height = 17
Caption = '10101'
TabOrder = 6
OnClick = Harmonics1010ButtonClick
end
object HarmonicsMultButton: TButton
Left = 106
Top = 181
Width = 51
Height = 17
Caption = 'Mult'
TabOrder = 7
OnClick = HarmonicsMultButtonClick
end
object HarmonicsDecButton: TButton
Left = 55
Top = 164
Width = 50
Height = 17
Caption = 'Decay'
TabOrder = 8
OnClick = HarmonicsDecButtonClick
end
object HarmonicBars: THarmonicBars
Left = 6
Top = 14
Width = 146
Height = 133
TabOrder = 9
OnChange = HarmonicBarsChange
end
object DetuneHarmonicBars: THarmonicBars
Left = 6
Top = 198
Width = 146
Height = 61
TabOrder = 10
OnChange = HarmonicBarsChange
end
end
object OscillatorMelodicCheckBox: TCheckBox
Left = 275
Top = 220
Width = 65
Height = 14
Caption = 'Melodic'
State = cbChecked
TabOrder = 9
OnClick = OscillatorMelodicCheckBoxClick
end
object WaveFormComboBox: TComboBox
Left = 164
Top = 227
Width = 101
Height = 22
Style = csOwnerDrawFixed
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 16
Items.Strings = (
'Sine'
'|Sine|'
'EvenSine'
'Square'
'Triangle'
'Saw'
'2xSaw'
'Noise'
'Light noise'
'Custom'
'Sample 1'
'Sample 2')
ParentFont = False
TabOrder = 11
OnChange = WaveFormComboBoxChange
end
object OscillatorInvertCheckBox: TCheckBox
Left = 275
Top = 251
Width = 60
Height = 14
Caption = 'Invert'
TabOrder = 12
OnClick = OscillatorWaveTypeRadioButtonClick
end
object OscillatorRingModCheckBox: TCheckBox
Left = 59
Top = 252
Width = 72
Height = 14
Caption = 'RingMod'
TabOrder = 13
OnClick = OscillatorRingModCheckBoxClick
end
object OscillatorSyncCheckBox: TCheckBox
Left = 5
Top = 252
Width = 51
Height = 13
Caption = 'Sync'
TabOrder = 14
OnClick = OscillatorRingModCheckBoxClick
end
object OscillatorPhaseModCheckBox: TCheckBox
Left = 139
Top = 252
Width = 86
Height = 14
Caption = 'PhaseMod'
TabOrder = 15
OnClick = OscillatorRingModCheckBoxClick
end
object OscillatorFMCheckBox: TCheckBox
Left = 227
Top = 252
Width = 46
Height = 14
Caption = 'FM'
TabOrder = 16
OnClick = OscillatorRingModCheckBoxClick
end
end
object OscillatorsBox: TGroupBox
Left = 0
Top = -2
Width = 117
Height = 235
Caption = 'Oscillators'
TabOrder = 1
object OscillatorsVolumeLabel: TLabel
Left = 24
Top = 179
Width = 81
Height = 14
Caption = 'Volume: 100.0'
end
object Oscillator1CheckBox: TLightCheckBox
Left = 52
Top = 14
Width = 49
Height = 17
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object Oscillator1RadioButton: TRadioButton
Left = 8
Top = 14
Width = 33
Height = 17
Caption = '#&1'
Checked = True
TabOrder = 0
TabStop = True
OnClick = Oscillator1RadioButtonClick
end
object Oscillator2RadioButton: TRadioButton
Left = 8
Top = 30
Width = 33
Height = 17
Caption = '#&2'
TabOrder = 1
OnClick = Oscillator2RadioButtonClick
end
object Oscillator3RadioButton: TRadioButton
Left = 8
Top = 46
Width = 33
Height = 17
Caption = '#&3'
TabOrder = 2
OnClick = Oscillator3RadioButtonClick
end
object Oscillator2CheckBox: TLightCheckBox
Left = 52
Top = 30
Width = 49
Height = 17
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object Oscillator3CheckBox: TLightCheckBox
Left = 52
Top = 46
Width = 49
Height = 17
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object Oscillator4RadioButton: TRadioButton
Left = 8
Top = 62
Width = 33
Height = 17
Caption = '#&4'
TabOrder = 3
OnClick = Oscillator4RadioButtonClick
end
object Oscillator4CheckBox: TLightCheckBox
Left = 52
Top = 62
Width = 49
Height = 17
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object Oscillator5RadioButton: TRadioButton
Left = 8
Top = 78
Width = 33
Height = 17
Caption = '#&5'
TabOrder = 4
OnClick = Oscillator5RadioButtonClick
end
object Oscillator6RadioButton: TRadioButton
Left = 8
Top = 94
Width = 33
Height = 17
Caption = '#&6'
TabOrder = 5
OnClick = Oscillator6RadioButtonClick
end
object Oscillator7RadioButton: TRadioButton
Left = 8
Top = 110
Width = 33
Height = 17
Caption = '#&7'
TabOrder = 6
OnClick = Oscillator7RadioButtonClick
end
object Oscillator8RadioButton: TRadioButton
Left = 8
Top = 126
Width = 33
Height = 17
Caption = '#&8'
TabOrder = 7
OnClick = Oscillator8RadioButtonClick
end
object Oscillator9RadioButton: TRadioButton
Left = 8
Top = 142
Width = 33
Height = 17
Caption = '#&9'
TabOrder = 8
OnClick = Oscillator9RadioButtonClick
end
object Oscillator10RadioButton: TRadioButton
Left = 8
Top = 158
Width = 39
Height = 17
Caption = '#1&0'
TabOrder = 9
OnClick = Oscillator10RadioButtonClick
end
object Oscillator5CheckBox: TLightCheckBox
Left = 52
Top = 78
Width = 49
Height = 17
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object Oscillator6CheckBox: TLightCheckBox
Left = 52
Top = 94
Width = 49
Height = 17
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object Oscillator7CheckBox: TLightCheckBox
Left = 52
Top = 110
Width = 49
Height = 17
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object Oscillator8CheckBox: TLightCheckBox
Left = 52
Top = 126
Width = 49
Height = 17
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object Oscillator9CheckBox: TLightCheckBox
Left = 52
Top = 142
Width = 49
Height = 17
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object Oscillator10CheckBox: TLightCheckBox
Left = 52
Top = 158
Width = 49
Height = 15
Checked = False
OffColor = clMaroon
OnClick = OscillatorActiveChange
Caption = 'Active'
end
object OscillatorsVolumeScrollBar: TScrollBar
Left = 5
Top = 194
Width = 107
Height = 16
LargeChange = 32
Max = 256
Position = 256
TabOrder = 19
OnChange = OscillatorsVolumeScrollBarChange
end
object OscillatorsCalmCheckBox: TCheckBox
Left = 6
Top = 214
Width = 49
Height = 17
Caption = 'Calm'
TabOrder = 21
OnClick = OscillatorsCalmCheckBoxClick
end
end
end
object WaveFormSheet: TTabSheet
Caption = 'Waveform'
object WaveFormGraphBox: TEnvelopeGraphBox
Left = 0
Top = 0
Width = 629
Height = 261
TabOrder = 0
OnChange = WaveFormGraphBoxChange
end
end
object EnvelopesSheet: TTabSheet
Caption = 'Envelope'
object Envelope1Box1: TGroupBox
Left = 0
Top = -2
Width = 201
Height = 241
Caption = 'Envelope 1'
TabOrder = 0
object Env1AttackLabel: TLabel
Left = 80
Top = 10
Width = 73
Height = 16
Caption = 'Attack: 0.0%'
end
object Env1ReleaseLabel: TLabel
Left = 80
Top = 74
Width = 81
Height = 16
Caption = 'Release: 70.3%'
end
object Env1AmplitudeLabel: TLabel
Left = 80
Top = 106
Width = 97
Height = 16
Caption = 'Amplitude: 100.0'
end
object Env1BaseLabel: TLabel
Left = 80
Top = 138
Width = 49
Height = 11
Caption = 'Base: 0.0'
end
object Env1SustainLabel: TLabel
Left = 80
Top = 42
Width = 81
Height = 16
Caption = 'Sustain: 0.0%'
end
object Env1ShapeLabel: TLabel
Left = 80
Top = 170
Width = 65
Height = 16
Caption = 'Shape: 1.000'
end
object Env1IterationsLabel: TLabel
Left = 80
Top = 202
Width = 65
Height = 16
Caption = 'Iterations: 1'
DragCursor = 2
end
object Env1AttackBar: TScrollBar
Left = 8
Top = 24
Width = 185
Height = 16
Max = 1024
TabOrder = 0
OnChange = Env1AttackBarChange
end
object Env1ReleaseBar: TScrollBar
Left = 8
Top = 88
Width = 185
Height = 16
Max = 1024
Position = 720
TabOrder = 2
OnChange = Env1ReleaseBarChange
end
object Env1AmplitudeBar: TScrollBar
Left = 8
Top = 120
Width = 185
Height = 16
Max = 1024
Position = 1024
TabOrder = 3
OnChange = Env1AmplitudeBarChange
end
object Env1BaseBar: TScrollBar
Left = 8
Top = 152
Width = 185
Height = 16
Max = 1024
Min = -1024
TabOrder = 4
OnChange = Env1BaseBarChange
end
object Env1SustainBar: TScrollBar
Left = 8
Top = 56
Width = 185
Height = 16
Max = 1024
TabOrder = 1
OnChange = Env1SustainBarChange
end
object Env1ShapeBar: TScrollBar
Left = 8
Top = 184
Width = 185
Height = 16
Max = 512
Position = 256
TabOrder = 5
OnChange = Env1ShapeBarChange
end
object Env1IterationsBar: TScrollBar
Left = 8
Top = 216
Width = 185
Height = 16
Max = 32
Min = 1
Position = 1
TabOrder = 6
OnChange = Env1IterationsBarChange
end
end
object Envelope2Box: TGroupBox
Left = 208
Top = -2
Width = 201
Height = 241
Caption = 'Envelope 2'
TabOrder = 1
object Env2AttackLabel: TLabel
Left = 72
Top = 10
Width = 73
Height = 16
Caption = 'Attack: 0.0%'
end
object Env2ReleaseLabel: TLabel
Left = 72
Top = 74
Width = 81
Height = 16
Caption = 'Release: 70.3%'
end
object Env2AmplitudeLabel: TLabel
Left = 72
Top = 106
Width = 81
Height = 16
Caption = 'Amplitude: 100.0'
end
object Env2BaseLabel: TLabel
Left = 72
Top = 138
Width = 57
Height = 16
Caption = 'Base: 0.0'
end
object Env2SustainLabel: TLabel
Left = 72
Top = 42
Width = 73
Height = 16
Caption = 'Sustain: 0.0%'
end
object Env2ShapeLabel: TLabel
Left = 72
Top = 170
Width = 89
Height = 16
Caption = 'Shape: 1.000'
end
object Env2IterationsLabel: TLabel
Left = 72
Top = 202
Width = 65
Height = 16
Caption = 'Iterations: 1'
end
object Env2AttackBar: TScrollBar
Left = 8
Top = 24
Width = 185
Height = 16
Max = 1024
TabOrder = 0
OnChange = Env2AttackBarChange
end
object Env2ReleaseBar: TScrollBar
Left = 8
Top = 88
Width = 185
Height = 16
Max = 1024
Position = 720
TabOrder = 2
OnChange = Env2ReleaseBarChange
end
object Env2AmplitudeBar: TScrollBar
Left = 8
Top = 120
Width = 185
Height = 16
Max = 1024
Position = 1024
TabOrder = 3
OnChange = Env2AmplitudeBarChange
end
object Env2BaseBar: TScrollBar
Left = 8
Top = 152
Width = 185
Height = 16
Max = 1024
Min = -1024
TabOrder = 4
OnChange = Env2BaseBarChange
end
object Env2SustainBar: TScrollBar
Left = 8
Top = 56
Width = 185
Height = 16
Max = 1024
TabOrder = 1
OnChange = Env2SustainBarChange
end
object Env2ShapeBar: TScrollBar
Left = 8
Top = 184
Width = 185
Height = 16
Max = 512
Position = 256
TabOrder = 5
OnChange = Env2ShapeBarChange
end
object Env2IterationsBar: TScrollBar
Left = 8
Top = 216
Width = 185
Height = 16
Max = 32
Min = 1
Position = 1
TabOrder = 6
OnChange = Env2IterationsBarChange
end
end
object Envelope3Box: TGroupBox
Left = 416
Top = -2
Width = 201
Height = 241
Caption = 'Envelope 3'
TabOrder = 2
object Env3AttackLabel: TLabel
Left = 72
Top = 10
Width = 73
Height = 16
Caption = 'Attack: 0.0%'
end
object Env3ReleaseLabel: TLabel
Left = 72
Top = 74
Width = 81
Height = 16
Caption = 'Release: 70.3%'
end
object Env3AmplitudeLabel: TLabel
Left = 72
Top = 106
Width = 81
Height = 16
Caption = 'Amplitude: 100.0'
end
object Env3BaseLabel: TLabel
Left = 72
Top = 138
Width = 81
Height = 16
Caption = 'Base: 0.0'
end
object Env3SustainLabel: TLabel
Left = 72
Top = 42
Width = 73
Height = 16
Caption = 'Sustain: 0.0%'
end
object Env3ShapeLabel: TLabel
Left = 72
Top = 170
Width = 81
Height = 16
Caption = 'Shape: 1.000'
end
object Env3IterationsLabel: TLabel
Left = 72
Top = 202
Width = 73
Height = 16
Caption = 'Iterations: 1'
end
object Env3AttackBar: TScrollBar
Left = 8
Top = 24
Width = 185
Height = 16
Max = 1024
TabOrder = 0
OnChange = Env3AttackBarChange
end
object Env3ReleaseBar: TScrollBar
Left = 8
Top = 88
Width = 185
Height = 16
Max = 1024
Position = 720
TabOrder = 2
OnChange = Env3ReleaseBarChange
end
object Env3AmplitudeBar: TScrollBar
Left = 8
Top = 120
Width = 185
Height = 16
Max = 1024
Position = 1024
TabOrder = 3
OnChange = Env3AmplitudeBarChange
end
object Env3BaseBar: TScrollBar
Left = 8
Top = 152
Width = 185
Height = 16
Max = 1024
Min = -1024
TabOrder = 4
OnChange = Env3BaseBarChange
end
object Env3SustainBar: TScrollBar
Left = 8
Top = 56
Width = 185
Height = 16
Max = 1024
TabOrder = 1
OnChange = Env3SustainBarChange
end
object Env3ShapeBar: TScrollBar
Left = 8
Top = 184
Width = 185
Height = 16
Max = 512
Position = 256
TabOrder = 5
OnChange = Env3ShapeBarChange
end
object Env3IterationsBar: TScrollBar
Left = 8
Top = 216
Width = 185
Height = 16
Max = 32
Min = 1
Position = 1
TabOrder = 6
OnChange = Env3IterationsBarChange
end
end
end
object GraphEnvelopeSheet: TTabSheet
Caption = 'GraphEnv'
object EnvelopeGraphBox: TEnvelopeGraphBox
Left = 0
Top = 0
Width = 629
Height = 261
TabOrder = 0
OnChange = EnvelopeGraphBoxChange
end
end
object LFOSheet: TTabSheet
Caption = 'LFO'
object LFO1Box: TGroupBox
Left = 0
Top = -2
Width = 305
Height = 145
Caption = 'LFO 1'
TabOrder = 0
object LFO1FrequencyLabel: TLabel
Left = 72
Top = 10
Width = 89
Height = 16
Caption = 'Frequency: 2.0Hz'
end
object LFO1AmplitudeLabel: TLabel
Left = 72
Top = 42
Width = 81
Height = 16
Caption = 'Amplitude: 6.25'
end
object LFO1BaseLabel: TLabel
Left = 72
Top = 74
Width = 73
Height = 16
Caption = 'Base: 0.0'
end
object LFO1PhaseLabel: TLabel
Left = 136
Top = 106
Width = 57
Height = 16
Caption = 'Phase: 0�'
end
object LFO1FrequencyBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 1600
Position = 32
TabOrder = 0
OnChange = LFO1FrequencyBarChange
end
object LFO1AmplitudeBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
Max = 8192
Position = 256
TabOrder = 1
OnChange = LFO1AmplitudeBarChange
end
object LFO1BaseBar: TScrollBar
Left = 8
Top = 88
Width = 289
Height = 16
Max = 256
Min = -256
TabOrder = 2
OnChange = LFO1BaseBarChange
end
object LFO1SineRadioButton: TRadioButton
Left = 8
Top = 105
Width = 41
Height = 17
Caption = 'Sine'
Checked = True
TabOrder = 3
TabStop = True
OnClick = LFOFormRadioButtonClick
end
object LFO1RandomRadioButton: TRadioButton
Left = 56
Top = 105
Width = 65
Height = 17
Caption = 'Random'
TabOrder = 4
OnClick = LFOFormRadioButtonClick
end
object LFO1PhaseScrollBar: TScrollBar
Left = 136
Top = 120
Width = 161
Height = 16
Max = 256
TabOrder = 5
OnChange = LFO1PhaseScrollBarChange
end
object LFO1TriangleRadioButton: TRadioButton
Left = 8
Top = 120
Width = 65
Height = 17
Caption = 'Triangle'
TabOrder = 6
OnClick = LFOFormRadioButtonClick
end
end
object NoiseGroupBox: TGroupBox
Left = 312
Top = 142
Width = 305
Height = 112
Caption = 'Noise 1'
TabOrder = 2
object NoiseFrequencyLabel: TLabel
Left = 72
Top = 10
Width = 97
Height = 16
Caption = 'Frequency: 2.0Hz'
end
object NoiseAmplitudeLabel: TLabel
Left = 72
Top = 42
Width = 105
Height = 16
Caption = 'Amplitude: 6.25'
end
object NoiseBaseLabel: TLabel
Left = 72
Top = 74
Width = 97
Height = 16
Caption = 'Base: 0.0'
end
object NoiseFrequencyScrollBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 8820
Position = 32
TabOrder = 0
OnChange = NoiseFrequencyScrollBarChange
end
object NoiseAmplitudeScrollBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
Max = 4096
Position = 256
TabOrder = 1
OnChange = NoiseAmplitudeScrollBarChange
end
object NoiseBaseScrollBar: TScrollBar
Left = 8
Top = 88
Width = 289
Height = 16
Max = 256
Min = -256
TabOrder = 2
OnChange = NoiseBaseScrollBarChange
end
end
object LFO2Box: TGroupBox
Left = 312
Top = -2
Width = 305
Height = 145
Caption = 'LFO 2'
TabOrder = 1
object LFO2FrequencyLabel: TLabel
Left = 72
Top = 10
Width = 89
Height = 16
Caption = 'Frequency: 2.0Hz'
end
object LFO2AmplitudeLabel: TLabel
Left = 72
Top = 42
Width = 89
Height = 16
Caption = 'Amplitude: 6.25'
end
object LFO2BaseLabel: TLabel
Left = 72
Top = 74
Width = 49
Height = 16
Caption = 'Base: 0.0'
end
object LFO2PhaseLabel: TLabel
Left = 136
Top = 106
Width = 57
Height = 16
Caption = 'Phase: 0�'
end
object LFO2FrequencyBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 1600
Position = 32
TabOrder = 0
OnChange = LFO2FrequencyBarChange
end
object LFO2AmplitudeBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
Max = 8192
Position = 256
TabOrder = 1
OnChange = LFO2AmplitudeBarChange
end
object LFO2BaseBar: TScrollBar
Left = 8
Top = 88
Width = 289
Height = 16
Max = 256
Min = -256
TabOrder = 2
OnChange = LFO2BaseBarChange
end
object LFO2SineRadioButton: TRadioButton
Left = 8
Top = 105
Width = 41
Height = 17
Caption = 'Sine'
Checked = True
TabOrder = 3
TabStop = True
OnClick = LFOFormRadioButtonClick
end
object LFO2RandomRadioButton: TRadioButton
Left = 56
Top = 105
Width = 65
Height = 17
Caption = 'Random'
TabOrder = 4
OnClick = LFOFormRadioButtonClick
end
object LFO2PhaseScrollBar: TScrollBar
Left = 136
Top = 120
Width = 161
Height = 16
Max = 256
TabOrder = 5
OnChange = LFO2PhaseScrollBarChange
end
object LFO2TriangleRadioButton: TRadioButton
Left = 8
Top = 120
Width = 65
Height = 17
Caption = 'Triangle'
TabOrder = 6
OnClick = LFOFormRadioButtonClick
end
end
end
object FiltersSheet: TTabSheet
Caption = 'Filters'
object FilterBox1: TGroupBox
Left = 312
Top = 0
Width = 305
Height = 112
Caption = 'Average Filter'
TabOrder = 0
object FilterWindowSize: TLabel
Left = 112
Top = 10
Width = 97
Height = 16
Caption = 'Window size'
end
object TrebleVolumeLabel: TLabel
Left = 112
Top = 42
Width = 89
Height = 16
Caption = 'TrebleVolume'
end
object BassVolumeLabel1: TLabel
Left = 112
Top = 74
Width = 97
Height = 16
Caption = 'BassVolume'
end
object AverageFilterWindowWidthBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Min = 1
Position = 1
TabOrder = 0
OnChange = ParametersChanged
end
object AverageFilterTrebleVolumeBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
Max = 256
Position = 256
TabOrder = 1
OnChange = AverageFilterTrebleVolumeBarChange
end
object AverageFilterBassVolumeBar: TScrollBar
Left = 8
Top = 88
Width = 289
Height = 16
Max = 256
Position = 256
TabOrder = 2
OnChange = AverageFilterBassVolumeBarChange
end
object AverageFilterCheckBox: TCheckBox
Left = 248
Top = 0
Width = 49
Height = 17
Caption = 'Active'
TabOrder = 3
OnClick = AverageFilterCheckBoxClick
end
end
object FilterWindowBox: TGroupBox
Left = 312
Top = 112
Width = 305
Height = 80
Caption = 'Avg ResonanceFilter'
TabOrder = 1
object FilterWindowPosLabel1: TLabel
Left = 112
Top = 10
Width = 105
Height = 16
Caption = 'Window position'
end
object FilterWindowWidthLabel1: TLabel
Left = 112
Top = 42
Width = 97
Height = 16
Caption = 'Window width'
end
object FW_WindowPosBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 256
TabOrder = 1
OnChange = FW_WindowPosBarChange
end
object FW_WindowWidthBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
Max = 256
Min = 1
Position = 1
TabOrder = 2
OnChange = FW_WindowWidthBarChange
end
object WindowFilterActiveBox: TCheckBox
Left = 248
Top = 0
Width = 49
Height = 17
Caption = 'Active'
TabOrder = 0
OnClick = WindowFilterActiveBoxClick
end
end
object ResonanceBox1: TGroupBox
Left = 0
Top = 0
Width = 305
Height = 176
Caption = 'Resonance'
TabOrder = 2
object ResonanceVolumeLabel: TLabel
Left = 112
Top = 9
Width = 81
Height = 16
Caption = 'Volume: 100.0'
end
object ResonanceFrequencyLabel: TLabel
Left = 112
Top = 42
Width = 89
Height = 15
Caption = 'Frequency: 0Hz'
end
object ResonanceCalmingSpeedLabel: TLabel
Left = 112
Top = 105
Width = 113
Height = 16
Caption = 'Calming speed: 0.063'
end
object ResonanceCalmingDependenceLabel: TLabel
Left = 112
Top = 137
Width = 153
Height = 16
Caption = 'Calming dependence: 25.0%'
end
object ResonanceActiveBox: TCheckBox
Left = 248
Top = 0
Width = 49
Height = 17
Caption = 'Active'
TabOrder = 0
OnClick = ResonanceActiveBoxClick
end
object ResonanceVolumeBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
LargeChange = 16
Max = 512
Position = 256
TabOrder = 1
OnChange = ResonanceVolumeBarChange
OnKeyDown = ResonanceVolumeBarKeyDown
end
object ResonanceFrequencyModulationBox: TListBox
Left = 8
Top = 72
Width = 289
Height = 30
Columns = 9
ExtendedSelect = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'None'
'Env1'
'Env2'
'Env3'
'LFO1'
'LFO2'
'Noise'
'Graph'
'Seq'
'SEnv'
'Midi1'
'Midi2'
'MEnv1'
'MEnv2')
MultiSelect = True
ParentFont = False
TabOrder = 3
OnClick = ResonanceFrequencyModulationBoxClick
end
object ResonanceFrequencyBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
LargeChange = 4
Max = 8000
TabOrder = 2
OnChange = ResonanceFrequencyBarChange
end
object ResonanceCalmingSpeedBar: TScrollBar
Left = 8
Top = 120
Width = 289
Height = 16
Max = 1024
Position = 960
TabOrder = 4
OnChange = ResonanceCalmingSpeedBarChange
end
object ResonanceDependenceScrollBar: TScrollBar
Left = 8
Top = 152
Width = 289
Height = 16
Max = 512
Position = 128
TabOrder = 5
OnChange = ResonanceDependenceScrollBarChange
end
end
object CutOffGroupBox: TGroupBox
Left = 0
Top = 176
Width = 305
Height = 81
Caption = ' Cut Off '
TabOrder = 3
object CutOffLabel: TLabel
Left = 112
Top = 9
Width = 81
Height = 16
Caption = 'Frequency'
end
object CutOffBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 255
Position = 128
TabOrder = 1
OnChange = CutOffBarChange
end
object CutOffModulationBox: TListBox
Left = 8
Top = 40
Width = 289
Height = 30
Columns = 9
ExtendedSelect = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'None'
'Env1'
'Env2'
'Env3'
'LFO1'
'LFO2'
'Noise'
'Graph'
'Seq'
'SEnv'
'Midi1'
'Midi2'
'MEnv1'
'MEnv2')
MultiSelect = True
ParentFont = False
Style = lbOwnerDrawFixed
TabOrder = 2
OnClick = CutOffModulationBoxClick
end
object CutOffActiveBox: TCheckBox
Left = 248
Top = 0
Width = 49
Height = 17
Caption = 'Active'
TabOrder = 0
OnClick = CutOffActiveBoxClick
end
object CutOffHighRadioButton: TRadioButton
Left = 167
Top = 0
Width = 41
Height = 17
Caption = 'High-p'
TabOrder = 3
OnClick = CutOffRadioButtonClick
end
object CutOffLowRadioButton: TRadioButton
Left = 208
Top = 0
Width = 41
Height = 17
Caption = 'Low'
Checked = True
TabOrder = 4
TabStop = True
OnClick = CutOffRadioButtonClick
end
end
end
object SequencerSheet: TTabSheet
Caption = 'Sequencer'
object SequencerGroupBox: TPanel
Left = 0
Top = 0
Width = 265
Height = 257
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 0
end
object SequencerEnvelopeGroupBox: TPanel
Left = 272
Top = 0
Width = 345
Height = 180
BevelInner = bvLowered
BevelOuter = bvNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 1
end
object SequencerFrequencyGroupBox: TPanel
Left = 272
Top = 185
Width = 345
Height = 36
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 2
end
object ChordEdit: TEdit
Left = 336
Top = 224
Width = 161
Height = 21
Enabled = False
TabOrder = 3
Text = 'C-5,E-5'
end
object ChordCheckBox: TCheckBox
Left = 272
Top = 224
Width = 49
Height = 17
Caption = 'Chord'
TabOrder = 4
OnClick = ChordCheckBoxClick
end
end
object OptionsSheet: TTabSheet
Caption = 'Options'
object RTBufferLengthLabel: TLabel
Left = 320
Top = 184
Width = 133
Height = 13
Caption = 'Real-time buffer length: 0.5k'
end
object OptionsWaveOutDevicesBox: TGroupBox
Left = 0
Top = -2
Width = 305
Height = 89
Caption = 'Wave Out Devices'
TabOrder = 0
object WaveOutDevicesListBox: TListBox
Left = 8
Top = 16
Width = 289
Height = 65
ItemHeight = 13
TabOrder = 0
end
end
object OptionsMidiOutDevicesBox: TGroupBox
Left = 312
Top = -2
Width = 305
Height = 89
Caption = 'Midi Out Devices'
TabOrder = 1
object MidiOutDevicesListBox: TListBox
Left = 8
Top = 16
Width = 289
Height = 65
Enabled = False
ItemHeight = 13
TabOrder = 0
end
end
object OptionsWaveInDevicesBox: TGroupBox
Left = 0
Top = 87
Width = 305
Height = 87
Caption = 'Wave In Devices'
TabOrder = 2
object WaveInDevicesListBox: TListBox
Left = 8
Top = 16
Width = 289
Height = 65
Enabled = False
ItemHeight = 13
TabOrder = 0
end
end
object OptionsMidiInDevicesBox: TGroupBox
Left = 312
Top = 87
Width = 305
Height = 87
Caption = 'Midi In Devices'
TabOrder = 3
object MidiInDevicesListBox: TListBox
Left = 8
Top = 16
Width = 289
Height = 65
ItemHeight = 13
TabOrder = 0
OnClick = MidiInDevicesListBoxClick
end
end
object SaveFormatGroupBox: TGroupBox
Left = 0
Top = 174
Width = 137
Height = 83
Caption = 'Saving format'
TabOrder = 4
object SaveTypeMotorolaPCMRadioButton: TRadioButton
Left = 8
Top = 16
Width = 121
Height = 17
Caption = 'Raw PCM (Motorola)'
TabOrder = 0
end
object SaveTypeWAVRadioButton: TRadioButton
Left = 8
Top = 48
Width = 97
Height = 17
Caption = 'Microsoft WAV'
TabOrder = 2
end
object SaveTypeXIRadioButton: TRadioButton
Left = 8
Top = 64
Width = 97
Height = 17
Caption = 'FastTracker'#39's XI'
Checked = True
TabOrder = 3
TabStop = True
end
object SaveTypeIntelPCMRadioButton: TRadioButton
Left = 8
Top = 32
Width = 105
Height = 17
Caption = 'Raw PCM (Intel)'
TabOrder = 1
end
end
object QualityRadioGroup: TRadioGroup
Left = 144
Top = 174
Width = 73
Height = 49
Caption = 'Quality'
ItemIndex = 1
Items.Strings = (
'8 bits'
'16 bits')
TabOrder = 5
OnClick = QualityRadioGroupClick
end
object RealTimeDelayScrollBar: TScrollBar
Left = 320
Top = 200
Width = 145
Height = 16
Max = 32
Min = 1
Position = 1
TabOrder = 6
OnChange = RealTimeDelayScrollBarChange
end
end
object RealTimeTabSheet: TTabSheet
Caption = 'Realtime'
object TempoGroupBox: TGroupBox
Left = 312
Top = 184
Width = 257
Height = 57
Caption = 'Tempo'
TabOrder = 0
object TempoEdit: TNumberEdit
Left = 8
Top = 16
Width = 241
Height = 36
TabOrder = 0
Mult = 1.000000000000000000
ScrollMax = 256
ScrollMin = 32
Min = 0
Value = 112.000000000000000000
Description = 'Tempo'
OnChange = TempoEditChange
end
end
object MidiControllersGroupBox: TGroupBox
Left = 0
Top = 177
Width = 257
Height = 80
Caption = 'Midi Controllers'
TabOrder = 1
object Controller1AmplitudeLabel: TLabel
Left = 88
Top = 10
Width = 57
Height = 16
Caption = 'Sensitivity'
end
object Controller2AmplitudeLabel: TLabel
Left = 88
Top = 42
Width = 57
Height = 16
Caption = 'Sensitivity'
end
object Controller1SensetivityScrollBar: TScrollBar
Left = 72
Top = 24
Width = 177
Height = 16
Max = 256
Min = 1
Position = 256
TabOrder = 0
OnChange = Controller1SensetivityScrollBarChange
end
object MidiController1SpinEdit: TSpinEdit
Left = 8
Top = 20
Width = 49
Height = 22
MaxValue = 255
MinValue = 0
TabOrder = 1
Value = 7
OnChange = MidiController1SpinEditChange
end
object MidiController2SpinEdit: TSpinEdit
Left = 8
Top = 52
Width = 49
Height = 22
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 10
OnChange = MidiController2SpinEditChange
end
object Controller2SensetivityScrollBar: TScrollBar
Left = 72
Top = 56
Width = 177
Height = 16
Max = 256
Min = 1
Position = 256
TabOrder = 3
OnChange = Controller1SensetivityScrollBarChange
end
end
object OscillatorMidiInCheckBox: TCheckBox
Left = 310
Top = 242
Width = 171
Height = 17
Caption = 'Oscillators response to MIDI In'
Ctl3D = False
ParentCtl3D = False
State = cbChecked
TabOrder = 2
end
object MIDIEnvelopeGroupBox: TGroupBox
Left = 0
Top = -2
Width = 305
Height = 169
Caption = 'MIDIEnvelope1'
TabOrder = 3
object MIDIAttack1Label: TLabel
Left = 88
Top = 9
Width = 57
Height = 16
Caption = 'Attack'
end
object Release1Label: TLabel
Left = 88
Top = 106
Width = 57
Height = 17
Caption = 'Release'
end
object MIDIDecay1Label: TLabel
Left = 88
Top = 42
Width = 57
Height = 15
Caption = 'Decay'
end
object MidiSustain1Label: TLabel
Left = 88
Top = 74
Width = 57
Height = 15
Caption = 'Sustain'
end
object MIDIEnvelope1AttackScrollBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 256
Position = 10
TabOrder = 0
OnChange = MIDIEnvelope1AttackScrollBarChange
end
object MidiEnvelope1ReleaseScrollBar: TScrollBar
Left = 8
Top = 120
Width = 289
Height = 16
Max = 256
Position = 20
TabOrder = 1
OnChange = MIDIEnvelope1AttackScrollBarChange
end
object MidiEnvelope1AmplitudeScrollBar: TScrollBar
Left = 8
Top = 144
Width = 289
Height = 16
Max = 32768
Position = 16384
TabOrder = 2
OnChange = MidiEnvelope1AmplitudeScrollBarChange
end
object MidiEnvelope1DecayScrollBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
Max = 256
Position = 20
TabOrder = 3
OnChange = MIDIEnvelope1AttackScrollBarChange
end
object MidiEnvelope1SustainScrollBar: TScrollBar
Left = 8
Top = 88
Width = 289
Height = 16
Max = 127
Position = 100
TabOrder = 4
OnChange = MIDIEnvelope1AttackScrollBarChange
end
end
object MidiEnvelope2GroupBox: TGroupBox
Left = 312
Top = -2
Width = 305
Height = 169
Caption = 'MIDIEnvelope2'
TabOrder = 4
object MIDIAttack2Label: TLabel
Left = 88
Top = 9
Width = 57
Height = 16
Caption = 'Attack'
end
object Release2Label: TLabel
Left = 88
Top = 106
Width = 57
Height = 15
Caption = 'Release'
end
object MIDIDecay2Label: TLabel
Left = 88
Top = 42
Width = 57
Height = 15
Caption = 'Decay'
end
object MidiSustain2Label: TLabel
Left = 88
Top = 74
Width = 57
Height = 15
Caption = 'Sustain'
end
object MIDIEnvelope2AttackScrollBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 256
Position = 10
TabOrder = 0
OnChange = MIDIEnvelope1AttackScrollBarChange
end
object MidiEnvelope2ReleaseScrollBar: TScrollBar
Left = 8
Top = 120
Width = 289
Height = 16
Max = 256
Position = 20
TabOrder = 1
OnChange = MIDIEnvelope1AttackScrollBarChange
end
object MidiEnvelope2AmplitudeScrollBar: TScrollBar
Left = 8
Top = 144
Width = 289
Height = 16
Max = 32768
Position = 16384
TabOrder = 2
OnChange = MidiEnvelope1AmplitudeScrollBarChange
end
object MidiEnvelope2DecayScrollBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
Max = 256
Position = 20
TabOrder = 3
OnChange = MIDIEnvelope1AttackScrollBarChange
end
object MidiEnvelope2SustainScrollBar: TScrollBar
Left = 8
Top = 88
Width = 289
Height = 16
Max = 127
Position = 100
TabOrder = 4
OnChange = MIDIEnvelope1AttackScrollBarChange
end
end
end
object EffectsTabSheet: TTabSheet
Caption = 'FX'
object FlangerGroupBox: TGroupBox
Left = 0
Top = 0
Width = 305
Height = 161
Caption = 'Flanger'
TabOrder = 0
object FlangerMaxDelayLabel: TLabel
Left = 112
Top = 74
Width = 105
Height = 15
Caption = 'Max delay: 0.45ms'
end
object FlangerRateLabel: TLabel
Left = 112
Top = 106
Width = 81
Height = 15
Caption = 'Rate'
end
object FlangerMinDelayLabel: TLabel
Left = 112
Top = 42
Width = 89
Height = 13
Caption = 'Min delay: 0.0ms'
end
object FlangerCrossFadeLabel: TLabel
Left = 112
Top = 10
Width = 89
Height = 15
Caption = 'Crossfade: 50%'
end
object FlangerCheckBox: TCheckBox
Left = 248
Top = 0
Width = 49
Height = 17
Caption = 'Active'
TabOrder = 0
OnClick = FlangerCheckBoxClick
end
object FlangerMaxDelayScrollBar: TScrollBar
Left = 8
Top = 88
Width = 289
Height = 16
Position = 20
TabOrder = 1
OnChange = FlangerMaxDelayScrollBarChange
end
object FlangerRateScrollBar: TScrollBar
Left = 8
Top = 120
Width = 289
Height = 16
Max = 500
Position = 50
TabOrder = 2
OnChange = FlangerRateScrollBarChange
end
object FlangerInvertCheckBox: TCheckBox
Left = 8
Top = 138
Width = 49
Height = 17
Caption = 'Invert'
TabOrder = 3
OnClick = FlangerInvertCheckBoxClick
end
object FlangerMinDelayScrollBar: TScrollBar
Left = 8
Top = 56
Width = 289
Height = 16
TabOrder = 4
OnChange = FlangerMinDelayScrollBarChange
end
object FlangerCrossFadeScrollBar: TScrollBar
Left = 8
Top = 24
Width = 289
Height = 16
Max = 256
Position = 128
TabOrder = 5
OnChange = FlangerCrossFadeScrollBarChange
end
end
object ChorusGroupBox: TGroupBox
Left = 312
Top = 0
Width = 313
Height = 161
Caption = 'Chorus'
TabOrder = 1
object ChorusMaxDelayLabel: TLabel
Left = 112
Top = 74
Width = 65
Height = 15
Caption = 'Max delay'
end
object ChorusRateLabel: TLabel
Left = 112
Top = 106
Width = 81
Height = 15
Caption = 'Vibrato rate'
end
object ChorusVolumeLabel: TLabel
Left = 112
Top = 10
Width = 97
Height = 15
Caption = 'Volume: 100%'
end
object ChorusVoicesLabel: TLabel
Left = 8
Top = 48
Width = 35
Height = 13
Caption = 'Voices:'
end
object ChorusCheckBox: TCheckBox
Left = 256
Top = 0
Width = 49
Height = 17
Caption = 'Active'
TabOrder = 0
OnClick = ChorusCheckBoxClick
end
object ChorusNumberOfVoicesSpinEdit: TSpinEdit
Left = 48
Top = 48
Width = 49
Height = 22
MaxValue = 20
MinValue = 1
TabOrder = 1
Value = 1
OnChange = ChorusNumberOfVoicesSpinEditChange
end
object ChorusMaxDelayScrollBar: TScrollBar
Left = 8
Top = 88
Width = 297
Height = 16
Max = 500
Position = 70
TabOrder = 2
OnChange = ChorusMaxDelayScrollBarChange
end
object ChorusVibratoRateScrollBar: TScrollBar
Left = 8
Top = 120
Width = 297
Height = 16
Max = 10000
Min = 1
Position = 800
TabOrder = 3
OnChange = ChorusVibratoRateScrollBarChange
end
object ChorusVolumeScrollBar: TScrollBar
Left = 8
Top = 24
Width = 297
Height = 16
Max = 1024
Min = 256
Position = 256
TabOrder = 4
OnChange = ChorusVolumeScrollBarChange
end
end
end
end
object SaveButton: TButton
Left = 583
Top = 388
Width = 55
Height = 23
Caption = 'Save'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = SaveButtonClick
end
object WaveGraphicBox1: TGroupBox
Left = -7
Top = 309
Width = 579
Height = 102
TabOrder = 8
object DrawWaveRadioButton: TRadioButton
Left = 104
Top = 7
Width = 59
Height = 17
Caption = 'Zoomed'
Checked = True
TabOrder = 1
TabStop = True
OnClick = DrawRadioButtonClick
end
object DrawEnv1RadioButton: TRadioButton
Left = 216
Top = 7
Width = 43
Height = 17
Caption = 'Env1'
TabOrder = 3
OnClick = DrawRadioButtonClick
end
object DrawEnv2RadioButton: TRadioButton
Left = 264
Top = 7
Width = 45
Height = 17
Caption = 'Env2'
TabOrder = 4
OnClick = DrawRadioButtonClick
end
object DrawLFO1RadioButton: TRadioButton
Left = 360
Top = 7
Width = 43
Height = 17
Caption = 'LFO1'
TabOrder = 6
OnClick = DrawRadioButtonClick
end
object DrawLFO2RadioButton: TRadioButton
Left = 408
Top = 7
Width = 44
Height = 17
Caption = 'LFO2'
TabOrder = 7
OnClick = DrawRadioButtonClick
end
object DrawSeqRadioButton: TRadioButton
Left = 464
Top = 7
Width = 41
Height = 17
Caption = 'Seq'
TabOrder = 8
OnClick = DrawRadioButtonClick
end
object DrawEnv3RadioButton: TRadioButton
Left = 314
Top = 7
Width = 43
Height = 17
Caption = 'Env3'
TabOrder = 5
OnClick = DrawRadioButtonClick
end
object DrawFullWaveRadioButton: TRadioButton
Left = 168
Top = 7
Width = 41
Height = 17
Caption = 'Full'
TabOrder = 2
OnClick = DrawRadioButtonClick
end
object DrawSeqEnvRadioButton: TRadioButton
Left = 504
Top = 7
Width = 57
Height = 17
Caption = 'SeqEnv'
TabOrder = 9
OnClick = DrawRadioButtonClick
end
object ViewTrackBar: TTrackBar
Left = 4
Top = 7
Width = 89
Height = 19
Max = 256
Orientation = trHorizontal
Frequency = 32
Position = 0
SelEnd = 0
SelStart = 0
TabOrder = 0
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = DrawRadioButtonClick
end
object WaveGraphBox: TGraphBox
Left = 5
Top = 24
Width = 549
Height = 76
TabOrder = 10
end
object LevelBox: TLevelBox
Left = 556
Top = 23
Width = 20
Height = 77
BevelInner = bvLowered
TabOrder = 11
Level = 0
end
end
object AutoRegenerateCheckBox: TCheckBox
Left = 5
Top = 296
Width = 81
Height = 17
Caption = 'Auto Render'
State = cbChecked
TabOrder = 1
OnClick = AutoRegenerateCheckBoxClick
end
object RegenerateButton: TButton
Left = 88
Top = 296
Width = 49
Height = 19
Caption = 'Render'
TabOrder = 2
OnClick = RegenerateButtonClick
end
object PeakCheckButton: TCheckBox
Left = 282
Top = 296
Width = 39
Height = 17
TabStop = False
Caption = 'Clip'
DragMode = dmAutomatic
TabOrder = 0
end
object RenderProgressBar: TProgressBar
Left = 215
Top = 297
Width = 63
Height = 17
Min = 0
Max = 6
Position = 6
TabOrder = 9
end
object RenderingRadioButton: TLightCheckBox
Left = 140
Top = 296
Width = 72
Height = 17
Checked = False
OnColor = clRed
OffColor = clMaroon
OnClick = RenderingRadioButtonClick
Caption = 'Rendering'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Util1Button: TButton
Left = 321
Top = 296
Width = 47
Height = 19
Caption = 'Cool'
TabOrder = 11
OnClick = Util1ButtonClick
end
object Util2Button: TButton
Left = 369
Top = 296
Width = 47
Height = 19
Caption = 'AWave'
TabOrder = 12
OnClick = Util2ButtonClick
end
object PlayingLightCheck: TLightCheck
Left = 418
Top = 297
Width = 13
Height = 13
Checked = False
OnColor = clYellow
OffColor = clMaroon
OnClick = PlayingLightCheckClick
end
object MainMenu: TMainMenu
Left = 600
object File1: TMenuItem
Caption = '&File'
object Newpreset1: TMenuItem
Caption = 'New preset'
OnClick = Newpreset1Click
end
object OpenPreset1: TMenuItem
Caption = 'Open preset...'
ShortCut = 114
OnClick = OpenPreset1Click
end
object Savepreset1: TMenuItem
Caption = 'Save preset...'
ShortCut = 113
OnClick = Savepreset1Click
end
object N6: TMenuItem
Caption = '-'
end
object OpenSample1: TMenuItem
Caption = 'Open Sample &1'
ShortCut = 122
OnClick = OpenSample1Click
end
object OpenSample2: TMenuItem
Caption = 'Open Sample &2'
ShortCut = 123
OnClick = OpenSample2Click
end
object N2: TMenuItem
Caption = '-'
end
object Savesample1: TMenuItem
Caption = '&Save sample'
OnClick = SaveButtonClick
end
object Savesampleas1: TMenuItem
Caption = 'Save sample as...'
ShortCut = 16467
OnClick = Savesampleas1Click
end
object RenderMIDI1: TMenuItem
Caption = 'Render MIDI'
OnClick = RenderMIDI1Click
end
object N1: TMenuItem
Caption = '-'
end
object Options: TMenuItem
Caption = 'Options...'
OnClick = OptionsClick
end
object N4: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'E&xit'
OnClick = Exit1Click
end
end
object Timbres1: TMenuItem
Caption = 'Timbres'
object Timbre11: TMenuItem
Caption = 'Timbre 1'
Checked = True
GroupIndex = 1
RadioItem = True
ShortCut = 16496
OnClick = Timbre11Click
end
object Timbre21: TMenuItem
Caption = 'Timbre 2'
GroupIndex = 1
RadioItem = True
ShortCut = 16497
OnClick = Timbre21Click
end
end
object Pla1: TMenuItem
Caption = 'Play'
object Play1: TMenuItem
Caption = 'Play'
ShortCut = 116
OnClick = PlayClick
end
object PlayOnce2: TMenuItem
Caption = 'Play Once'
ShortCut = 117
OnClick = PlayOnce1Click
end
object Stop2: TMenuItem
Caption = 'Stop'
ShortCut = 119
OnClick = StopClick
end
object Render1: TMenuItem
Caption = 'Render'
ShortCut = 115
OnClick = RenderClick
end
end
object Convert1: TMenuItem
Caption = '&Convert'
object Byteswapsample1: TMenuItem
Caption = 'Byte swap - sample 1'
OnClick = Byteswapsample1Click
end
object Byteswapsample2: TMenuItem
Caption = 'Byte swap - sample 2'
OnClick = Byteswapsample2Click
end
end
object Tools1: TMenuItem
Caption = 'Tools'
object Normalize1: TMenuItem
Caption = 'Normalize'
OnClick = Normalize1Click
end
object AllmelodicosctoC31: TMenuItem
Caption = 'All melodic osc to C-3'
OnClick = AllmelodicosctoC31Click
end
object AllmelodicosctoC41: TMenuItem
Caption = 'All melodic osc to C-4'
OnClick = AllmelodicosctoC41Click
end
object AllmelodicnotestoC41: TMenuItem
Caption = 'All melodic osc to C-5'
OnClick = AllmelodicnotestoC41Click
end
object AllmelodicosctoC61: TMenuItem
Caption = 'All melodic osc to C-6'
OnClick = AllmelodicosctoC61Click
end
object AllmelodicosctoC71: TMenuItem
Caption = 'All melodic osc to C-7'
OnClick = AllmelodicosctoC71Click
end
object AllmelodicosctoC81: TMenuItem
Caption = 'All melodic osc to C-8'
OnClick = AllmelodicosctoC81Click
end
object Octavedown1: TMenuItem
Caption = 'Octave down'
OnClick = Octavedown1Click
end
object Octaveup1: TMenuItem
Caption = 'Octave up'
OnClick = Octaveup1Click
end
object N5: TMenuItem
Caption = '-'
end
object Makefatsound1: TMenuItem
Caption = 'Make fat sound'
OnClick = Makefatsound1Click
end
object TB303model1: TMenuItem
Caption = 'TB-303 model'
OnClick = TB303model1Click
end
object Processsoundfile1: TMenuItem
Caption = 'Process sound file'
OnClick = Processsoundfile1Click
end
end
object Scale1: TMenuItem
Caption = 'Scale'
object Tempered1: TMenuItem
Caption = 'Tempered'
RadioItem = True
OnClick = Tempered1Click
end
object Natural1: TMenuItem
Caption = 'Natural #'
RadioItem = True
OnClick = Natural1Click
end
object Naturalb1: TMenuItem
Caption = 'Natural b'
RadioItem = True
OnClick = Naturalb1Click
end
end
object Window1: TMenuItem
Caption = 'Window'
object Mixer1: TMenuItem
Caption = 'Mixer'
ShortCut = 16461
OnClick = Mixer1Click
end
object Amplifiers1: TMenuItem
Caption = 'Amplifiers'
ShortCut = 16449
OnClick = Amplifiers1Click
end
object OscillatorsMenu: TMenuItem
Caption = 'Oscillators'
ShortCut = 16463
OnClick = OscillatorsMenuClick
end
object Waveform: TMenuItem
Caption = 'WaveForm'
ShortCut = 16471
OnClick = WaveformClick
end
object Envelopes1: TMenuItem
Caption = 'Envelopes'
ShortCut = 16453
OnClick = Envelopes1Click
end
object Graphicenvelope1: TMenuItem
Caption = 'Graphic envelope'
ShortCut = 16455
OnClick = Graphicenvelope1Click
end
object LFO1: TMenuItem
Caption = 'LFO'
ShortCut = 16460
OnClick = LFO1Click
end
object Filters1: TMenuItem
Caption = 'Filters'
ShortCut = 16454
OnClick = Filters1Click
end
object SequencerMenu: TMenuItem
Caption = 'Sequencer'
ShortCut = 16467
OnClick = SequencerMenuClick
end
object Options1: TMenuItem
Caption = 'Options'
ShortCut = 16468
OnClick = Options1Click
end
object RealtimeMenu: TMenuItem
Caption = 'Realtime'
ShortCut = 16466
OnClick = RealtimeMenuClick
end
object FX1: TMenuItem
Caption = 'FX'
ShortCut = 16472
OnClick = FX1Click
end
end
object Help: TMenuItem
Caption = '&Help'
object RTFM: TMenuItem
Caption = 'RTFM'
ShortCut = 112
OnClick = RTFMClick
end
object ContactMenu: TMenuItem
Caption = 'Contact'
OnClick = ContactMenuClick
end
object N3: TMenuItem
Caption = '-'
end
object About1: TMenuItem
Caption = 'About'
OnClick = About1Click
end
end
object RealTime1: TMenuItem
Caption = 'Realtime'
Checked = True
object RealTime2: TMenuItem
Caption = 'Realtime'
OnClick = RealTime2Click
end
end
end
object OpenSampleDialog: TOpenDialog
Filter =
'Sample files (*.smp;*.wav;*.pcm;*.iff)|*.smp;*.wav;*.pcm;*.iff|A' +
'll files (*.*)|*.*'
Title = 'Open sample...'
Left = 608
end
object OpenPresetDialog: TOpenDialog
DefaultExt = 'ORP'
Filter = 'Orangator presets|*.orp'
Title = 'Open preset...'
Left = 616
end
object SavePresetDialog: TSaveDialog
DefaultExt = 'ORP'
Filter = 'Orangator presets|*.orp'
Title = 'Save preset as...'
Left = 624
end
object SaveSampleDialog: TSaveDialog
Filter =
'Microsoft WAV|*.WAV|Extended Instrument|*.XI|Motorola raw|*.RAW|' +
'Intel raw|*.RAW'
FilterIndex = 0
Title = 'Save sample as...'
Left = 632
end
object MidiOpenDialog: TOpenDialog
DefaultExt = 'MID'
Filter = 'Midi files (*.mid)|*.mid'
Left = 626
Top = 25
end
end