;Written by Iain McCurdy, 2006 -+rtaudio=PortAudio -b4096 sr = 44100 ;SAMPLE RATE kr = 44100 ;CONTROL RATE ksmps = 1 ;NUMBER OF AUDIO SAMPLES IN EACH CONTROL CYCLE (MAY NEED TO BE LOW WHEN WORKING WITH SHORT DELAY TIMES DEFINED INITIALLY AT KRATE) nchnls = 2 ;NUMBER OF CHANNELS (2=STEREO) ;FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "Through Zero Flanger Implementation", 500, 350, 0, 0 ; ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | DUR gkOnOff,ihOnOff FLbutton "On/Off", 1, -1, 2, 200, 30, 0, 0, 0, 1, 0, -1 ;VALUE_DISPLAY_BOXES WIDTH | HEIGHT | X | Y iddlt FLvalue " ", 100, 20, 0, 80 idmix FLvalue " ", 100, 20, 0, 130 idfeedbackamt FLvalue " ", 100, 20, 0, 180 idamp FLvalue " ", 100, 20, 0, 230 idFlaDepth FLvalue " ", 100, 20, 0, 280 idFlaRate FLvalue " ", 100, 20, 0, 330 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkdlt,ihdlt FLslider "Delay Time (sec)", .0001, 1, -1, 5, iddlt, 500, 30, 0, 50 gkmix,ihmix FLslider "Dry/Wet Mix", 0, 1, 0, 5, idmix, 500, 30, 0, 100 gkfeedamt,ihfeedamt FLslider "Feedback Amount", -.99, .99, 0, 5, idfeedbackamt, 500, 30, 0, 150 gkamp,ihamp FLslider "Output Amplitude Rescaling", 0, 1, 0, 5, idamp, 500, 30, 0, 200 gkFlaDepth,ihFlaDepth FLslider "Flanger Modulation Depth (sec)", 0, .01, 0, 5, idFlaDepth, 500, 30, 0, 250 gkFlaRate,ihFlaRate FLslider "Flanger Modulation Rate", .001, 7, -1, 5, idFlaRate, 500, 30, 0, 300 ;SET_INITIAL_VALUES VALUE | HANDLE FLsetVal_i .0001, ihdlt FLsetVal_i .5, ihmix FLsetVal_i -1, ihOnOff FLsetVal_i 0, ihfeedamt FLsetVal_i .7, ihamp FLsetVal_i .005, ihFlaDepth FLsetVal_i .05, ihFlaRate FLpanel_end ;END OF PANEL CONTENTS ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 300, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " delayr delayw deltap3 - Through the zero Flanger ", 1, 5, 14, 490, 15, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 15, 5, 20 ih FLbox "This example is very similar to the previous flanger example ", 1, 5, 14, 490, 15, 5, 40 ih FLbox "but with two modifications made to implement what is referred", 1, 5, 14, 490, 15, 5, 60 ih FLbox "to as a 'through the zero' flanger. ", 1, 5, 14, 490, 15, 5, 80 ih FLbox "At the minimum point of its modulation, when the time ", 1, 5, 14, 490, 15, 5, 100 ih FLbox "difference between the dry signal and the delayed signal is ", 1, 5, 14, 490, 15, 5, 120 ih FLbox "zero, the sound is completely cancelled out by the flanger. ", 1, 5, 14, 490, 15, 5, 140 ih FLbox "In order for this to happen the delayed signal must also be ", 1, 5, 14, 490, 15, 5, 160 ih FLbox "inverted. Delay opcodes will not allow setting a delay time ", 1, 5, 14, 490, 15, 5, 180 ih FLbox "of zero so the way round this is to delay the dry signal by ", 1, 5, 14, 490, 15, 5, 200 ih FLbox "an amount of time equal to the minimum delay time of the ", 1, 5, 14, 490, 15, 5, 220 ih FLbox "flanger modulations. ", 1, 5, 14, 490, 15, 5, 240 ih FLbox "For the through the zero flanger cancelling effect to work ", 1, 5, 14, 490, 15, 5, 260 ih FLbox "feedback should be kept at zero. ", 1, 5, 14, 490, 15, 5, 280 FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; instr 1 ;PLAYS FILE if gkOnOff!=-1 kgoto CONTINUE ;SENSE FLTK ON/OFF SWITCH turnoff ;TURN THIS INSTRUMENT OFF IMMEDIATELY CONTINUE: ;OUTPUTS OPCODE FILE | SPEED | INSKIP | LOOPING (0=OFF 1=ON) ;gasigL, gasigR diskin "808loop.wav", 1, 0, 1 gasigL, gasigR diskin "Seashore.wav", 1, 0, 1 endin instr 2 ;FLANGER-DELAY INSTRUMENT afeedbacksigL init 0 ;LEFT AND RIGHT CHANNELS OF THE FEEDBACK SIGNAL ARE INITIALISED TO ZERO afeedbacksigR init 0 ;LEFT AND RIGHT CHANNELS OF THE FEEDBACK SIGNAL ARE INITIALISED TO ZERO iporttime = .1 ;PORTAMENTO TIME kporttime linseg 0, .001, iporttime, 1, iporttime ;USE OF AN ENVELOPE VALUE THAT QUICKLY RAMPS UP FROM ZERON TO THE REQUIRED VALUE PREVENTS VARIABLES GLIDING TO THEIR REQUIRED VALUES EACH TIME THE INSTRUMENT IS STARTED kdlt portk gkdlt, kporttime ;PORTAMENTO IS APPLIED TO THE VARIABLE 'gkdlt'. A NEW VARIABLE 'kdlt' IS CREATED. adlt interp kdlt ;A NEW A-RATE VARIABLE 'adlt' IS CREATED BY INTERPOLATING THE K-RATE VARIABLE 'kdlt' amod oscil gkFlaDepth, gkFlaRate, 1 ;OSCILLATOR THAT MAKES USE OF THE POSITIVE DOMAIN ONLY TRIANGLE WAVE IN FUNCTION TABLE 1 adlt sum adlt, amod ;STATIC DELAY TIME AND MODULATING DELAY TIME ARE SUMMED ;REMEMBER THAT THE LENGTH OF THE DELAY BUFFER DEFINED WILL HAVE TO TAKE ACCOUNT OF THE SUMMED MAXIMUM OF THE STATIC DELAY TIME AND MODULATING DELAY TIME ;;;LEFT CHANNEL DELAY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; abufferL delayr 1.2 ;CREATE A DELAY BUFFER OF 5 SECONDS DURATION (EQUIVALENT TO THE MAXIMUM DELAY TIME POSSIBLE USING THIS EXAMPLE) adelsigL deltap3 adlt ;TAP THE DELAY LINE AT gkdlt SECONDS delayw gasigL + afeedbacksigL ;WRITE AUDIO SOURCE AND FEEDBACK SIGNAL INTO THE BEGINNING OF THE BUFFER abufferR delayr 1.2 ;CREATE A DELAY BUFFER OF 5 SECONDS DURATION (EQUIVALENT TO THE MAXIMUM DELAY TIME POSSIBLE USING THIS EXAMPLE) adelsigR deltap3 adlt ;TAP THE DELAY LINE AT gkdlt SECONDS delayw gasigR + afeedbacksigR ;WRITE AUDIO SOURCE AND FEEDBACK SIGNAL INTO THE BEGINNING OF THE BUFFER afeedbacksigL = adelsigL * gkfeedamt ;CREATE FEEDBACK SIGNAL (AN ATTENUATED PROPORTION OF THE DELAY OUTPUT SIGNAL) afeedbacksigR = adelsigR * gkfeedamt ;CREATE FEEDBACK SIGNAL (AN ATTENUATED PROPORTION OF THE DELAY OUTPUT SIGNAL) asigL delay gasigL, .0001 ;DELAY THE DRY SIGNAL BY AN AMOUNT OF TIME EQUAL TO THE MINIMUM TIME DELAY OFFSET OF THE FLANGER MODULATIONS asigR delay gasigR, .0001 ;DELAY THE DRY SIGNAL BY AN AMOUNT OF TIME EQUAL TO THE MINIMUM TIME DELAY OFFSET OF THE FLANGER MODULATIONS outs ((-adelsigL * gkmix) + (asigL * (1-gkmix))) * gkamp, ((-adelsigR * gkmix) + (asigR * (1-gkmix))) * gkamp ;CREATE A MIX BETWEEN THE WET AND THE DRY SIGNALS AT THE OUTPUT. NOTE THAT THE DELAYED SIGNAL IS INVERTED (NEGATIVE) gasigL = 0 ;CLEAR THE GLOBAL AUDIO SEND VARIABLES gasigR = 0 ;CLEAR THE GLOBAL AUDIO SEND VARIABLES endin ;INSTR | START | DURATION i 2 0 -1 ;INSTRUMENT 2 PLAYS A HELD NOTE f 1 0 131072 7 0 65536 1 65536 0 ;POSITIVE DOMAIN TRIANGLE WAVE f 0 3600 ;'DUMMY' SCORE EVENT KEEPS REALTIME PERFORMANCE GOING FOR 1 HOUR