diff options
| author | Oli <olivier.belanger@umontreal.ca> | 2007-07-11 02:49:59 (GMT) |
|---|---|---|
| committer | Oli <olivier.belanger@umontreal.ca> | 2007-07-11 02:49:59 (GMT) |
| commit | a8740043e04f4c19447903a4029d6fb645abe0c7 (patch) | |
| tree | 9b3a98f9a148dd1d61956cc34bf674525bc32be3 /Resources | |
| parent | ad01ec7fe2a2d645ae0427f890de9bfe3f76900c (diff) | |
synthLab new Fx: Chorus
Diffstat (limited to 'Resources')
| -rw-r--r-- | Resources/tooltips_en.py | 11 | ||||
| -rw-r--r-- | Resources/univorc.csd | 6 |
2 files changed, 15 insertions, 2 deletions
diff --git a/Resources/tooltips_en.py b/Resources/tooltips_en.py index c946704..8fe201f 100644 --- a/Resources/tooltips_en.py +++ b/Resources/tooltips_en.py @@ -277,7 +277,13 @@ class Tooltips: FREQ3 = 'Band three gain' FREQ4 = 'Band four gain' - SYNTHTYPES = [[LFO, RANDOM, ADSR, TRACKPADX, TRACKPADY], [FM, BUZZ, VCO, PLUCK, NOISE, SAMPLE, VOICE, GRAIN, ADDSYNTH], [DELAY, DIST, FILTER, RINGMOD, REVERB, HARMON, EQ4BAND], [ADSR]] + CHORUS = 'Chorus' + LFODEPTH = 'LFO Depth' + LFOFREQ = 'LFO Frequency' + DELAY = 'Delay' + FEEDBACK = FEEDBACK + + SYNTHTYPES = [[LFO, RANDOM, ADSR, TRACKPADX, TRACKPADY], [FM, BUZZ, VCO, PLUCK, NOISE, SAMPLE, VOICE, GRAIN, ADDSYNTH], [DELAY, DIST, FILTER, RINGMOD, REVERB, HARMON, EQ4BAND, CHORUS], [ADSR]] SYNTHPARA = { 'lfo': [AMP, FREQ, WAVEFORM, OFFSET], 'rand': [MIN, MAX, FREQ, SEED], 'adsr': [ATTACK, DECAY, SUSTAIN, RELEASE], @@ -298,5 +304,6 @@ class Tooltips: 'ring': [FREQ, MIX, WAVEFORM, GAIN], 'reverb': [REVERBD, REVERBF, REVERBL, GAIN], 'harmon': [FREQ, DRYDELAY, MIX, GAIN], - 'eq4band': [FREQ1, FREQ2, FREQ3, FREQ4]} + 'eq4band': [FREQ1, FREQ2, FREQ3, FREQ4], + 'chorus': [LFODEPTH, LFOFREQ, DELAY, FEEDBACK]} diff --git a/Resources/univorc.csd b/Resources/univorc.csd index 52ef5ff..b2db332 100644 --- a/Resources/univorc.csd +++ b/Resources/univorc.csd @@ -458,6 +458,12 @@ elseif iFxType == 7 then aeq3 butterbp as, 3000, 1000 aeq4 butterbp as, 5000, 2000 aFx = (aeq1*kpara1)+(aeq2*kpara2)+(aeq3*kpara3)+(aeq4*kpara4) +elseif iFxType == 8 then + afeed init 0 + adel oscil kpara1, kpara2, 1 + adel = adel + kpara1 + kpara3 + aFx vdelay as+afeed, adel, 50 + afeed = aFx * kpara4 endif xout aFx |