form caption("gbuzz Synth") size(855, 375), pluginid("GBuz") image bounds( 0, 0,855,295), colour("DarkSlateGrey"), outlinecolour("White"), outlinethickness(1), shape("sharp") ; main panel colouration ;MAIN image bounds( 10, 6,495, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("main"){ ;main label bounds( 0, 5,495, 12), text(". M A I N ."), fontcolour(white) rslider bounds( 0, 23, 62, 62), text("Level"), colour(SlateGrey) channel("level"), range(0,20, 10,0.5,0.001), textcolour(white) rslider bounds( 60, 23, 62, 62), text("Power"), colour(SlateGrey) channel("mul"), range(0, 0.97, 0.1), textcolour(white) rslider bounds(120, 23, 62, 62), text("Lowest"), colour(SlateGrey) channel("lh"), range(1, 40, 3,1,1), textcolour(white) rslider bounds(180, 23, 62, 62), text("Number"), colour(SlateGrey) channel("nh"), range(1,200,10,1,1), textcolour(white) rslider bounds(240, 23, 62, 62), text("Jitter"), colour(SlateGrey) channel("jitter"), range(0, 1, 0.4), textcolour(white) rslider bounds(300, 23, 62, 62), text("Pan"), colour(SlateGrey) channel("pan"), range(0, 1, 0.5), textcolour(white) label bounds(368, 19, 55, 11), text("Waveform"), fontcolour(white) combobox bounds(365, 30, 60, 18), channel("waveform"), value(3), text("cosine", "sine", "user") label bounds(368, 52, 60, 11), text("User Matrix"), fontcolour(white) checkbox bounds(368, 63, 10, 10), channel("part1"), fontcolour(white), colour("lime"), value(1) checkbox bounds(378, 63, 10, 10), channel("part2"), fontcolour(white), colour("lime"), value(0) checkbox bounds(388, 63, 10, 10), channel("part3"), fontcolour(white), colour("lime"), value(1) checkbox bounds(398, 63, 10, 10), channel("part4"), fontcolour(white), colour("lime"), value(0) checkbox bounds(408, 63, 10, 10), channel("part5"), fontcolour(white), colour("lime"), value(0) checkbox bounds(418, 63, 10, 10), channel("part6"), fontcolour(white), colour("lime"), value(0) checkbox bounds(368, 73, 10, 10), channel("part7"), fontcolour(white), colour("lime"), value(1) checkbox bounds(378, 73, 10, 10), channel("part8"), fontcolour(white), colour("lime"), value(0) checkbox bounds(388, 73, 10, 10), channel("part9"), fontcolour(white), colour("lime"), value(0) checkbox bounds(398, 73, 10, 10), channel("part10"), fontcolour(white), colour("lime"), value(1) checkbox bounds(408, 73, 10, 10), channel("part11"), fontcolour(white), colour("lime"), value(1) checkbox bounds(418, 73, 10, 10), channel("part12"), fontcolour(white), colour("lime"), value(0) rslider bounds(430, 23, 62, 62), text("Octave"), colour(SlateGrey) channel("octave"),range(-8, 8, -4,1,1), textcolour(white) } ;POLYPHONY image bounds(510, 6,170, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("polyphony"){ ;polyphony label bounds( 0, 5,170, 12), text(". P O L Y P H O N Y ."), fontcolour(white) button bounds( 10, 24, 70, 25), text("poly", "mono"), channel("monopoly"), value(1) rslider bounds(110, 26, 60, 60), text("Leg.Time"), channel("LegTim"), range(0.01, 15, 0.05, 0.25, 0.00001), textcolour(white) colour(SlateGrey) label bounds( 37, 54, 30, 11), text("Mode"), fontcolour(white) combobox bounds( 10, 65, 90, 18), channel("PortMode"), value(1), text("Fixed", "Proportional") } ;PITCH BEND image bounds(685, 6,160, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("pitchbend"){ ;pitch bend label bounds( 0, 5,160, 12), text(". P I T C H B E N D ."), fontcolour(white) rslider bounds( 15, 23, 60, 60), textcolour("white"), text("P.Bend"), channel("PBend"), range(-1,1, 0), colour(SlateGrey) rslider bounds( 90, 23, 60, 60), textcolour("white"), text("Bend Rng."), channel("BendRange"), range(1, 24, 12, 1,1), colour(SlateGrey) } ;MULTIPLIER ENVELOPE image bounds( 10,101,305, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("multiplierenvelope"){ ;multiplier envelope label bounds( 0, 5,305, 12), text(". M U L T I P L I E R E N V E L O P E ."), fontcolour(white) rslider bounds( 0, 23, 62, 62), text("Att"), colour(SlateGrey) channel("MAtt"),range(0, 8.000, 0.01, 0.375,0.0001), textcolour(white) rslider bounds( 60, 23, 62, 62), text("Lev"), colour(SlateGrey) channel("MLev"),range(0, 1.000, 0.6), textcolour(white) rslider bounds(120, 23, 62, 62), text("Dec"), colour(SlateGrey) channel("MDec"),range(0, 8.000, 3, 0.375,0.0001), textcolour(white) rslider bounds(180, 23, 62, 62), text("Sus"), colour(SlateGrey) channel("MSus"),range(0, 1.000, 0), textcolour(white) rslider bounds(240, 23, 62, 62), text("Rel"), colour(SlateGrey) channel("MRel"),range(0, 8.000, 0.1, 0.375,0.0001), textcolour(white) } ;LOW CUT image bounds(320,101,125, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("lowcut"){ ;Low Cut checkbox bounds( 30, 6, 70, 12), text("Low Cut") channel("LowCutOnOff"), fontcolour(white), colour("lime") rslider bounds( 0, 23, 62, 62), text("Low Cut"), colour(SlateGrey) channel("LowCut"), range(0, 30.00, 0,1,0.0011), textcolour(white) rslider bounds( 60, 23, 62, 62), text("Lo Poles"), colour(SlateGrey) channel("LowPoles"), range(2, 30, 2,1,1), textcolour(white) } ;HIGH CUT image bounds(450,101,125, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("highcut"){ ;High Cut checkbox bounds( 28, 6, 70, 12), text("High Cut") channel("HighCutOnOff"), fontcolour(white), colour("lime"), value(1) rslider bounds( 2, 23, 62, 62), text("High Cut"), colour(SlateGrey) channel("HighCut"), range(1, 100.00, 7,0.25,0.0001), textcolour(white) rslider bounds( 62, 23, 62, 62), text("Hi Poles"), colour(SlateGrey) channel("HighPoles"), range(2, 30, 8,1,1), textcolour(white) } ;NOISE image bounds(580,101,125, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("noise"){ ;NOISE label bounds( 0, 5,125, 12), text(". N O I S E ."), fontcolour(white) rslider bounds( 2, 23, 62, 62), text("Depth"), colour(SlateGrey) channel("NoiseAmp"), range(0,300.00, 0, 1, 0.0001), textcolour(white) rslider bounds( 62, 23, 62, 62), text("Damp"), colour(SlateGrey) channel("NoiseDamp"), range(15, 10000, 1000, 0.5, 0.01), textcolour(white) } ;REVERB image bounds(710,101,135, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("reverb"){ ;reverb label bounds( 0, 5,135, 12), text(". R E V E R B ."), fontcolour(white) rslider bounds( 5, 23, 60, 60), text("Mix"), channel("RvbMix"), range(0, 1, 0.3), textcolour(white) colour(SlateGrey) rslider bounds( 70, 23, 60, 60), text("Size"), channel("RvbSize"), range(0.3, 1, 0.7), textcolour(white) colour(SlateGrey) } ;AMPLITUDE ENVELOPE image bounds( 10,196,305, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("amplitudeenvelope"){ ;amplitude envelope label bounds( 0, 5,305, 12), text(". A M P L I T U D E E N V E L O P E ."), fontcolour(white) rslider bounds( 0, 23, 62, 62), text("Att"), colour(SlateGrey) channel("AAtt"),range(0, 8.000, 0, 0.375,0.0001), textcolour(white) rslider bounds( 60, 23, 62, 62), text("Lev"), colour(SlateGrey) channel("ALev"),range(0, 1.000, 1), textcolour(white) rslider bounds(120, 23, 62, 62), text("Dec"), colour(SlateGrey) channel("ADec"),range(0, 8.000, 3, 0.375,0.0001), textcolour(white) rslider bounds(180, 23, 62, 62), text("Sus"), colour(SlateGrey) channel("ASus"),range(0, 1.000, 0), textcolour(white) rslider bounds(240, 23, 62, 62), text("Rel"), colour(SlateGrey) channel("ARel"),range(0, 8.000, 0.05, 0.375,0.0001), textcolour(white) } ;MODULATION image bounds(320,196,525, 90), colour("DarkSlateGrey"), oulinecolour("white"), outlinethickness(2), shape("sharp"), plant("modulation"){ ;MODULATION label bounds( 0, 5,525, 12), text(". M O D U L A T I O N ."), fontcolour(white) rslider bounds( 22, 23, 62, 62), text("Mod.Depth"), colour(SlateGrey) channel("mod"), range(0, 1.00, 0.7), textcolour(white) rslider bounds( 82, 23, 62, 62), text("Delay"), colour(SlateGrey) channel("VDel"), range(0, 4.00, 0), textcolour(white) rslider bounds(142, 23, 62, 62), text("Rise"), colour(SlateGrey) channel("VRis"), range(0, 5.00, 1.5), textcolour(white) rslider bounds(202, 23, 62, 62), text("Rate"), colour(SlateGrey) channel("VRate"), range(0,30.00, 2.7), textcolour(white) rslider bounds(262, 23, 62, 62), text("Rate Rnd."), colour(SlateGrey) channel("VRatRnd"),range(0, 2.00, 0.5), textcolour(white) rslider bounds(322, 23, 62, 62), text("Vib.Dep."), colour(SlateGrey) channel("VibDep"), range(0, 1.00, 0.2), textcolour(white) rslider bounds(382, 23, 62, 62), text("Trem.Dep."), colour(SlateGrey) channel("TremDep"),range(0, 0.5, 0.3), textcolour(white) rslider bounds(442, 23, 62, 62), text("Tone Dep."), colour(SlateGrey) channel("ToneDep"),range(0, 4.00, 0), textcolour(white) } keyboard pos(0, 295), size(855, 80) -dm0 -n -+rtmidi=NULL -M0 sr = 44100 ksmps = 16 nchnls = 2 0dbfs = 1 ;MAXIMUM AMPLITUDE seed 0 massign 0,2 ;Author: Iain McCurdy (2012) gicos ftgen 0,0,131072,9,1,1,90 ;FUNCTION TABLE THAT STORES A SINGLE CYCLE OF A COSINE WAVE gisine ftgen 0,0,131072,10,1 ;A SINE WAVE. USED BY THE LFOs. giwave ftgen 999,0,131073,10,1,0,1 ;USER WAVEFORM gasendL,gasendR init 0 ;FUNCTION TABLE USED TO RE-MAP THE RELATIONSHIP BETWEEN VELOCITY AND ATTACK TIME giattscl ftgen 0,0,128,-16,2,128,-10,0.005 giNAttScl ftgen 0,0,128,-16,8,128,-4,0.25 gkactive init 0 ; Will contain number of active instances of instr 3 when legato mode is chosen. NB. notes in release stage will not be regarded as active. opcode FreqShifter,a,aki ain,kfshift,ifn xin ;READ IN INPUT ARGUMENTS areal, aimag hilbert ain ;HILBERT OPCODE OUTPUTS TWO PHASE SHIFTED SIGNALS, EACH 90 OUT OF PHASE WITH EACH OTHER asin oscili 1, kfshift, ifn, 0 acos oscili 1, kfshift, ifn, 0.25 ;RING MODULATE EACH SIGNAL USING THE QUADRATURE OSCILLATORS AS MODULATORS amod1 = areal * acos amod2 = aimag * asin ;UPSHIFTING OUTPUT aFS = (amod1 - amod2) xout aFS ;SEND AUDIO BACK TO CALLER INSTRUMENT endop opcode SsplinePort,k,KkkO ;DEFINE OPCODE knum,kporttime,kcurve,iopt xin ;READ IN INPUT ARGUMENTS kout init i(knum) ;INITIALISE TO OUTPUT VALUE (PORTAMENTO APPLIED VALUE) ktrig changed knum ;...GENERATE A TRIGGER IS A NEW NOTE NUMBER IS GENERATED (FROM INSTR. 1) if ktrig=1 then ;IF A NEW (LEGATO) NOTE HAS BEEN PRESSED reinit S_CURVE ;BEGIN A REINITIALISATION PASS FROM LABEL endif ;END OF CONDITIONAL BRANCH S_CURVE: ;A LABEL. REINITIALISATION BEGINS FROM HERE. if iopt!=0 then ;IF ABSOLUTE/PROPORTIONAL SWITCH IS ON... (I.E. PROPORTIONAL) idiff = 1+abs(i(knum)-i(kout)) ;ABSOLUTE DIFFERENCE BETWEEN OLD NOTE AND NEW NOTE IN STEPS (+ 1) kporttime = kporttime*idiff ;SCALE PORTAMENTO TIME ACCORDING TO THE NOTE GAP endif ;END OF CONDITIONAL BRANCH imid = i(kout)+((i(knum)-i(kout))/2) ;SPLINE MID POINT VALUE isspline ftgentmp 0,0,4096,-16,i(kout),4096*0.5,i(kcurve),imid,(4096/2)-1,-i(kcurve),i(knum) ;GENERATE 'S' SPLINE kspd = i(kporttime)/kporttime ;POINTER SPEED AS A RATIO (WITH REFERENCE TO THE ORIGINAL DURATION) kptr init 0 ;POINTER INITIAL VALUE kout tablei kptr,isspline ;READ VALUE FROM TABLE kptr limit kptr+((ftlen(isspline)/(i(kporttime)*kr))*kspd), 0, ftlen(isspline)-1 ;INCREMENT THE POINTER BY THE REQUIRED NUMBER OF TABLE POINTS IN ONE CONTROL CYCLE AND LIMIT IT BETWEEN FIRST AND LAST TABLE POINT - FINAL VALUE WILL BE HELD IF POINTER ATTEMPTS TO EXCEED TABLE DURATION rireturn ;RETURN FROM REINITIALISATION PASS xout kout ;SEND PORTAMENTOED VALUES BACK TO CALLER INSTRUMENT endop instr 1 ; read in widgets kporttime linseg 0,0.001,0.05 gkmul chnget "mul" gklh chnget "lh" gknh chnget "nh" gkjitter chnget "jitter" gkwaveform chnget "waveform" gkoctave chnget "octave" gkpart1 chnget "part1" gkpart2 chnget "part2" gkpart3 chnget "part3" gkpart4 chnget "part4" gkpart5 chnget "part5" gkpart6 chnget "part6" gkpart7 chnget "part7" gkpart8 chnget "part8" gkpart9 chnget "part9" gkpart10 chnget "part10" gkpart11 chnget "part11" gkpart12 chnget "part12" ktrig changed gkpart1,gkpart2,gkpart3,gkpart4,gkpart5,gkpart6,gkpart7,gkpart8,gkpart9,gkpart10,gkpart11,gkpart12 if ktrig==1 then reinit USER_WAVEFORM endif USER_WAVEFORM: giwave ftgen 999,0,131073,10,i(gkpart1),i(gkpart2),i(gkpart3),i(gkpart4),i(gkpart5),i(gkpart6),i(gkpart7),i(gkpart8),i(gkpart9),i(gkpart10),i(gkpart11),i(gkpart12) ;USER WAVEFORM rireturn gkmonopoly chnget "monopoly" printk2 gkmonopoly gkLegTim chnget "LegTim" gkPortMode chnget "PortMode" gkpan chnget "pan" gklevel chnget "level" gkRvbMix chnget "RvbMix" gkRvbSize chnget "RvbSize" gkMAtt chnget "MAtt" ; multiplier envelope gkMLev chnget "MLev" gkMDec chnget "MDec" gkMSus chnget "MSus" gkMRel chnget "MRel" gkAAtt chnget "AAtt" ; amplitude envelope gkALev chnget "ALev" gkADec chnget "ADec" gkASus chnget "ASus" gkARel chnget "ARel" gkLowCutOnOff chnget "LowCutOnOff" gkLowCut chnget "LowCut" gkLowPoles chnget "LowPoles" gkHighCutOnOff chnget "HighCutOnOff" gkHighCut chnget "HighCut" gkHighPoles chnget "HighPoles" gkmod chnget "mod" ; modulation gkVDel chnget "VDel" gkVRis chnget "VRis" gkVRate chnget "VRate" gkVRatRnd chnget "VRatRnd" gkVibDep chnget "VibDep" gkTremDep chnget "TremDep" gkToneDep chnget "ToneDep" gkNoiseAmp chnget "NoiseAmp" ; noise gkNoiseDamp chnget "NoiseDamp" gkPBend chnget "PBend" ; pitch bend kMOUSE_DOWN_LEFT chnget "MOUSE_DOWN_LEFT" kOff init 0 if trigger(kMOUSE_DOWN_LEFT,0.5,1)==1 then chnset kOff,"PBend" endif gkBendRange chnget "BendRange" gkPchBend portk (gkPBend)*gkBendRange, kporttime endin instr 2 ;triggered via MIDI gkNoteTrig init 1 ;at the beginning of a new note set note trigger flag to '1' inum notnum ;read in midi note number givel veloc 0,1 ;read in midi note velocity gknum = inum ;update a global krate variable for note pitch ;============================================================================================================================================================ if i(gkmonopoly)==0 then ; if we are *not* in legato mode... ; METHOD 1: calling sub-instruments using event_1, fractional p1s and turnoff2s. (problematic on windows) ; event_i "i",p1+1+(inum*0.001),0,-1,inum ; call sound producing instr ;krel release ; release flag (1 when note is released, 0 otherwise) ;if krel==1 then ; when note is released... ; turnoff2 p1+1+(inum*0.001),4,1 ; turn off the called instrument ;endif ; end of conditional ; METHOD 2: using subinstr (problematic on windows and mac) ;a1,a2 subinstr 3,inum ; outs a1,a2 ; METHOD 3: all instr code within the same instrument (the safest option on windows and mac, if rather inelegant) kporttime linseg 0,0.001,1 ;portamento time function rises quickly from zero to a held value kglisstime = kporttime*gkLegTim ;scale portamento time function with value from GUI knob widget /* MODULATION */ krate randomi gkVRate-gkVRatRnd,gkVRate+gkVRatRnd,1,1 kModRise linseg 0,i(gkVDel)+0.0001, 0, i(gkVRis)+0.0001, 1 kmod lfo gkmod*kModRise,krate,0 kporttime linseg 0,0.001,1 ;CREATE A FUNCTION THAT RISES RAPIDLY FROM ZERO TO A FIXED VALUE THAT WILL BE USED FOR PORTAMENTO TIME ;------------------------------------------------------------------------------------------------------------ ;PITCH JITTER (THIS WILL BE USED TO ADD HUMAN-PLAYER REALISM) ;------------------------------------------------------------------------------------------------------------ ; AMP | MIN_FREQ. | MAX_FREQ kPitchJit jitter 0.05*gkjitter*4, 1, 20 ;------------------------------------------------------------------------------------------------------------ ;AMPLITUDE JITTER (THIS WILL BE USED TO ADD HUMAN-PLAYER REALISM) ;------------------------------------------------------------------------------------------------------------ ; AMP | MIN_FREQ. | MAX_FREQ kAmpJit jitter 0.1*gkjitter*4, 0.2, 1 kAmpJit = kAmpJit+1 ;OFFSET SO IT MODULATES ABOUT '1' INSTEAD OF ABOUT ZERO knum = inum+kPitchJit ;DERIVE K-RATE NOTE NUMBER VALUE INCORPORATING PITCH BEND, VIBRATO, AND PITCH JITTER /* OSCILLATOR */ kmul portk gkmul, kporttime*0.1 ;kMulEnv linsegr 0, i(gkMAtt)+0.0001, i(gkMLev), i(gkMDec)+0.0001, i(gkMSus), i(gkMRel)+0.0001, 0 kMulEnv expsegr 0.001, i(gkMAtt)+0.0001, i(gkMLev)+0.001, i(gkMDec)+0.0001, i(gkMSus)+0.001, i(gkMRel)+0.0001, 0.001 kMulEnv = kMulEnv + 0.001 ; offset kmul = kmul+kMulEnv+(kmod*gkToneDep) kmul limit kmul,0,0.9 knum = knum + gkPchBend + (kmod*gkVibDep) ifn = ( i(gkwaveform) < 3 ? (gicos+i(gkwaveform)-1) : giwave) knum = knum+(gkoctave*12) asig gbuzz (kAmpJit*0.1)*(1+(kmod*gkTremDep*0.9)), cpsmidinn(knum), gknh, gklh, kmul, ifn;gicos+i(gkwaveform)-1 /* NOISE */ kNoiseAmp expcurve kmul,40 kNoiseAmp scale kNoiseAmp,2,0.1 anoise gauss kNoiseAmp*gkNoiseAmp anoise butlp anoise,gkNoiseDamp asig = asig * (1+anoise) /* LOW CUT / HIGH CUT FILTERS */ ;FILTER if gkLowCutOnOff=1 then kLowCut portk gkLowCut,kporttime*0.1 kLowCut limit cpsmidinn(knum)*kLowCut,20,sr/2 ktrig changed gkLowPoles if ktrig=1 then reinit RESTART_LOWCUT endif RESTART_LOWCUT: asig clfilt asig,kLowCut,1,i(gkLowPoles) rireturn endif if gkHighCutOnOff==1 then kHighCut portk gkHighCut,kporttime*0.1 kHighCut limit cpsmidinn(knum)*kHighCut,20,sr/2 ktrig changed gkHighPoles if ktrig=1 then reinit RESTART_HIGHCUT endif RESTART_HIGHCUT: asig clfilt asig,kHighCut,0,i(gkHighPoles) rireturn endif aenv linsegr 0,i(gkAAtt)+0.0001,i(gkALev),i(gkADec),i(gkASus),i(gkARel),0 ;AMPLITUDE ENVELOPE asig = asig * aenv klevel portk gklevel,kporttime*0.1 kpan portk gkpan,kporttime*0.1 kRvbMix portk gkRvbMix,kporttime*0.1 aL,aR pan2 asig*klevel,kpan ;scale amplitude level and create stereo panned signal outs aL*(1-gkRvbSize), aR*(1-gkRvbSize) ;SEND AUDIO TO THE OUTPUTS gasendL = gasendL+aL*kRvbMix gasendR = gasendR+aR*kRvbMix ;============================================================================================================================================================ else ;otherwise... (i.e. legato mode) ;iactive active p1+1 ;check to see if there is already a note active... iactive = i(gkactive) ;number of active notes of instr 3 (note in release are disregarded) if iactive==0 then ;...if no notes are active event_i "i",p1+1,0,-1 ;...start a new held note endif endif endin instr 3 ;gbuzz instrument. MIDI notes are directed here. kporttime linseg 0,0.001,1 ;portamento time function rises quickly from zero to a held value kglisstime = kporttime*gkLegTim ;scale portamento time function with value from GUI knob widget /* MODULATION */ krate randomi gkVRate-gkVRatRnd,gkVRate+gkVRatRnd,1,1 if gkNoteTrig==1 then reinit RESTART_MOD_ENV endif RESTART_MOD_ENV: kModRise linseg 0,i(gkVDel)+0.0001, 0, i(gkVRis)+0.0001, 1 kmod lfo gkmod*kModRise,krate,0 rireturn gkNoteTrig = 0 ;reset new-note trigger (in case it was '1') if i(gkmonopoly)==1 then ;if we are in legato mode... krel release ;sense when note has been released gkactive = 1-krel ;if note is in release, gkactive=0, otherwise =1 knum SsplinePort gknum,kglisstime,1,i(gkPortMode)-1 kactive active p1-1 ;...check number of active midi notes (previous instrument) if kactive==0 then ;if no midi notes are active... turnoff ;... turn this instrument off endif else ;otherwise... (polyphonic / non-legato mode) knum = p4 ;pitch equal to the original note pitch endif ivel init givel ;------------------------------------------------------------------------------------------------------------ ;PITCH JITTER (THIS WILL BE USED TO ADD HUMAN-PLAYER-LIKE INSTABILITY) ;------------------------------------------------------------------------------------------------------------ ; AMP | MIN_FREQ. | MAX_FREQ kPitchJit jitter 0.05*gkjitter*4, 1, 20 ;------------------------------------------------------------------------------------------------------------ ;AMPLITUDE JITTER (THIS WILL BE USED TO ADD HUMAN-PLAYER-LIKE INSTABILITY) ;------------------------------------------------------------------------------------------------------------ ; AMP | MIN_FREQ. | MAX_FREQ kAmpJit jitter 0.1*gkjitter*4, 0.2, 1 kAmpJit = kAmpJit+1 ;OFFSET SO IT MODULATES ABOUT '1' INSTEAD OF ABOUT ZERO knum = knum+kPitchJit ;DERIVE K-RATE NOTE NUMBER VALUE INCORPORATING PITCH BEND, VIBRATO, AND PITCH JITTER /* OSCILLATOR */ kmul portk gkmul, kporttime*0.1 ;kMulEnv linsegr 0, i(gkMAtt)+0.0001, i(gkMLev), i(gkMDec)+0.0001, i(gkMSus), i(gkMRel)+0.0001, 0 kMulEnv expsegr 0.001, i(gkMAtt)+0.0001, i(gkMLev)+0.001, i(gkMDec)+0.0001, i(gkMSus)+0.001, i(gkMRel)+0.0001, 0.001 kMulEnv = kMulEnv + 0.001 ; offset kmul = kmul+kMulEnv+(kmod*gkToneDep) kmul limit kmul,0,0.9 knum = knum + gkPchBend + (kmod*gkVibDep) ifn = ( i(gkwaveform) < 3 ? (gicos+i(gkwaveform)-1) : giwave) asig gbuzz (kAmpJit*0.1)*(1+(kmod*gkTremDep*0.9)), cpsmidinn(knum+(gkoctave*12)), gknh, gklh, kmul, ifn;gicos+i(gkwaveform)-1 /* NOISE */ kNoiseAmp expcurve kmul,40 kNoiseAmp scale kNoiseAmp,2,0.1 anoise gauss kNoiseAmp*gkNoiseAmp anoise butlp anoise,gkNoiseDamp asig = asig * (1+anoise) /* LOW CUT / HIGH CUT FILTERS */ ;FILTER if gkLowCutOnOff=1 then kLowCut portk gkLowCut,kporttime*0.1 kLowCut limit cpsmidinn(knum)*kLowCut,20,sr/2 ktrig changed gkLowPoles if ktrig=1 then reinit RESTART_LOWCUT endif RESTART_LOWCUT: asig clfilt asig,kLowCut,1,i(gkLowPoles) endif if gkHighCutOnOff==1 then kHighCut portk gkHighCut,kporttime*0.1 kHighCut limit cpsmidinn(knum)*kHighCut,20,sr/2 ktrig changed gkHighPoles if ktrig=1 then reinit RESTART_HIGHCUT endif RESTART_HIGHCUT: asig clfilt asig,kHighCut,0,i(gkHighPoles) rireturn endif aenv linsegr 0,i(gkAAtt)+0.0001,i(gkALev),i(gkADec),i(gkASus),i(gkARel),0 ;AMPLITUDE ENVELOPE asig = asig * aenv klevel portk gklevel,kporttime*0.1 kpan portk gkpan,kporttime*0.1 kRvbMix portk gkRvbMix,kporttime*0.1 aL,aR pan2 asig*klevel,kpan ;scale amplitude level and create stereo panned signal outs aL*(1-gkRvbSize), aR*(1-gkRvbSize) ;SEND AUDIO TO THE OUTPUTS gasendL = gasendL+aL*kRvbMix gasendR = gasendR+aR*kRvbMix endin instr 5 ;reverb if gkRvbMix==0 kgoto SKIP_REVERB aL,aR reverbsc gasendL,gasendR,gkRvbSize,12000 outs aL,aR clear gasendL,gasendR SKIP_REVERB: endin i 1 0 3600 ; read widgets i 5 0 3600 ; reverb f 0 3600