VCS3
VCS3 v1.1
INTRO
This is an emulation of the VCS3 by EMS, based on the spectacular csound
implementation by Steven Cook. All the code is his, with some minor
modifications by myself. Enjoy.
USAGE
I know, you've probably looked at that interface and are thinking, "What the
hell?" It's not that bad, really. This synth is VERY modular, with almost every
component accepting input and producing output. It's got six (not three)
oscillators, a filter, envelope, external audio input, joystick input, noise
generator, ring modulation, and equalization. Not bad for 1969, eh? Admittedly,
this is a complicated synth, but it makes some fantastic sounds, and it's not so
bad once you get the hang of it.
First thing: you have to set ksmps to 1 in order to use the VCS3, otherwise,
well, things won't sound right.
All the components are pretty straight forward, and I'll cover them in more
detail below. The piece that needs a little explanation is the patch
board. That's that grid of 16x16 check-boxes. The key to understanding it is
this: the Y axis writes to the X axis. So, if I want to connect the envelope's
output to the main output channels, I'd place two check-marks: one at (2, 12)
and one at (3, 12) (X, Y coordinates on the grid). See? Not so bad.
You'll notice that both axis are slightly different. Channels 1 & 2, for
instance, have no output (entirely missing from the Y axis) because they're the
main output channels. For the most part, though, everything accepts input and
makes an output. Also, no performance penalties are incurred if you have
everything connected or not; all the code for all the components gets processed
(except for the Sample inputs) no matter what, so if you're just outputting
oscillator one's sine wav, it's still going to tax your CPU.
If you ever can't hear anything, make sure you've got two signals going into
channels 1 & 2, and make sure all your levels are high enough. Also, check your
signal chain; it may well be that somewhere along the line one of your
components isn't writing to anything that will result in a signal going into the
main channels. If, on the other hand, you find your signal overly staticy or
dropping in and out randomly, you may want to dial back your levels, especially
the ones feeding other components. Sometimes the inputs add up too much, and no
normalization is in place for certain thresholds. May have to change that...
There are a couple of inputs that are not used in this emulation. The Meter
input is ignored since there is no VU meter, and Decay isn't used, since the
note length in this implementation isn't variable. See more details in the
DIFFERENCES.. section.
A word about frequencies. The slider bars can be deceptive, because the values
they show are not the actual frequencies being applied. The values from those
and other frequency widgets is being mapped to an exponential lookup table to
the actual frequencies. So the lower half of the slider bar probably covers
frequencies only below 2khz. If you want the gritty details, table
gitb7_<INSTR_ID> in the Global Orchestra section is the table of exponential
frequency values indexed from a linear frequency value.
THE MODULES
Oscillators: Oscillator One is the one that accepts frequencies from p4, so it
has no frequency slider bar. Please note that this instrument only accepts pch
notation for p4, though if you looked at the code it may not look that way.
As you can see, the VCS3 isn't a 3-oscillator synth, but actually has six
oscillators; every oscillator has a saw wav as well. Shape affects the way the
waveforms lean, including the sine wav. The level knobs control the output level
of both waveforms, and the LFO check-box basically scales the frequency down by
a factor of 20. You all know sync (don't you?).
Noise Generator: Color controls the kind of equalization applied to the noise;
low is bass, high is treble.
Sample 1, 2: Sample an audio file. Make sure the Use check-box is checked if
you're using a sample, otherwise leave it unchecked.
Filter, Ring Mod: All self-explanatory.
Reverb: constant-length reverb, but since this is not an always-on instrument, I
wouldn't use it; use blue effects instead.
Joystick (Random): The original VCS3 had a joystick input, which is simulated in
this emulation by X-Y random movement at a configurable frequency rate. X and Y
range specify the range of values traversed by the axis movement. A possible
next-version feature might be to implement the joystick movement in an FLTK
widget for real-time performance.
Envelope: User-drawn envelope with optional inversion by the Invert
check-box. Input level controls how strong the input signal is before applied to
the envelope. Trapezoid level specifies how strong the envelope itself is on
output.
Final Output: Each channel has level, pan, and color (equalization). Note that
each channel can be independently mixed to the left or right stereo channel.
DIFFERENCES BETWEEN THIS IMPLEMENTATION AND THE ORIGINAL CSOUND IMPL.
Steven's design was implemented as several distinct instruments, each devoted to
a specific component, allowing one to compile the instrument with most modules
running the entire time of the composition. I think this was done to stay as
close to the actual synth as possible and for performance reasons. However, the
drawback to this implementation is that the synth is necessarily a monophonic
instrument, since the oscillators can only be synced to one oscillator instance
at a time. When I implemented this instrument, I saw no reason to restrict it to
a monosynth, and wrapping it all up in one single instrument was a more tidy
approach. The draw backs are that the reverb is crippled, and there is no
variable decay time to the notes. The reverb is no big deal since one can use
blue effects for any number of reverbs, and variable decay just honestly didn't
seem that important to me.
My main focus in converting this instrument to blue was to make a usable synth;
remaining true to the original synth was a secondary goal. That's why I also
made the envelope shaper use a line-drawing widget instead of specifying each
part of the ADSR envelope, because this seems more flexible to me. And it's got
that "neato" factor to it. However, the one downside is that the envelope
doesn't repeat as it does in Steven's implementation and in the original
synth. I may, later, add a check-box to allow it to do that.
Lastly, I made some slight modifications to the code to take advantage of the
vco2 opcode when generating the saw and pulse waveforms. vco2 models analog
synth waveforms more accurately, hopefully giving the whole synth a more analog
sound.
MORE INFO ON THE ORIGINAL EMS VCS3 SYNTH
http://www.ems-synthi.demon.co.uk/index.html
gitb1_<INSTR_ID> ftgen 0, 0, 4097, 7, 0, 4096, 1 ; + Ramp
gitb2_<INSTR_ID> ftgen 0, 0, 4097, 7, -1, 2048, 1, 2048, -1 ; Triangle
gitb3_<INSTR_ID> ftgen 0, 0, 4097, 7, 1, 2048, 1, 0, -1, 2048, -1 ; Square
gitb4_<INSTR_ID> ftgen 0, 0, 4097, -9, .5, 1, 270 ; Rising Sigmoid for sine shaper
gitb5_<INSTR_ID> ftgen 0, 0, 8193, 7, 0, 2048, 1, 2048, 1, 2048, 0, 2048, 0 ; Trapezoid
gitb7_<INSTR_ID> ftgen 0, 0, 8193, -5, .5, 8192, 16384 ; Exponential curve for oscillator frequency
gitb8_<INSTR_ID> ftgen 0, 0, 8193, -5, 5, 8192, 10000 ; Exponential curve for filter frequency
gitbenv_<INSTR_ID> ftgen 0, 0, 8193, 7, <envShape_env>
; Inputs (global) Outputs (zak)
a01 init 0 ; Not used Oscillator 1 sine
a02 init 0 ; Output ch.1 in Oscillator 1 saw
a03 init 0 ; Output ch.2 in Oscillator 2 pulse
a04 init 0 ; Trapezoid amp in Oscillator 2 ramp
a05 init 0 ; Ring Mod A in Oscillator 3 pulse
a06 init 0 ; Ring Mod B in Oscillator 3 ramp
a07 init 0 ; Reverb in Noise
a08 init 0 ; Filter in Input ch.1
a09 init 0 ; Oscillator 1 freq mod Input ch.2
a10 init 0 ; Oscillator 2 freq mod Filter
a11 init 0 ; Oscillator 3 freq mod Trapezoid
a12 init 0 ; Decay mod Env signal
a13 init 0 ; Reverb mix mod Ring Mod
a14 init 0 ; Filter freq mod Reverb
a15 init 0 ; Output level mod ch.1 Joystick X
a16 init 0 ; Output level mod ch.2 Joystick Y
az01 init 0
az02 init 0
az03 init 0
az04 init 0
az05 init 0
az06 init 0
az07 init 0
az08 init 0
az09 init 0
az10 init 0
az11 init 0
az12 init 0
az13 init 0
az14 init 0
az15 init 0
az16 init 0
; Local Inputs
; p4 - Frequency (pch)
; p5 - Amplitude
idur = abs(p3)
ifreq = p4 ;(p4 < 15 ? cpspch(p4) : p4)
iamp = p5
;-------------------------------------------------------------------------------
; OSCILLATOR 1 - Variable sine and fixed saw
iosc1oct = int(ifreq)*2184.533333 ; Frequency - octaves
iosc1semi = frac(ifreq)*18204.44444 ; Frequency - semitones
iosc1freq = iosc1oct+iosc1semi ; Sum octaves and semitones
iosc1shape = <osc1Shape> ; Shape
iosc1levl1 = <osc1SinLvl>*(0dbfs-1) ; Sine output level
iosc1levl2 = <osc1SawLvl>*((2*0dbfs)-1) ; Saw output level
aosc1fmod = a09 ; Frequency modulation input
a09 = 0 ; Clear global ch.09
aosc1freq = iosc1freq + aosc1fmod + 68.50634 ; Add FM sources and tune to A=440
aosc1freq tablei aosc1freq/0dbfs, gitb7_<INSTR_ID>, 1 ; Linear to exponential convertor
kosc1freq downsamp aosc1freq
aosc1saw vco2 .5, kosc1freq, 4, .999 ;generate positive ramp
aosc1saw = aosc1saw + .5
kosc1saw downsamp aosc1saw ; Convert ramp to kr
kosc1sync trigger kosc1saw, .5, 1 ; Detect falling edge of ramp
aosc1tri oscili .5, aosc1freq, gitb2_<INSTR_ID>, -1 ; Generate triangle
aosc1sine tablei aosc1tri + iosc1shape, gitb4_<INSTR_ID>, 1, .5 ; Shape triangle into sine
az01 = aosc1sine*iosc1levl1 ; Output to zak ch.01
az02 = (aosc1saw - .5)*iosc1levl2 ; Output to zak ch.02
;-------------------------------------------------------------------------------
; OSCILLATOR 2 - Variable pulse and ramp
kosc2ramp init 0 ; Initialize ramp
iosc2freq = <osc2Freq> ; Sum octaves and semitones
iosc2shape = <osc2Shape> ; Shape, limited to avoid 0% pulse
iosc2shift = abs(.5 - iosc2shape)/2 + .25 ; Calc DC level shift for ramp
iosc2levl1 = <osc2PulseLvl>*(0dbfs-1) ; Pulse output level
iosc2levl2 = <osc2RampLvl>*((2*0dbfs)-1) ; Ramp output level
iosc2sync = <osc2Sync> ; Sync
aosc2fmod = a10 ; Frequency modulation input
a10 = 0 ; Clear global ch.10
kosc2freq downsamp iosc2freq + aosc2fmod + 68.50634 ; Add FM sources and tune to A=440
kosc2freq tablei kosc2freq/0dbfs, gitb7_<INSTR_ID>, 1 ; Linear to exponential convertor
kosc2sync = (iosc2sync > 0 ? kosc1sync : 0) ; Sync on/off switch, sync with oscillator 1
kosc2freq = (kosc2sync > 0 ? (1 - kosc2ramp)*sr : kosc2freq) ; Calc frequency to reset
aosc2ramp vco2 .5, kosc2freq, 4, .999 ; Generate positive ramp
aosc2ramp = aosc2ramp + .5
kosc2ramp downsamp aosc2ramp
aosc2pulse vco2 1, kosc2freq, 2, 1 - iosc2shape ; Create pulse wave
aosc2ramp mirror 1 - aosc2ramp - iosc2shape, 0, 1 ; Full wave rectify (ramp + shape)
az03 = aosc2pulse*iosc2levl1 ; Output to zak ch.03
az04 = (aosc2ramp - iosc2shift)*iosc2levl2 ; Output to zak ch.04
;-------------------------------------------------------------------------------
; OSCILLATOR 3 - Variable pulse and ramp, LFO or audio rate
kosc3ramp init 0 ; Initialize ramp
iosc3freq = <osc3Freq> ; Sum octaves and semitones
iosc3shape = <osc3Shape> ; Shape, limited to avoid 0% pulse
iosc3shift = abs(.5 - iosc3shape)/2 + .25 ; Calc DC level shift for ramp
iosc3levl1 = <osc3PulseLvl>*(0dbfs-1) ; Pulse output level
iosc3levl2 = <osc3RampLvl>*((2*0dbfs)-1) ; Ramp output level
iosc3sync = <osc3Sync> ; Sync
iosc3mode = ( <osc3LFO> > 0 ? .05 : 1) ; LFO/audio rate switch
aosc3fmod = a11 ; Frequency modulation input
a11 = 0 ; Clear global ch.11
kosc3freq downsamp iosc3freq + aosc3fmod + 68.50634 ; Add FM sources and tune to A=440
kosc3freq tablei kosc3freq/0dbfs, gitb7_<INSTR_ID>, 1 ; Linear to exponential convertor
kosc3sync = (iosc3sync > 0 ? kosc1sync : 0) ; Sync on/off switch, sync with oscillator 1
kosc3freq = (kosc3sync > 0 ? (1 - kosc3ramp)*sr : kosc3freq*iosc3mode) ; Calc frequency to reset
aosc3ramp vco2 .5, kosc3freq, 4, .999 ; Generate positive ramp
aosc3ramp = aosc3ramp + .5
kosc3ramp downsamp aosc3ramp
aosc3pulse vco2 1, kosc3freq, 2, 1 - iosc3shape ; Create pulse wave
aosc3ramp mirror 1 - aosc3ramp - iosc3shape, 0, 1 ; Full wave rectify (ramp + shape)
az05 = aosc3pulse*iosc3levl1 ; Output to zak ch.05
az06 = (aosc3ramp - iosc3shift)*iosc3levl2 ; Output to zak ch.06
;-------------------------------------------------------------------------------
; NOISE GENERATOR
ins1colour1 = ampdb((1 - <ns1Color> - .5)*24) ; Colour (bass)
ins1colour2 = ampdb((<ns1Color> - .5)*24) ; Colour (treble)
ins1levl = <ns1Lvl> ; Output level
ins1seed = rnd(1) ; Generate seed value
ans1noise rand 0dbfs, ins1seed ; Generate white noise
ans1noise pareq ans1noise, 100, ins1colour1, .707, 1 ; Bass +/-
ans1noise pareq ans1noise, 10000, ins1colour2, .707, 2 ; Treble -/+
az07 = ans1noise*ins1levl ; Output to zak ch.07
;-------------------------------------------------------------------------------
; INPUT 1 and 2 - Mono sample inputs
ismp1levl = <smp1Lvl> ; Input 1 level
ismp2levl = <smp2Lvl> ; Input 2 level
asmp1in init 0
asmp2in init 0
if (<smp1Use> > 0) then
asmp1in soundin "<smp1File>" ; Input sample 1
endif
if (<smp2Use> > 0) then
asmp2in soundin "<smp2File>" ; Input sample 2
endif
az08 = asmp1in*ismp1levl ; Output to zak ch.08
az09 = asmp2in*ismp2levl ; Output to zak ch.09
;-------------------------------------------------------------------------------
; FILTER / OSCILLATOR
iflt1freq = <flt1CO>*.8 + .2 ; Frequency (cutoff)
iflt1res = <flt1Res> ; Response (resonance)
iflt1levl = <flt1Lvl>*2*0dbfs ; Output level
aflt1in limit a08/(0dbfs*2), -1, 1 ; Signal input, limited
a08 = 0 ; Clear global ch.08
aflt1fmod = a14/(0dbfs-1) ; Frequency modulation input
a14 = 0 ; Clear global ch.14
aflt1freq tablei iflt1freq + aflt1fmod, gitb8_<INSTR_ID>, 1 ; Linear to exponential convertor
aflt1filt moogvcf aflt1in, aflt1freq, iflt1res ; Filter
az10 = aflt1filt*iflt1levl ; Output to zak ch.10
;-------------------------------------------------------------------------------
; RING MOD
irm1levl = <rm1Lvl> ; Output level
arm1in1 = a05/(0dbfs-1) ; Input A
arm1in2 = a06/(0dbfs-1) ; Input B
a05 = 0 ; Clear global ch.05
a06 = 0 ; Clear global ch.06
arm1ring = arm1in1*arm1in2*(0dbfs-1) ; Calculate and scale ring modulation
az13 = arm1ring*irm1levl ; Output to zak ch.13
;-------------------------------------------------------------------------------
; REVERBERATION
irvb1mix = <rvb1Mix> ; Mix (wet/dry)
irvb1levl = <rvb1Lvl> ; Output level
arvb1in = a07 ; Signal input
arvb1mixmod = a13/(0dbfs-1) ; Mix modulation input
a07 = 0 ; Clear global ch.07
a13 = 0 ; Clear global ch.13
arvb1rvb reverb arvb1in, 3 ; Generate reverb
arvb1mix limit arvb1mixmod + irvb1mix, 0, 1 ; Limit mix range 0 to 1
arvb1rvb = arvb1rvb*arvb1mix + arvb1in*(1 - arvb1mix) ; Calculate wet/dry balance
az14 = arvb1rvb*irvb1levl ; Output to zak ch.14
;-------------------------------------------------------------------------------
; JOYSTICK - Dual random moulation source (movement within square)
ijs1rngex = <js1XRng>*(0dbfs-1) ; X Range
ijs1rngey = <js1YRng>*(0dbfs-1) ; Y Range
ijs1ratex = <js1Freq_0> ; X Rate
ijs1ratey = <js1Freq_1> ; Y Rate
ijs1seed = rnd(1) ; Generate random seed value
ijs1ratex tablei ijs1ratex/0dbfs, gitb7_<INSTR_ID>, 1 ; Linear to exponential convertor
ijs1ratey tablei ijs1ratey/0dbfs, gitb7_<INSTR_ID>, 1 ; Linear to exponential convertor
ajs1x randi 1, ijs1ratex, ijs1seed ; Generate X random modulation
ajs1y randi 1, ijs1ratey, ijs1seed ; Generate Y random modulation
az15 = ajs1x*ijs1rngex ; Output X to zak ch.15
az16 = ajs1y*ijs1rngey ; Output Y to zak ch.16
;-------------------------------------------------------------------------------
; ENVELOPE SHAPER
kenvshape oscili 1, 1/idur, gitbenv_<INSTR_ID>
ckgoto (<envInv> == 0), doEnv
kenvshape = 1 - kenvshape
doEnv:
ienvinamp = <envInputLvl>
ienvtrapamp = <envTrapLvl> * (0dbfs-1)
aenvin = a04*ienvinamp ; Amplifier signal input
a04 = 0
az12 = aenvin * kenvshape
az11 = kenvshape * ienvtrapamp
;-------------------------------------------------------------------------------
; MATRIX
a02 = (<A2> != 0 ? a02+az01 : a02)
a03 = (<A3> != 0 ? a03+az01 : a03)
a04 = (<A4> != 0 ? a04+az01 : a04)
a05 = (<A5> != 0 ? a05+az01 : a05)
a06 = (<A6> != 0 ? a06+az01 : a06)
a07 = (<A7> != 0 ? a07+az01 : a07)
a08 = (<A8> != 0 ? a08+az01 : a08)
a09 = (<A9> != 0 ? a09+az01 : a09)
a10 = (<A10> != 0 ? a10+az01 : a10)
a11 = (<A11> != 0 ? a11+az01 : a11)
a12 = (<A12> != 0 ? a12+az01 : a12)
a13 = (<A13> != 0 ? a13+az01 : a13)
a14 = (<A14> != 0 ? a14+az01 : a14)
a15 = (<A15> != 0 ? a15+az01 : a15)
a16 = (<A16> != 0 ? a16+az01 : a16)
a02 = (<B2> != 0 ? a02+az02 : a02)
a03 = (<B3> != 0 ? a03+az02 : a03)
a04 = (<B4> != 0 ? a04+az02 : a04)
a05 = (<B5> != 0 ? a05+az02 : a05)
a06 = (<B6> != 0 ? a06+az02 : a06)
a07 = (<B7> != 0 ? a07+az02 : a07)
a08 = (<B8> != 0 ? a08+az02 : a08)
a09 = (<B9> != 0 ? a09+az02 : a09)
a10 = (<B10> != 0 ? a10+az02 : a10)
a11 = (<B11> != 0 ? a11+az02 : a11)
a12 = (<B12> != 0 ? a12+az02 : a12)
a13 = (<B13> != 0 ? a13+az02 : a13)
a14 = (<B14> != 0 ? a14+az02 : a14)
a15 = (<B15> != 0 ? a15+az02 : a15)
a16 = (<B16> != 0 ? a16+az02 : a16)
a02 = (<C2> != 0 ? a02+az03 : a02)
a03 = (<C3> != 0 ? a03+az03 : a03)
a04 = (<C4> != 0 ? a04+az03 : a04)
a05 = (<C5> != 0 ? a05+az03 : a05)
a06 = (<C6> != 0 ? a06+az03 : a06)
a07 = (<C7> != 0 ? a07+az03 : a07)
a08 = (<C8> != 0 ? a08+az03 : a08)
a09 = (<C9> != 0 ? a09+az03 : a09)
a10 = (<C10> != 0 ? a10+az03 : a10)
a11 = (<C11> != 0 ? a11+az03 : a11)
a12 = (<C12> != 0 ? a12+az03 : a12)
a13 = (<C13> != 0 ? a13+az03 : a13)
a14 = (<C14> != 0 ? a14+az03 : a14)
a15 = (<C15> != 0 ? a15+az03 : a15)
a16 = (<C16> != 0 ? a16+az03 : a16)
a02 = (<D2> != 0 ? a02+az04 : a02)
a03 = (<D3> != 0 ? a03+az04 : a03)
a04 = (<D4> != 0 ? a04+az04 : a04)
a05 = (<D5> != 0 ? a05+az04 : a05)
a06 = (<D6> != 0 ? a06+az04 : a06)
a07 = (<D7> != 0 ? a07+az04 : a07)
a08 = (<D8> != 0 ? a08+az04 : a08)
a09 = (<D9> != 0 ? a09+az04 : a09)
a10 = (<D10> != 0 ? a10+az04 : a10)
a11 = (<D11> != 0 ? a11+az04 : a11)
a12 = (<D12> != 0 ? a12+az04 : a12)
a13 = (<D13> != 0 ? a13+az04 : a13)
a14 = (<D14> != 0 ? a14+az04 : a14)
a15 = (<D15> != 0 ? a15+az04 : a15)
a16 = (<D16> != 0 ? a16+az04 : a16)
a02 = (<E2> != 0 ? a02+az05 : a02)
a03 = (<E3> != 0 ? a03+az05 : a03)
a04 = (<E4> != 0 ? a04+az05 : a04)
a05 = (<E5> != 0 ? a05+az05 : a05)
a06 = (<E6> != 0 ? a06+az05 : a06)
a07 = (<E7> != 0 ? a07+az05 : a07)
a08 = (<E8> != 0 ? a08+az05 : a08)
a09 = (<E9> != 0 ? a09+az05 : a09)
a10 = (<E10> != 0 ? a10+az05 : a10)
a11 = (<E11> != 0 ? a11+az05 : a11)
a12 = (<E12> != 0 ? a12+az05 : a12)
a13 = (<E13> != 0 ? a13+az05 : a13)
a14 = (<E14> != 0 ? a14+az05 : a14)
a15 = (<E15> != 0 ? a15+az05 : a15)
a16 = (<E16> != 0 ? a16+az05 : a16)
a02 = (<F2> != 0 ? a02+az06 : a02)
a03 = (<F3> != 0 ? a03+az06 : a03)
a04 = (<F4> != 0 ? a04+az06 : a04)
a05 = (<F5> != 0 ? a05+az06 : a05)
a06 = (<F6> != 0 ? a06+az06 : a06)
a07 = (<F7> != 0 ? a07+az06 : a07)
a08 = (<F8> != 0 ? a08+az06 : a08)
a09 = (<F9> != 0 ? a09+az06 : a09)
a10 = (<F10> != 0 ? a10+az06 : a10)
a11 = (<F11> != 0 ? a11+az06 : a11)
a12 = (<F12> != 0 ? a12+az06 : a12)
a13 = (<F13> != 0 ? a13+az06 : a13)
a14 = (<F14> != 0 ? a14+az06 : a14)
a15 = (<F15> != 0 ? a15+az06 : a15)
a16 = (<F16> != 0 ? a16+az06 : a16)
a02 = (<G2> != 0 ? a02+az07 : a02)
a03 = (<G3> != 0 ? a03+az07 : a03)
a04 = (<G4> != 0 ? a04+az07 : a04)
a05 = (<G5> != 0 ? a05+az07 : a05)
a06 = (<G6> != 0 ? a06+az07 : a06)
a07 = (<G7> != 0 ? a07+az07 : a07)
a08 = (<G8> != 0 ? a08+az07 : a08)
a09 = (<G9> != 0 ? a09+az07 : a09)
a10 = (<G10> != 0 ? a10+az07 : a10)
a11 = (<G11> != 0 ? a11+az07 : a11)
a12 = (<G12> != 0 ? a12+az07 : a12)
a13 = (<G13> != 0 ? a13+az07 : a13)
a14 = (<G14> != 0 ? a14+az07 : a14)
a15 = (<G15> != 0 ? a15+az07 : a15)
a16 = (<G16> != 0 ? a16+az07 : a16)
a02 = (<H2> != 0 ? a02+az08 : a02)
a03 = (<H3> != 0 ? a03+az08 : a03)
a04 = (<H4> != 0 ? a04+az08 : a04)
a05 = (<H5> != 0 ? a05+az08 : a05)
a06 = (<H6> != 0 ? a06+az08 : a06)
a07 = (<H7> != 0 ? a07+az08 : a07)
a08 = (<H8> != 0 ? a08+az08 : a08)
a09 = (<H9> != 0 ? a09+az08 : a09)
a10 = (<H10> != 0 ? a10+az08 : a10)
a11 = (<H11> != 0 ? a11+az08 : a11)
a12 = (<H12> != 0 ? a12+az08 : a12)
a13 = (<H13> != 0 ? a13+az08 : a13)
a14 = (<H14> != 0 ? a14+az08 : a14)
a15 = (<H15> != 0 ? a15+az08 : a15)
a16 = (<H16> != 0 ? a16+az08 : a16)
a02 = (<I2> != 0 ? a02+az09 : a02)
a03 = (<I3> != 0 ? a03+az09 : a03)
a04 = (<I4> != 0 ? a04+az09 : a04)
a05 = (<I5> != 0 ? a05+az09 : a05)
a06 = (<I6> != 0 ? a06+az09 : a06)
a07 = (<I7> != 0 ? a07+az09 : a07)
a08 = (<I8> != 0 ? a08+az09 : a08)
a09 = (<I9> != 0 ? a09+az09 : a09)
a10 = (<I10> != 0 ? a10+az09 : a10)
a11 = (<I11> != 0 ? a11+az09 : a11)
a12 = (<I12> != 0 ? a12+az09 : a12)
a13 = (<I13> != 0 ? a13+az09 : a13)
a14 = (<I14> != 0 ? a14+az09 : a14)
a15 = (<I15> != 0 ? a15+az09 : a15)
a16 = (<I16> != 0 ? a16+az09 : a16)
a02 = (<J2> != 0 ? a02+az10 : a02)
a03 = (<J3> != 0 ? a03+az10 : a03)
a04 = (<J4> != 0 ? a04+az10 : a04)
a05 = (<J5> != 0 ? a05+az10 : a05)
a06 = (<J6> != 0 ? a06+az10 : a06)
a07 = (<J7> != 0 ? a07+az10 : a07)
a08 = (<J8> != 0 ? a08+az10 : a08)
a09 = (<J9> != 0 ? a09+az10 : a09)
a10 = (<J10> != 0 ? a10+az10 : a10)
a11 = (<J11> != 0 ? a11+az10 : a11)
a12 = (<J12> != 0 ? a12+az10 : a12)
a13 = (<J13> != 0 ? a13+az10 : a13)
a14 = (<J14> != 0 ? a14+az10 : a14)
a15 = (<J15> != 0 ? a15+az10 : a15)
a16 = (<J16> != 0 ? a16+az10 : a16)
a02 = (<K2> != 0 ? a02+az11 : a02)
a03 = (<K3> != 0 ? a03+az11 : a03)
a04 = (<K4> != 0 ? a04+az11 : a04)
a05 = (<K5> != 0 ? a05+az11 : a05)
a06 = (<K6> != 0 ? a06+az11 : a06)
a07 = (<K7> != 0 ? a07+az11 : a07)
a08 = (<K8> != 0 ? a08+az11 : a08)
a09 = (<K9> != 0 ? a09+az11 : a09)
a10 = (<K10> != 0 ? a10+az11 : a10)
a11 = (<K11> != 0 ? a11+az11 : a11)
a12 = (<K12> != 0 ? a12+az11 : a12)
a13 = (<K13> != 0 ? a13+az11 : a13)
a14 = (<K14> != 0 ? a14+az11 : a14)
a15 = (<K15> != 0 ? a15+az11 : a15)
a16 = (<K16> != 0 ? a16+az11 : a16)
a02 = (<L2> != 0 ? a02+az12 : a02)
a03 = (<L3> != 0 ? a03+az12 : a03)
a04 = (<L4> != 0 ? a04+az12 : a04)
a05 = (<L5> != 0 ? a05+az12 : a05)
a06 = (<L6> != 0 ? a06+az12 : a06)
a07 = (<L7> != 0 ? a07+az12 : a07)
a08 = (<L8> != 0 ? a08+az12 : a08)
a09 = (<L9> != 0 ? a09+az12 : a09)
a10 = (<L10> != 0 ? a10+az12 : a10)
a11 = (<L11> != 0 ? a11+az12 : a11)
a12 = (<L12> != 0 ? a12+az12 : a12)
a13 = (<L13> != 0 ? a13+az12 : a13)
a14 = (<L14> != 0 ? a14+az12 : a14)
a15 = (<L15> != 0 ? a15+az12 : a15)
a16 = (<L16> != 0 ? a16+az12 : a16)
a02 = (<M2> != 0 ? a02+az13 : a02)
a03 = (<M3> != 0 ? a03+az13 : a03)
a04 = (<M4> != 0 ? a04+az13 : a04)
a05 = (<M5> != 0 ? a05+az13 : a05)
a06 = (<M6> != 0 ? a06+az13 : a06)
a07 = (<M7> != 0 ? a07+az13 : a07)
a08 = (<M8> != 0 ? a08+az13 : a08)
a09 = (<M9> != 0 ? a09+az13 : a09)
a10 = (<M10> != 0 ? a10+az13 : a10)
a11 = (<M11> != 0 ? a11+az13 : a11)
a12 = (<M12> != 0 ? a12+az13 : a12)
a13 = (<M13> != 0 ? a13+az13 : a13)
a14 = (<M14> != 0 ? a14+az13 : a14)
a15 = (<M15> != 0 ? a15+az13 : a15)
a16 = (<M16> != 0 ? a16+az13 : a16)
a02 = (<N2> != 0 ? a02+az14 : a02)
a03 = (<N3> != 0 ? a03+az14 : a03)
a04 = (<N4> != 0 ? a04+az14 : a04)
a05 = (<N5> != 0 ? a05+az14 : a05)
a06 = (<N6> != 0 ? a06+az14 : a06)
a07 = (<N7> != 0 ? a07+az14 : a07)
a08 = (<N8> != 0 ? a08+az14 : a08)
a09 = (<N9> != 0 ? a09+az14 : a09)
a10 = (<N10> != 0 ? a10+az14 : a10)
a11 = (<N11> != 0 ? a11+az14 : a11)
a12 = (<N12> != 0 ? a12+az14 : a12)
a13 = (<N13> != 0 ? a13+az14 : a13)
a14 = (<N14> != 0 ? a14+az14 : a14)
a15 = (<N15> != 0 ? a15+az14 : a15)
a16 = (<N16> != 0 ? a16+az14 : a16)
a02 = (<O2> != 0 ? a02+az15 : a02)
a03 = (<O3> != 0 ? a03+az15 : a03)
a04 = (<O4> != 0 ? a04+az15 : a04)
a05 = (<O5> != 0 ? a05+az15 : a05)
a06 = (<O6> != 0 ? a06+az15 : a06)
a07 = (<O7> != 0 ? a07+az15 : a07)
a08 = (<O8> != 0 ? a08+az15 : a08)
a09 = (<O9> != 0 ? a09+az15 : a09)
a10 = (<O10> != 0 ? a10+az15 : a10)
a11 = (<O11> != 0 ? a11+az15 : a11)
a12 = (<O12> != 0 ? a12+az15 : a12)
a13 = (<O13> != 0 ? a13+az15 : a13)
a14 = (<O14> != 0 ? a14+az15 : a14)
a15 = (<O15> != 0 ? a15+az15 : a15)
a16 = (<O16> != 0 ? a16+az15 : a16)
a02 = (<P2> != 0 ? a02+az16 : a02)
a03 = (<P3> != 0 ? a03+az16 : a03)
a04 = (<P4> != 0 ? a04+az16 : a04)
a05 = (<P5> != 0 ? a05+az16 : a05)
a06 = (<P6> != 0 ? a06+az16 : a06)
a07 = (<P7> != 0 ? a07+az16 : a07)
a08 = (<P8> != 0 ? a08+az16 : a08)
a09 = (<P9> != 0 ? a09+az16 : a09)
a10 = (<P10> != 0 ? a10+az16 : a10)
a11 = (<P11> != 0 ? a11+az16 : a11)
a12 = (<P12> != 0 ? a12+az16 : a12)
a13 = (<P13> != 0 ? a13+az16 : a13)
a14 = (<P14> != 0 ? a14+az16 : a14)
a15 = (<P15> != 0 ? a15+az16 : a15)
a16 = (<P16> != 0 ? a16+az16 : a16)
;-------------------------------------------------------------------------------
; OUTPUT
ioutlevl1 = <outChn1Lvl> ; Output level ch.1
ioutpan1 = <outChn1Pan> ; Pan ch.1
ioutpan2 = <outChn2Pan> ; Pan ch.2
ioutlevl2 = <outChn2Lvl> ; Output level ch.2
ioutcolor1b = ampdb((1 - <outChn1Clr>)*24) ; Colour ch.1 (bass)
ioutcolor1t = ampdb(<outChn1Clr>*24) ; Colour ch.1 (treble)
ioutcolor2b = ampdb((1 - <outChn2Clr>)*24) ; Colour ch.2 (bass)
ioutcolor2t = ampdb(<outChn2Clr>*24) ; Colour ch.2 (treble)
aoutin1 = a02 ; Signal input ch.1
aoutin2 = a03 ; Signal input ch.2
aoutlmod1 = a15/(0dbfs-1) ; Level modulation input ch.1
aoutlmod2 = a16/(0dbfs-1) ; Level modulation input ch.2
a02 = 0 ; Clear global ch.02
a03 = 0 ; Clear global ch.03
a15 = 0 ; Clear global ch.15
a16 = 0 ; Clear global ch.16
aoutin1 pareq aoutin1, 100, ioutcolor1b, .707, 1 ; Bass +/- ch.1
aoutin1 pareq aoutin1, 10000, ioutcolor1t, .707, 2 ; Treble -/+ ch.1
aoutin2 pareq aoutin2, 100, ioutcolor2b, .707, 1 ; Bass +/- ch.2
aoutin2 pareq aoutin2, 10000, ioutcolor2t, .707, 2 ; Treble -/+ ch.2
aoutlevl1 limit ioutlevl1 + aoutlmod1, 0, 1 ; Limit level modulation ch.1
aoutlevl2 limit ioutlevl2 + aoutlmod2, 0, 1 ; Limit level modulation ch.2
aoutout1 = aoutin1*aoutlevl1*iamp*.5/0dbfs ; VCA ch.1
aoutout2 = aoutin2*aoutlevl2*iamp*.5/0dbfs ; VCA ch.2
aoutout1 dcblock aoutout1
aoutout2 dcblock aoutout2
blueMixerOut aoutout1*sqrt(ioutpan1) + aoutout2*sqrt(1 - ioutpan2), aoutout1*sqrt(1 - ioutpan1) + aoutout2*sqrt(ioutpan2)
30
10
osc1SinLvl
10
40
0.0
1.0
0.82324797
60
9
119
osc1SawLvl
95
39
0.0
1.0
0.69463587
60
95
119
osc1Shape
185
41
-0.5
0.5
-0.2522152
60
198
120
379
5
osc2Freq
292
35
0.0
22050.0
1.0
7941.0
300
645
42
osc2Shape
494
62
0.01
0.99
0.096660994
60
505
143
osc2PulseLvl
331
61
0.0
1.0
0.72198457
60
329
141
osc2RampLvl
412
63
0.0
1.0
0.6520021
60
409
141
osc2Sync
581
85
true
807
2
osc3Freq
699
37
0.0
22050.0
1.0
13569.0
300
1056
42
osc3Shape
918
63
0.01
0.99
0.6476686
60
929
144
osc3PulseLvl
743
63
0.0
1.0
0.7749469
60
741
143
osc3RampLvl
827
65
0.0
1.0
0.74190164
60
824
143
osc3Sync
994
82
true
osc3LFO
995
114
false
44
148
ns1Color
37
173
0.0
1.0
0.53240895
60
52
255
ns1Lvl
123
174
0.0
1.0
0.25748777
60
136
256
386
165
smp1File
299
206
C:\Projects\csound\VCS3Test\DistTest.wav
200
543
213
smp1Lvl
609
164
0.0
1.0
1.0
60
626
244
809
167
smp2File
721
209
200
962
216
smp2Lvl
1028
167
0.0
1.0
1.0
60
1045
247
96
277
flt1CO
15
304
0.0
1.0
0.26506355
60
15
385
flt1Res
85
305
0.0
1.0
0.3197584
60
86
386
flt1Lvl
155
306
0.0
1.0
0.7333251
60
169
385
264
276
rm1Lvl
274
307
0.0
1.0
1.0
60
287
387
417
277
rvb1Mix
388
309
0.0
1.0
0.20800589
60
399
387
rvb1Lvl
456
310
0.0
1.0
0.7197848
60
472
388
736
279
js1XRng
964
299
0.0
1.0
0.4907939
60
969
382
js1YRng
1040
300
0.0
1.0
0.4954555
60
1046
381
js1Freq
545
318
0.0
22050.0
1.0
300
5
0
0
0.0
22050.0
1.0
7247.0
300
0
0
0.0
22050.0
1.0
0.0
300
906
325
906
359
envShape
18
488
300
160
8192.0
true
Comma
false
false
146
453
envInputLvl
331
486
0.0
1.0
1.0
60
331
562
envInv
330
461
false
A2
567
587
false
A4
639
587
true
A3
603
587
false
A5
675
587
false
A6
711
587
false
A7
747
587
false
A8
783
587
false
A9
819
587
false
A11
891
587
false
A10
855
587
false
A12
927
587
false
A13
963
587
false
A14
999
587
false
A15
1035
587
false
A1
530
587
false
A16
1071
587
false
B2
567
622
false
B4
639
622
false
B3
603
622
false
B5
675
622
false
B6
711
622
false
B7
747
622
false
B8
783
622
false
B9
819
622
false
B11
891
622
false
B10
855
622
false
B12
927
622
false
B13
963
622
false
B14
999
622
false
B15
1035
622
false
B1
530
622
false
B16
1071
622
false
C2
567
652
false
C4
639
652
false
C3
603
652
false
C5
675
652
false
C6
711
652
false
C7
747
652
false
C8
783
652
false
C9
819
652
false
C11
891
652
false
C10
855
652
false
C12
927
652
false
C13
963
652
false
C14
999
652
false
C15
1035
652
false
C1
530
652
false
C16
1071
652
false
D2
567
683
false
D4
639
683
false
D3
603
683
false
D5
675
683
false
D6
711
683
false
D7
747
683
false
D8
783
683
false
D9
819
683
false
D11
891
683
false
D10
855
683
false
D12
927
683
false
D13
963
683
false
D14
999
683
false
D15
1035
683
false
D1
530
683
false
D16
1071
683
false
E2
567
715
false
E4
639
715
false
E3
603
715
false
E5
675
715
false
E6
711
715
false
E7
747
715
false
E8
783
715
false
E9
819
715
false
E11
891
715
false
E10
855
715
false
E12
927
715
false
E13
963
715
false
E14
999
715
false
E15
1035
715
false
E1
530
715
false
E16
1071
715
false
F2
567
749
false
F4
639
749
false
F3
603
749
false
F5
675
749
false
F6
711
749
false
F7
747
749
false
F8
783
749
false
F9
819
749
false
F11
891
749
false
F10
855
749
false
F12
927
749
false
F13
963
749
false
F14
999
749
false
F15
1035
749
false
F1
530
749
false
F16
1071
749
false
G2
567
779
false
G4
639
779
false
G3
603
779
false
G5
675
779
false
G6
711
779
false
G7
747
779
false
G8
783
779
false
G9
819
779
false
G11
891
779
false
G10
855
779
false
G12
927
779
false
G13
963
779
false
G14
999
779
false
G15
1035
779
false
G1
530
779
false
G16
1071
779
false
H2
567
810
false
H4
639
810
false
H3
603
810
false
H5
675
810
false
H6
711
810
false
H7
747
810
false
H8
783
810
false
H9
819
810
false
H11
891
810
false
H10
855
810
false
H12
927
810
false
H13
963
810
false
H14
999
810
false
H15
1035
810
false
H1
530
810
false
H16
1071
810
false
I2
567
844
false
I4
639
844
false
I3
603
844
false
I5
675
844
false
I6
711
844
false
I7
747
844
false
I8
783
844
false
I9
819
844
false
I11
891
844
false
I10
855
844
false
I12
927
844
false
I13
963
844
false
I14
999
844
false
I15
1035
844
false
I1
530
844
false
I16
1071
844
false
J2
567
878
false
J4
639
878
false
J3
603
878
false
J5
675
878
false
J6
711
878
false
J7
747
878
false
J8
783
878
false
J9
819
878
false
J11
891
878
false
J10
855
878
false
J12
927
878
false
J13
963
878
false
J14
999
878
false
J15
1035
878
false
J1
530
878
false
J16
1071
878
false
K2
567
908
false
K4
639
908
false
K3
603
908
false
K5
675
908
false
K6
711
908
false
K7
747
908
false
K8
783
908
false
K9
819
908
false
K11
891
908
false
K10
855
908
false
K12
927
908
false
K13
963
908
false
K14
999
908
false
K15
1035
908
false
K1
530
908
false
K16
1071
908
false
L2
567
939
true
L4
639
939
false
L3
603
939
true
L5
675
939
false
L6
711
939
false
L7
747
939
false
L8
783
939
false
L9
819
939
false
L11
891
939
false
L10
855
939
false
L12
927
939
false
L13
963
939
false
L14
999
939
false
L15
1035
939
false
L1
530
939
false
L16
1071
939
false
M2
567
972
false
M4
639
972
false
M3
603
972
false
M5
675
972
false
M6
711
972
false
M7
747
972
false
M8
783
972
false
M9
819
972
false
M11
891
972
false
M10
855
972
false
M12
927
972
false
M13
963
972
false
M14
999
972
false
M15
1035
972
false
M1
530
972
false
M16
1071
972
false
N2
567
1006
false
N4
639
1006
false
N3
603
1006
false
N5
675
1006
false
N6
711
1006
false
N7
747
1006
false
N8
783
1006
false
N9
819
1006
false
N11
891
1006
false
N10
855
1006
false
N12
927
1006
false
N13
963
1006
false
N14
999
1006
false
N15
1035
1006
false
N1
530
1006
false
N16
1071
1006
false
O2
567
1036
false
O4
639
1036
false
O3
603
1036
false
O5
675
1036
false
O6
711
1036
false
O7
747
1036
false
O8
783
1036
false
O9
819
1036
false
O11
891
1036
false
O10
855
1036
false
O12
927
1036
false
O13
963
1036
false
O14
999
1036
false
O15
1035
1036
false
O1
530
1036
false
O16
1071
1036
false
P2
567
1067
false
P4
639
1067
false
P3
603
1067
false
P5
675
1067
false
P6
711
1067
false
P7
747
1067
false
P8
783
1067
false
P9
819
1067
false
P11
891
1067
false
P10
855
1067
false
P12
927
1067
false
P13
963
1067
false
P14
999
1067
false
P15
1035
1067
false
P1
530
1067
false
P16
1071
1067
false
135
728
outChn1Lvl
58
760
0.0
1.0
0.8609005
60
41
838
outChn1Pan
158
760
0.0
1.0
0.67516375
60
151
837
outChn2Pan
158
860
0.0
1.0
0.3811746
60
147
937
outChn2Lvl
59
860
0.0
1.0
0.8651133
60
48
935
outChn1Clr
263
761
-0.5
0.5
0.15674615
60
250
838
outChn2Clr
263
860
-0.5
0.5
-0.15390739
60
246
938
536
507
537
551
539
536
537
521
538
565
572
485
573
501
573
517
575
533
573
563
610
563
645
454
646
469
647
484
646
500
648
515
646
530
646
545
646
562
681
441
684
456
682
471
682
486
681
510
682
525
682
541
682
564
717
441
720
456
718
471
718
486
717
510
718
525
718
541
718
564
752
485
753
500
754
515
753
530
754
547
753
563
789
486
791
502
791
518
791
534
789
548
790
563
835
541
826
562
862
562
899
562
933
503
934
518
934
532
934
547
935
562
969
424
970
439
971
454
970
469
971
486
970
502
969
531
972
547
971
563
1006
413
1008
429
1008
445
1008
461
1006
475
1007
490
1006
517
1007
531
1006
546
1006
562
609
485
610
501
610
516
612
533
1038
424
1039
440
1039
456
1041
472
1039
562
1076
562
1075
424
1076
440
1076
455
1078
472
1040
501
1041
516
1042
532
1076
501
1077
516
1078
532
451
590
450
622
445
653
452
684
444
716
452
749
482
781
466
811
466
845
491
879
465
909
458
940
463
973
480
1007
466
1037
467
1067
smp1Use
493
170
false
smp2Use
915
170
false
envTrapLvl
331
580
0.0
1.0
1.0
60
324
657