harmonize true 2 2 if (<harmonizeON> == 1) then ihamming ftgentmp 0, 0, 513, 20, 3 ; TRIANGLE WINDOW FN idelay = i(<harmonize_delay time>) ; N SECONDS DELAY kfeed = <harmonize_feedback> ; FEEDBACK FACTOR klfohz = <harmonize_LFO> if <harmonize_12tone> == 1 then knsemis = <harmonize_semitones> ; N SEMITONES TO SHIFT kfract = knsemis/12 ; FRACTION OF AN OCT ibasehz = cpsoct(8) ; MIDDLE C AS BASIS knewhz = cpsoct(8 + kfract) ; DESIRED REL PITCH kratio = knewhz/ibasehz ; RATIO NEW HZ TO OLD krate = (kratio-1)/idelay ; SUBTRACT 1/1 SPEED else krate = (<harmonize_pitch> - 1)/idelay endif if (klfohz > 0) then krate oscili krate, klfohz ; LFO SINE FN endif actl1 phasor -krate ; MOVING PHASE 1-0 agate1 tablei actl1, ihamming, 1, 0, 1 ; TRIANGLE WINDOW FUNC actl2 phasor -krate, .5 ; PHASE OFFSET OF .5 agate2 tablei actl2, ihamming, 1, 0, 1 ; TRIANGLE WINDOW FUNC ;-------------------------------------------------------links ajunkl delayr idelay ; ALLOC DELAY LINE asig1l deltapi actl1 * idelay ; 2 VARIABLE TAPS asig2l deltapi actl2 * idelay ; OFFSET 1/2 BUFF LEN asig1l = asig1l * agate1 ; GATE TAP OUTPUTS asig2l = asig2l * agate2 ; SEPARATELY aoutsl = asig1l + asig2l ; AND SUM ainputl = ain1 + aoutsl * kfeed delayw ainputl ;---------------------------------------------------------rechts ajunkr delayr idelay asig1r deltapi actl1 * idelay asig2r deltapi actl2 * idelay asig1r = asig1r * agate1 asig2r = asig2r * agate2 aoutsr = asig1r + asig2r ainputr = ain2 + aoutsr * kfeed delayw ainputr ;------------------------------------------------------- aoutsl dcblock aoutsl aoutsr dcblock aoutsr aout1 = (ain1 * <harmonize_wetdry>) + (aoutsl * (1 - <harmonize_wetdry>)) aout2 = (ain2 * <harmonize_wetdry>) + (aoutsr * (1 - <harmonize_wetdry>)) else aout1 = ain1 aout2 = ain2 endif DESCRIPTION: Harmonizer, based upon the code from the Csound Book p.466, instr. 2209 - This is a stereo version. - switch between 12 tone division or free CONTROLLERS: ON/OFF - bypass delay time - delay time needed for analysis of incoming signal. feedback - feedback of input signal LFO - LFO using a sine wave switch - choose between free pitch or 12-tone mode pitch - free adjustable pitch semitone - 12-tones in an octave mix - mix direct signal with effect --- version 1.02, July 2020 - added BSB information comments version 1.01, May 2020 - added comments on controllers version 1, february 2019 - initial version by Menno Knevel 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 10 10 Group 0x4d8080ff 0x000000ff 0xffffffff false 20 20 harmonize_delay time 10 15 delay time needed for analysis of incoming signal. true 0.01 1.0 0.1189 40 true true delay time true System Regular 12.0 harmonize_LFO 140 15 LFO using a sine wave true 0.0 10.0 0.0 40 true true LFO true System Regular 12.0 190 10 Group 0x00000033 0x000000ff 0xffffffff false 20 20 85 40 semitone System Regular 12.0 harmonize_12tone 70 5 choose between free pitch or 12-tone mode true 12tone false true harmonize_pitch 10 5 free adjustable pitch true 0.0 3.0 1.77 40 true true pitch true System Regular 12.0 50 5 or System Regular 12.0 220 5 mix System Regular 12.0 harmonize_semitones 65 25 12-tones in an octave true -12.0 12.0 1 -4.0 100 true true harmonize_wetdry 215 15 mix direct signal with effect true 0.0 1.0 0.1 0.6 65 true false harmonize_feedback 80 15 feedback of input signal true 0.0 1.0 0.49 40 true true feedback true System Regular 12.0 harmonizeON 0 0 bypass true true true