FM_Clang FM_Clang Cabbage original written by Iain McCurdy, 2014 Blue Instrument version translated and extended by Steven Yi, 2017.10.06 ============ DESCRIPTION ============ An FM synthesis based instrument that specialises in creating percussive metallic 'clang'-like sounds. AMPLITUDE - controls pertaining to the control of each notes amplitude Level - Global amplitude control Attack - Attack time. Actually just a small range of control but increasing it can soften the attack subtly Vel.Att. - Degree to which lower note velocities lengthen attack time. Duration - Duration of the overall amplitude decay. Note that depending on other settings notes may actually sound for a shorter time. Sustain - Similar to the effect of a sustain pedal being depressed. MODULATOR - controls pertaining to the modulator in the FM algorithm Ratio - Ratio of the modulator frequency to that of the carrier. Vel.Index - Index of modulation. This is also always dependent upon note velocity. Decay - Rate of decay of the index. This is heard as the rate of loss of spectral energy or damping. CARRIER - controls pertaining to the carrier in the FM algorithm Kyb.Scale - Keyboard scaling of the carrier frequency. Zero means that frequencies follow normal keyboard temperament. Values less than zero mean that frequency intervals from note to note will be compressed. Values greater than zero mean that frequency intervals from note to note will be expanded. DETUNE - Two FM carrier/modulator pairings can be created with a detuning offset between them to create beating effects. Detuning will also be unique (and repeatable) from note to note to give the instrument character. Mix - Amplitude of the second FM pair. This will control the amplitude of beating (amplitude modulation) effects resulting from the detuning. Amount - Amplitude of the detuning intervals STEREO - A stereo broadening effect by applying short delays to the left and right channels. The exact durations of the delays will be unique (and repeatable) from note to note to give the instrument character. Dry/Wet - A dry/wet control of this effect Width - A control of the durations of the delays which is heard as a control of the stereo width of the effect. NOISE - Filtered gaussian noise can be added to the modulator ratio to add discordancy to the tone. Amount - Amplitude of the gaussian noise signal Filter - Narrowness of the bandpass filtering applied to the gaussian noise Follow Modulator (checkbox) - Selects whether the bandpass filter follows the modulator frequency. If 'off' it simply follows the carrier frequency. LFO - A sine shaped LFO added to the modulator ratio of an auxilliary FM pair which is then mixed to an unmodulated pair. This can introduce spectral modulation, as in a bell swinging back and forth as it rings. Mix - Amount of modulated signal mixed into the output. Depth - Depth of the LFO modulation. Rate - Rate of the LFO modulation. Kybd.Follow - Extend to which the rate of LFO modulation follows keyboard notes - keyboard following means that lower notes will modulate at lower frequencies, higher notes will modulate at higher frequencies. FILTER - Filtering of the sound LPF - A lowpass filter that follows the fundemental frequency of the FM pair Filter Fundemental (checkbox) - If active, the fundemental will be filtered off. REVERB - a reverb effect using the freeverb opcode USE MIDI PFIELDS - Allow working with p4=MIDI Key (0-127), p5=MIDI Vel (0-127), or with p4=PCH or Freq, p5 = amdbfs [-96, 0] ========= REQUIRES ========= * Blue 2.7.1 * Csound 6+ ======== HISTORY ======== v1.1 * Reworked ftable generation into instrument code to make instrument encapsulated v1.0 * Translated to Blue from Cabbage, added non-MIDI value pfield operation of instrument ga_fmclang_<INSTR_ID> init 0 ;; FTables if (chnget:i("FM_Clang:sine") == 0) then chnset(ftgen(0,0,4096,10,1), "FM_Clang:sine") ;A SINE WAVE. USED BY THE LFOs. chnset(ftgen(0,0,128,21,1,1), "FM_Clang:detune") ; random array used for fixing unique detune values for each note chnset(ftgen(0,0,4096,7,1,2048,1,2048,0), "FM_Clang:dryMap") ; dry mixer control mapping chnset(ftgen(0,0,4097,9,0.5,1,0), "FM_Clang:impulse") ; shape for the hammer inpulse chnset(ftgen(0,0,256,21,1,1), "FM_Clang:stereo") ; random array used for fixing unique stereo values for each note chnset(ftgen(0,0,256,21,1,1), "FM_Clang:hammer") ; random array used for fixing unique detune values for each note chnset(ftgen(0,0,128,-7,-1,128,1), "FM_Clang:scale") endif iftsine = chnget:i("FM_Clang:sine") iftdetune = chnget:i("FM_Clang:detune") iftDryMap = chnget:i("FM_Clang:dryMap") iftImp = chnget:i("FM_Clang:impulse") iftstereo = chnget:i("FM_Clang:stereo") iftdetune = chnget:i("FM_Clang:hammer") iftscale = chnget:i("FM_Clang:scale") ;; Allow working with p4=MIDI Key (0-127), p5=MIDI Vel (0-127), or ;; with p4=PCH or Freq, p5 = amdbfs [-96, 0] if ( i(<midiPfields>) == 1) then inum = p4 icps = cpsmidinn(inum) ivel = p5 else icps = (p4 < 20) ? cps2pch(p4, 12) : p4 inum = limit(ftom:i(icps), 0, 127) idb = limit(p4, -96, 0) ivel = ((idb + 96) / 96) * 127 endif ; Keyboard scaling value. Note '0' maps to a value of -1, note 64 maps to a ; value of zero and note 127 maps to a value of 1. iKybdScl = table(inum, iftscale) ; Amplitude Envelope idur = i(<Dur>) iAmpCurve = -8 iRelTim = (i(<sustain>)==1) ? idur : 0.1 iAttVel = velmap(ivel, i(<AttVel>) * 0.05, 0) iAttTim = iAttVel + i(<AttTime>) if (iAttTim==0) then aAEnv = transegr:a(1, idur, iAmpCurve, 0, iRelTim, iAmpCurve, 0) else aAEnv = transegr:a(0, iAttTim, iAmpCurve, 1, idur, iAmpCurve, 0, iRelTim, iAmpCurve, 0) endif ; Key velocity to amplitude iAVel = velmap(ivel, 0, 0.1) ; FM index iNdx = velmap(ivel, 0, i(<NdxVel>)) ; Key velocity to FM index kIEnv = transeg(iNdx * octave(-iKybdScl*4), idur, -i(<NdxCurve>), 0) ; Index envelope. Amplitude influenced by 'Index' widget control and keyboard scaling (index reduced for higher notes, increased for lower notes) ; Carrier frequency keyboard scaling icar = 1 * octave(iKybdScl * i(<CarKyb>)) ; Carrier ratio modulation iModRte = table(inum,iftscale) iModRte = octave(iModRte * i(<ModRteKyb>)) kDepEnv = transeg:a(1, idur, -4, 0) amod = lfo(<ModDep> * 0.1 * kDepEnv, <ModRte> * iModRte, 0) ; Noise bandpass filter cutoff as it respond to the 'Carrier Follow' switch kcf = (<NseFllw> == 1) ? icps * <mod> : icps ; Noise amplitude keyboard following kNseAmp = octave(iKybdScl * -4) * <NseAmp> ; Main FM algorithm if (<NseAmp> > 0) then ; If noise amplitude is greater than zero... aNse = gauss(kNseAmp) ; ... generate some gaussian noise aNse = butbp(aNse, kcf, kcf * <NseBW>) ; bandpass filter the noise aNse = butbp(aNse, kcf, kcf * <NseBW>) ; and again else aNse = 0 ; Otherwise no noise signal! endif idetune = table:i(inum,iftdetune) ; Read a detuning value from a random table asig = foscil(iAVel, icps*cent(-<Detune> * idetune), icar + aNse, <mod>, kIEnv, iftsine) ; FM pair aModSig = foscil(iAVel, icps*cent(-<Detune> * idetune), icar + amod + aNse, <mod>, kIEnv, iftsine) ; FM pair with modulation asig = asig + (aModSig * <ModMix>) ; Mix the two FM pairs. ; Auxilliary FM algorithm (used for detuning) if (<DtnMix> > 0 && <Detune> > 0) then if (<NseAmp> > 0) then aNse = gauss(kNseAmp) aNse = butbp(aNse, kcf, kcf * <NseBW>) aNse = butbp(aNse, kcf, kcf * <NseBW>) else aNse= 0 endif idetune = table(inum + 128, iftdetune) ; Read a detuning value from a random table asig2 = foscil(iAVel, icps * cent(<Detune> * idetune), icar + aNse, <mod>, kIEnv) ; Detuning applied to fundemental aModSig2 = foscil(iAVel, icps * cent(<Detune> * idetune), icar + amod + aNse, <mod>, kIEnv) asig2 += (aModSig2 * <ModMix>) asig += asig2 * <DtnMix> endif ; Filter Fundemental if (i(<FiltFund>) == 1) then ; If filter fundemental switch is active asig = butbr(asig, icps * icar, icps * icar * 0.3) ; Filter out fundemental asig = butbr(asig, icps * icar, icps * icar * 0.3) ; and again to make sure it is all gone endif ; Lowpass Filter if (i(<LPF>) < 32) then ; If lowpass filter is less than maximum... kCF = limit(icps * <LPF>, 20, 20000) ; ...create the cutoff value in CPS based on fundemental and LPF ratio control. Limit to prevent out of range values. asig = clfilt(asig, kCF, 0, 2) ; Butterworth lowpass filter endif ; Amplitude Envelope asig = asig * aAEnv * <Amp> ; Apply amplitude envelope ; Stereo Effect iDlyTimL = table(inum,iftstereo) ; Read a delay time value from a random table based on note played iDlyTimR = table(inum + 128,iftstereo) ; Read a different delay time value from a random table based on note played if (<StWidth> > 0 && <StMix> > 0) then ; If 'width' is above zero and 'mix' is above zero... aL = vdelay(asig, iDlyTimL * <StWidth> * 1000, 0.2 * 1000) ; ...left channel delay aR = vdelay(asig, iDlyTimR * <StWidth> * 1000, 0.2 * 1000) ; right channel delay aL = ntrpol(asig, aL, <StMix>) ; Mix delayed and dry signal aR = ntrpol(asig, aR, <StMix>) blueMixerOut aL, aR ; else blueMixerOut asig, asig endif kDry = table(<RvbDryWet>, iftDryMap, 1) ; map dry/wet control ga_fmclang_<INSTR_ID> += (asig * kDry) aL, aR blueMixerIn asig = ga_fmclang_<INSTR_ID> if (chnget:i("FM_Clang:wetMap") == 0) then chnset(ftgen(0,0,4096,7,0,2048,1,2048,1), "FM_Clang:wetMap") ; wet mixer control mapping endif iftWetMap = chnget:i("FM_Clang:wetMap") iRvbHiCut = 1000 aL = butlp(aL, iRvbHiCut) ; Remove some high frequencies aR = butlp(aR, iRvbHiCut) aL, aR freeverb aL, aR, <RvbSize>, 1 kWet = table(<RvbDryWet>, iftWetMap, 1) aL = aL * kWet * 4 aR = aR * kWet * 4 blueMixerOut aL + asig, aR + asig ga_fmclang_<INSTR_ID> = 0 10 10 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 Amplitude 0x00000033 0x000000ff 0xffffffff true 230 131 Amp 10 29 true 0.0 8.0 0.5 50 true true label false System Regular 12.0 Dur 168 30 true 0.1 24.0 12.0 50 true true label false System Regular 12.0 AttVel 115 30 true 0.0 1.0 0.0 50 true true label false System Regular 12.0 AttTime 62 30 true 0.0 0.1 0.0 50 true true label false System Regular 12.0 170 11 Duration System Regular 12.0 18 10 Level System Regular 12.0 sustain 10 100 true Sustain true true 114 11 Vel Attack System Regular 12.0 70 11 Attack System Regular 12.0 650 10 Filter 0x00000033 0x000000ff 0xffffffff true 200 131 25 10 LPF System Regular 12.0 FiltFund 70 30 true Filter Fundamental true true LPF 10 29 true 1.0 16.0 16.0 50 true true label false System Regular 12.0 660 170 Config 0x00000033 0x6680e6ff 0xffffffff true 190 131 midiPfields 10 10 true Use MIDI pfields false true 520 10 Detune 0x00000033 0x000000ff 0xffffffff true 20 131 20 10 Mix System Regular 12.0 62 10 Amount System Regular 12.0 DtnMix 10 30 true 0.0 1.0 1.0 50 true true label false System Regular 12.0 Detune 62 30 true 0.0 25.0 1.5 50 true true label false System Regular 12.0 440 10 Carrier 0x00000033 0x000000ff 0xffffffff true 20 131 CarKyb 10 30 true -4.0 4.0 0.0 50 true true label false System Regular 12.0 10 10 Kyb.Scale System Regular 12.0 400 170 Stereo 0x00000033 0x330033ff 0xffffffff true 121 131 12 10 Dry/Wet System Regular 12.0 71 10 Width System Regular 12.0 StMix 10 30 true 0.0 1.0 0.5 50 true true label false System Regular 12.0 StWidth 62 30 true 0.0 0.2 0.01 50 true true label false System Regular 12.0 160 170 LFO 0x00000033 0x000000ff 0xffffffff true 230 131 ModMix 10 29 true 0.0 1.0 0.0 50 true true label false System Regular 12.0 ModDep 62 30 true 0.0 1.0 0.1 50 true true label false System Regular 12.0 126 11 Rate System Regular 12.0 ModRteKyb 168 30 true -4.0 4.0 0.0 50 true true label false System Regular 12.0 164 11 Kyb. Follow System Regular 12.0 70 11 Depth System Regular 12.0 ModRte 115 30 true 0.0 32.0 3.0 50 true true label false System Regular 12.0 18 10 Mix System Regular 12.0 10 170 Noise 0x00000033 0x000000ff 0xffffffff true 140 131 18 10 Amount System Regular 12.0 75 11 Filter System Regular 12.0 NseFllw 10 100 true Follow Modulator false true NseAmp 10 29 true 0.0 2000.0 1000.0 50 true true label false System Regular 12.0 NseBW 62 30 true 5.0E-4 1.0 0.001 50 true true label false System Regular 12.0 530 170 Reverb 0x00000033 0x330033ff 0xffffffff true 20 131 RvbSize 62 30 true 0.0 1.0 0.55 50 true true label false System Regular 12.0 RvbDryWet 10 30 true 0.0 1.0 0.3 50 true true label false System Regular 12.0 75 10 Size System Regular 12.0 11 10 Dry/Wet System Regular 12.0 250 10 Modulator 0x00000033 0x000000ff 0xffffffff true 180 131 120 10 Decay System Regular 12.0 mod 10 30 true 1.0 17.0 2.29 50 true true label false System Regular 12.0 NdxVel 62 30 true 0.0 2.0 1.0 50 true true label false System Regular 12.0 72 10 Index System Regular 12.0 NdxCurve 114 30 true 8.0 256.0 16.0 50 true true label false System Regular 12.0 20 10 Ratio System Regular 12.0 ver2:0.5 ver2:0 ver2:0 ver2:0 ver2:1.5 ver2:1 ver2:12 true ver2:16 ver2:0.1 ver2:0 ver2:3 ver2:0 ver2:16 ver2:1 ver2:1000 ver2:0.001 false ver2:0.3 ver2:0.55 ver2:0.5 ver2:0.01 ver2:2.29 true ver2:0.8 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:1.7 false ver2:3.8 ver2:0.1 ver2:0 ver2:3 ver2:0 ver2:100 ver2:0.55 ver2:0 ver2:0.001 false ver2:0.1 ver2:0.55 ver2:0.5 ver2:0.01 ver2:5.04 true ver2:0.5 ver2:0.1 ver2:0.5 ver2:0 ver2:15 ver2:1 ver2:3.8 false ver2:16 ver2:0.1 ver2:1 ver2:3 ver2:0 ver2:28 ver2:2 ver2:50 ver2:0.0077 true ver2:0.3 ver2:0.55 ver2:0.5 ver2:0.01 ver2:1 true ver2:0.5 ver2:0 ver2:0.006 ver2:0 ver2:2.5 ver2:0.47 ver2:24 true ver2:16 ver2:0.1 ver2:1 ver2:0.33 ver2:1.7 ver2:15 ver2:1 ver2:0 ver2:0.001 false ver2:0.3 ver2:0.55 ver2:0.5 ver2:0.01 ver2:3.19 true ver2:0.8 ver2:0 ver2:1 ver2:-2.68 ver2:25 ver2:1 ver2:6.6 false ver2:3.8 ver2:0.1 ver2:0 ver2:3 ver2:0 ver2:13 ver2:1 ver2:0 ver2:0.001 false ver2:0.172 ver2:0.21 ver2:1 ver2:0.02 ver2:1.12 false ver2:3.25 ver2:0.1 ver2:1 ver2:-2.3 ver2:1.5 ver2:0 ver2:1.28 true ver2:16 ver2:0.1 ver2:0 ver2:3 ver2:0 ver2:35 ver2:0.55 ver2:2000 ver2:0.0025 false ver2:0.68 ver2:0.93 ver2:0.5 ver2:0.01 ver2:2.55 false ver2:4 ver2:0.1 ver2:1 ver2:-2.3 ver2:1.5 ver2:0 ver2:2.39 true ver2:16 ver2:0.1 ver2:0 ver2:3 ver2:0 ver2:35 ver2:0.55 ver2:16 ver2:0.1262 false ver2:1 ver2:0 ver2:0 ver2:0.01 ver2:2.55 true ver2:1 ver2:0 ver2:0 ver2:-2.3 ver2:1.5 ver2:0.13 ver2:14.25 true ver2:4.78 ver2:0.1 ver2:1 ver2:3 ver2:0 ver2:35 ver2:0.55 ver2:16 ver2:0.0326 false ver2:0.6 ver2:0 ver2:0 ver2:0.01 ver2:6.97 true ver2:1.65 ver2:0 ver2:0 ver2:0 ver2:0 ver2:0 ver2:1.7 false ver2:3.8 ver2:0.1 ver2:0 ver2:3 ver2:0 ver2:100 ver2:0.55 ver2:0 ver2:0.001 false ver2:0.1 ver2:0.55 ver2:0.5 ver2:0.01 ver2:1.2 true ver2:2 ver2:0 ver2:0 ver2:0 ver2:12 ver2:0.21 ver2:1 false ver2:3.8 ver2:0.1 ver2:0 ver2:3 ver2:0 ver2:100 ver2:0.55 ver2:0 ver2:0.001 false ver2:0.35 ver2:0.37 ver2:0.5 ver2:0.01 ver2:2.15 true ver2:2 ver2:0.1 ver2:1 ver2:0 ver2:25 ver2:0.21 ver2:3.44 false ver2:16 ver2:0.1 ver2:0 ver2:3 ver2:0 ver2:100 ver2:0.55 ver2:0 ver2:0.001 true ver2:0 ver2:0.37 ver2:0.5 ver2:0.05 ver2:3.75 true ver2:2 ver2:0.1 ver2:1 ver2:0 ver2:25 ver2:0.21 ver2:1.45 false ver2:16 ver2:0.1 ver2:0 ver2:3 ver2:0 ver2:16 ver2:1 ver2:0 ver2:0.001 true ver2:0.6 ver2:0.37 ver2:0.5 ver2:0.05 ver2:2.66 true ver2:1.9 ver2:0 ver2:0 ver2:-4 ver2:1.5 ver2:1 ver2:24 true ver2:16 ver2:0.1 ver2:1 ver2:3 ver2:0 ver2:23.25 ver2:1 ver2:151 ver2:0.0178 true ver2:0.3 ver2:0.55 ver2:0.5 ver2:0.01 ver2:2.29 true velmap i iii ivel, ilo, ihi xin xout ilo + ((ivel / 127) * (ihi - ilo)) UDO version of veloc opcode that operates on passed-in value instead of MIDI-initiated note velocity.