Classic Analoge V1.1 Classic Analog 2 vcos/sub osc. instrument with a varity of filters and an auto-chorder Some parameters can be overridden from the scoreline: p4 Freq(pch) p5 Amp using '0dbfs / 100 * p5'. Adjust to your taste p6 pan -1..1 p7 Base-Cutoff 0=use Gui p8 Cutoff-Mod 0=use Gui p9 Resonance 0=use Gui p10 Attack 0=use Gui p11 Decay 0=use Gui p12 Chord see below Envelopes-Tables Modes: p3 the table end is reached at p3. The classical csound mode. Sound of the instrument depends on p3 time-cycle: the table is cycled every <Time> seconds. Basically turns the envelope in a freeform lfo time-tempo: same as time-cycle, but tempo-synced. 1 Speed unit is a quarter note (I think) time-abs: table-end is reached at <Time>. If p3 > <Time>, the last (rightmost) table value is sustained. The classical hardware gear/vst envelope mode Filters: Filters up to Moog(including) use Resonance, while the others use Bandwidth In the Filter-envelope table, y=0 is Base while y=1 is Base+Mod Osc. Section: The Sym/PWM section only works with Square and Saw/Tri Detune is in cent Output Section: Mix and Sub. Volume can either be static (uncheck the 'use..' boxes and use the knobs) or dynamic. In that case use the envelopes in the tables An Envelope for folding (aliasing) is provided for adding some dirt The Chorder p12 = 0 (or nothing passed) = No chord. 0307 generates a minor chord 0407 a major chord 040710 a 7+ 04071019 a 7+ with an additional quint hope you get the picture... However, due to an oddity in csound '%' operator, dont try to generate a 69-key cluster chord. 4-5 keys is safe. No range checking... The instrument isnt midi-enabled at the time being. Enjoy! giCutoff_<INSTR_ID> ftgen 0, 0, 513, -7 + <EnvFilter_Cutoff> giReso_<INSTR_ID> ftgen 0, 0, 513, -7 + <EnvFilter_Q> giMix_<INSTR_ID> ftgen 0, 0, 513, -7 + <EnvOutput_Mix> giFold_<INSTR_ID> ftgen 0, 0, 513, -7 + <EnvOutput_Fold> giSubVol_<INSTR_ID> ftgen 0, 0, 513, -7 + <EnvOutput_SubVol> ; <DUR> <FREQ> Amp pan cLow cHigh Rez Atk Dcy ;1 2 3 4 5 6 7 8 9 10 11 iInputMode = 0 ; 0 = pch/freq 1 = midi ;----------------- Setup ---------------------------------- iPch = p4 iAmp = 0dbfs / 100 * p5 iPan = p6 iCut1 scoreDefault p7,<FreqStart> iCut2 scoreDefault p8,<FreqEnd> iRez scoreDefault p9,-1 iAttack scoreDefault p10,<Attack> iDecay scoreDefault p11,<Decay> ;--------------------------- From Syntbuilder -------------------- iSustain = <Sustain> iRelease = <Release> kMix = <Mix> kSubVolume = <SubVol> iPitch2 = <TransOsc2> iCent = <Detune> iWave1 = <Wave1> iWave2 = <Wave2> ;---------------------- Pitch --------------------------- iPch1 addNote iPch,0,0,iInputMode iPch2 addNote iPch,iPitch2,iCent,iInputMode iPchSub addNote iPch,-12,0,iInputMode if (p12 >= 1.0) then iChord = p12 loop: iKey = iChord % 100 iKey addPch p4, iKey, 1 ;schedule p1, 0, p3, iKey, p5, p6, p7, p8, p9, p10, p11, 0 event_i "i",p1, 0, p3, iKey, p5, p6, p7, p8, p9, p10, p11, 0 iChord = int(iChord / 100) if iChord >= 1.0 igoto loop endif ;--------------------- PWM LFO's------------------------- if (iWave1 == 2 || iWave1 == 4) then kPwmLfoDepth1 init <PWMDepth1> kPwmLfoSpeed1 init <PWMSpeed1> iPwmLfoshape1 init <LFO1Typ> kPwmLfo1 lfo kPwmLfoDepth1, kPwmLfoSpeed1 ,iPwmLfoshape1 else kPwmLfoDepth1 = 0 kPwmLfo1 = 0 endif if (iWave2 == 2 || iWave2 == 4) then kPwmLfoDepth2 init <PWMDepth2> kPwmLfoSpeed2 init <PWMSpeed2> iPwmLfoshape2 init <LFO2Typ> kPwmLfo2 lfo kPwmLfoDepth2, kPwmLfoSpeed2 ,iPwmLfoshape2 else kPwmLfoDepth2 = 0 kPwmLfo2 = 0 endif ;------------------- other LFO's ------------------ iLFOFilterAmt = <LFOFilterAmt> if (iLFOFilterAmt > 0) then kFilterLFO lfo iLFOFilterAmt,<LFOFilterSpeed>,<LFOFilterShape> else kFilterLFO = 0 endif ;--------------------- ADSR ----------------------- kAmp absAdsr iAttack,iDecay,iSustain,iRelease ; changes p3 ;--------------------- Phasors -------------------- kTempo miditempo iTempo = i(kTempo) kFilterIdx makePhasor <FTableMode>,<FTableTime>,iTempo kVcf tablei kFilterIdx,giCutoff_<INSTR_ID>,1 if (iRez == -1) then kRez tablei kFilterIdx,giReso_<INSTR_ID>,1 else kRez = iRez endif kOutputIdx makePhasor <OTableMode>,<OTableTime>,iTempo kFold tablei kOutputIdx,giFold_<INSTR_ID>,1 if (<UseMixEnv> == 1) then kMix table kOutputIdx,giMix_<INSTR_ID>,1 else kMix = <Mix> endif if (<UseSubEnv> == 1) then kSubVol tablei kOutputIdx,giSubVol_<INSTR_ID>,1 else kSubVol = <SubVol> endif ;----------------------- Sound-------------------- kSym1 = <Osc1Sym> + kPwmLfo1 kSym2 = <Osc2Sym> + kPwmLfo2 kSym1 limit kSym1,0.01,0.99 kSym2 limit kSym2,0.01,0.99 a1 vco2 iAmp * kAmp, iPch1 , iWave1, kSym1 a2 vco2 iAmp * kAmp, iPch2 , iWave2, kSym2 ;------------------------ Mix---------------------- if (kSubVol > 0) then asub vco2 iAmp * kAmp, iPchSub , 0 else asub = 0 endif kMix limit kMix,0,1 aout ntrpol a1, a2, kMix aout = aout + asub * kSubVol ;aout declick aout ;------------------------ Modify ---------------- if (kFold > 1) then aout fold aout,kFold endif ares multiFilter aout, <Filter>, iCut1, iCut2, kRez, kVcf, kFilterLFO, <Bandwidth> ares balance ares, aout kL,kR panner iPan al = ares * kL ar = ares * kR blueMixerOut al,ar Attack 24 37 true 0.0 10.0 0.0 50 true Decay 88 37 true 0.0 10.0 2.0 50 true Sustain 152 37 true 0.0 1.0 0.75 50 true Release 217 37 true 0.0 10.0 1.5 50 true 31 124 Attack 96 124 Decay 158 124 Sustain 237 124 Rel 506 279 Transpose TransOsc2 510 119 true -24.0 24.0 1.0 0.0 120 true Wave1 405 47 Saw 0 Square 2 Saw/Tri 4 Saw2 8 Triangle 12 0 true Wave2 590 48 Saw 0 Square 2 Saw/Tri 4 Saw2 8 Triangle 12 0 true Mix 509 35 true 0.0 1.0 0.5 50 true 522 6 Mix Detune 509 313 true 0.0 50.0 1.5056192 50 true 515 384 Detune PWMDepth1 416 191 true 0.0 0.49 0.0 50 true 407 264 PWM Depth PWMSpeed1 414 283 true 0.0 10.0 0.0 50 true 399 353 PWM Speed PWMDepth2 606 191 true 0.0 0.499 0.0 50 true 601 264 PWM Depth PWMSpeed2 604 289 true 0.0 10.0 0.0 50 true 599 365 PWM Speed SubVol 711 35 true 0.0 1.0 0.5000148 50 true 717 10 SubVol FreqStart 22 205 true 0.0 15000.0 15000.0 50 true FreqEnd 74 205 true 0.0 15000.0 0.0 50 true 35 280 Base 85 280 Mod EnvFilter 14 338 240 160 513.0 true Comma true false 415 12 <html>Osc1</html> 605 11 <html>Osc2</html> 25 171 <html>Filter</html> 33 7 <html>Env</html> EnvOutput 691 340 240 160 513.0 true Comma true false 692 299 <html>Output</html> LFO1Typ 395 393 Sine 0 Triangle 1 Square 2 Saw 4 Saw down 5 1 true LFO2Typ 590 396 Sine 0 Triangle 1 Square 2 Saw 4 Saw down 5 1 true LFOFilterAmt 205 210 true 0.0 5000.0 0.0 50 true 405 432 LFO Shape 602 432 LFO Shape LFOFilterSpeed 258 210 true 0.0 10.0 0.0 50 true 220 280 Amt. 266 281 Speed 327 306 Shape Osc1Sym 416 102 true 0.0 1.0 0.5 50 true Osc2Sym 607 102 true 0.0 1.0 0.5 50 true 424 173 Sym 618 173 Sym UseMixEnv 691 260 Use Mix Env. false true UseSubEnv 799 260 Use Sub Env. false true LFOFilterShape 209 304 Sine [Bi] 0 Triangle [Bi] 1 Square [Bi] 2 Square [Uni] 3 Saw [Uni] 4 Saw down [Uni] 5 3 true Bandwidth 130 207 true 0.0 15000.0 0.0 50 true 146 280 BW Filter 77 172 None -1 LP 0 BP 2 HP 1 Moog 5 Reson 6 ResonX 7 ResonY 8 ResonR 9 Butter BP 10 Butter BR 11 0 true 209 173 <html>Filter LFO</html> FTableTime 266 414 true 0.0 10.0 3.0 50 true FTableMode 264 375 p3 0 Time cycle 1 Tempo cycle 2 Time abs 3 0 true 276 492 Time 264 342 Envelope Mode: OTableTime 944 413 true 0.0 10.0 1.0 50 true OTableMode 942 374 p3 0 Time cycle 1 Tempo cycle 2 Time abs 3 0 true 954 491 Time 942 341 Envelope Mode: ver2:0.5 ver2:400 ver2:3.2000000477 ver2:8 version=2@_@Cutoff:0.0:1.0:0.42982456:1.0:1.0:0.0@_@Q:0.0:0.25:1.0:0.25 version=2@_@Mix:0.0:1.0:0.25:1.0:0.256:0.0:0.5:0.0:0.5:0.4324324:0.75:0.4324324:0.75:0.0067567825:1.0:0.0@_@SubVol:0.0:0.0:1.0:0.0@_@Fold:0.0:1.0:1.0:1.0 3 ver2:2 4 ver2:1000 ver2:440 1 0 ver2:50 0 ver2:0.25 ver2:0.5081380606 1 ver2:1 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:1.5 ver2:0.4579446018 ver2:0.7340204716 12.0 true false 0 1 ver2:0 ver2:400 ver2:3.2000000477 ver2:8 version=2@_@Cutoff:0.0:1.0:0.19298245:1.0067568:0.19298245:0.0:1.0:0.0@_@Q:0.0:0.25:0.81578946:0.25675678:0.81578946:0.972973:1.0:0.972973:1.0:0.25 version=2@_@Mix:0.0:1.0:0.25:1.0:0.256:0.0:0.5:0.0:0.5:0.4324324:0.75:0.4324324:0.75:0.0067567825:1.0:0.0@_@SubVol:0.0:0.0:1.0:0.0@_@Fold:0.0:1.0:1.0:1.0 1 ver2:1 4 ver2:1000 ver2:440 1 0 ver2:300 3 ver2:1.25 ver2:0.5081380606 1 ver2:1 ver2:0.4941214323 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:1.5 ver2:0.3155192137 ver2:0.7340204716 0.0 false false 1 0 ver2:0 ver2:400 ver2:3.2000000477 ver2:8 version=2@_@Cutoff:0.0:1.0:0.19298245:1.0067568:0.19298245:0.0:0.61403507:0.0:0.61403507:0.30405408:1.0:0.0@_@Q:0.0:0.25:0.75438595:0.4864865:1.0:0.25 version=2@_@Mix:0.0:1.0:0.25:1.0:0.256:0.0:0.5:0.0:0.5:0.4324324:0.75:0.4324324:0.75:0.0067567825:1.0:0.0@_@SubVol:0.0:0.0:1.0:0.0@_@Fold:0.0:1.0:1.0:1.0 3 ver2:3 4 ver2:1000 ver2:440 1 0 ver2:300 3 ver2:1.25 ver2:0.5081380606 1 ver2:1 ver2:0.4941214323 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:1.5 ver2:0.3155192137 ver2:0.7340204716 0.0 false false 1 0 ver2:0 ver2:0 ver2:2 ver2:0 version=2@_@Cutoff:0.0:1.0:1.0:0.0@_@Q:0.0:0.08108109:1.0:0.060810804 version=2@_@Mix:0.0:1.0:0.25:1.0:0.256:0.0:0.5:0.0:0.5:0.4324324:0.75:0.4324324:0.75:0.0067567825:1.0:0.0@_@SubVol:0.0:0.0:1.0:0.0@_@Fold:0.0:1.0:1.0:1.0 0 ver2:3 4 ver2:0 ver2:15000 1 1 ver2:0 3 ver2:0 ver2:0.5 0 ver2:1 ver2:0.5 ver2:0.5 ver2:0 ver2:0 ver2:0 ver2:0 ver2:1.5 ver2:0 ver2:0.75 0.0 false false 0 0 panner kk k ; sin/cos taper, constant power. kPanpos xin kPanpos = kPanpos/2 kPanpos = kPanpos * 3.14159265359 * .5 kLeft = sqrt(2) / 2 * (cos(kPanpos) + sin(kPanpos)) kRight = sqrt(2) / 2 * (cos(kPanpos) - sin(kPanpos)) xout kLeft,kRight scoreDefault i iio iPfield,iGui,iDefault xin if (iPfield == iDefault) then iRes = iGui else iRes = iPfield endif xout iRes addNote i i i o o iPitch, iSemi,iCent,iMidiMode xin iRatio = semitone (iSemi + iCent/100) if (iMidiMode == 1) then ; Midi key iPitch = powoftwo((iPitch - 69)/12) * 440 endif if (iPitch < 15) then ; pch iPitch = cpspch(iPitch) endif xout iPitch * iRatio addPch i i i o iNote1, iNote2, iIsSemi xin iBase1 = int(iNote1) iFrac1 = (iNote1 - iBase1) * 100 if (iIsSemi == 0) then iBase2 = int(iNote2) iFrac2 = (iNote2 - iBase2) * 100 else iBase2 = int(iNote2 / 12) iFrac2 = (iNote2 % 12) endif iFracAdd = iFrac1 + iFrac2 if (iFracAdd > 11) then iOver = 1 iFrac = (iFracAdd % 12) / 100 else iOver = 0 iFrac = iFracAdd / 100 endif xout iBase1 + iBase2 + iOver + iFrac absAdsr k i i i i iAtk, iDcy, iSus, iRel xin if (iAtk == 0) then iAtk = 0.0001 endif if (iDcy == 0) then iDcy = 0.0001 endif if (iAtk >= p3) then iLvl = p3/iAtk kamp linseg 0, p3, iLvl, iRel, 0 elseif (iAtk + iDcy >= p3) then iDcyTime = p3 - iAtk iDcyLevel = iSus * p3 / iDcy kamp linseg 0, iAtk, 1, p3 - iAtk, iDcyLevel, iRel, 0 else kamp linseg 0, iAtk, 1, iDcy, iSus, p3 - (iAtk + iDcy), iSus, iRel, 0 endif p3 = p3 + iRel xout kamp multiFilter a a i i i k k k i ain,iFilterType,iCut1,iCut2,kRez,kEnv,kLfo, iBandwidth xin kCut = iCut1 + (iCut2 * kEnv) + kLfo kCut limit kCut,100,20000 ;printk 0.25,kCut if (iFilterType >= 0) then if (iFilterType <= 4) then kRez scale kRez, 10, 1 ares bqrez ain, kCut, kRez, iFilterType elseif (iFilterType == 5) then ares moogvcf2 ain, kCut, kRez , 0dbfs elseif (iFilterType == 6) then ares reson ain, kCut, iBandwidth elseif (iFilterType == 7) then ares resonx ain, kCut, iBandwidth elseif (iFilterType == 8) then kRez scale kRez, 10, 1 ares resony ain, kCut, iBandwidth, 2, kRez elseif (iFilterType == 9) then ares resonr ain, kCut, iBandwidth elseif (iFilterType == 10) then ares butterbp ain,kCut,iBandwidth elseif (iFilterType == 11) then ares butterbr ain,kCut,iBandwidth endif else ares = ain endif xout ares makePhasor k iii iMode, iSpeed, iTempo xin if (iMode == 0) then ;classic csound mode kIdx phasor 1/p3 elseif (iMode == 1) then ; cycle abs. Speed kIdx phasor 1/iSpeed elseif (iMode == 2) then ; cycle tempo iPhasorTime = 60/iTempo * iSpeed kIdx phasor 1/iPhasorTime else ; one shot abs. Speed = hardware/vst mode kIdx linseg 0,iSpeed,1 endif xout kIdx