|
- delayfeedback.csd
- Written by Iain McCurdy, 2006
-
- THE delay OPCODE IS PLACED IN A SEPARATE, ALWAYS ON, INSTRUMENT FROM THE SOURCE SOUND PRODUCING INSTRUMENT.
- THE IS A COMMONLY USED TECHNIQUE WITH TIME SMEARING OPCODES AND EFFECTS LIKE REVERBS AND DELAYS.
-
- ksmps MAY NEED TO BE LOW (AND kr THEREFORE HIGH) WHEN WORKING WITH SHORT DELAY TIMES DEFINED INITIALLY AT KRATE
-
- <CsoundSynthesizer>
-
- <CsOptions>
- -iadc -odac -dm0
- </CsOptions>
-
- <CsInstruments>
-
- sr = 44100 ;SAMPLE RATE
- ksmps = 4 ;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)
- 0dbfs = 1 ;MAXIMUM AMPLITUDE
-
- ;FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- FLcolor 255, 255, 255, 0, 0, 0
- ; LABEL | WIDTH | HEIGHT | X | Y
- FLpanel "delay with feedback", 500, 300, 0, 0
-
- ; ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | DUR
- gkOnOff,ihOnOff FLbutton "Input On/Off", 1, 0, 22, 180, 25, 5, 5, 0, 1, 0, -1
- FLsetColor2 255, 255, 50, ihOnOff ;SET SECONDARY COLOUR TO YELLOW
-
- ;GENERAL_TEXT_SETTINGS SIZE | FONT | ALIGN | RED | GREEN | BLUE
- FLlabel 13, 1, 3, 255, 255, 255 ;LABELS MADE INVISIBLE (I.E. SAME COLOR AS PANEL)
-
- ;BUTTON BANKS TYPE | NUMX | NUMY | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | DUR
- ;gkinput, ihinput FLbutBank 14, 1, 2, 18, 40, 250, 0, -1
-
- ;GENERAL_TEXT_SETTINGS SIZE | FONT | ALIGN | RED | GREEN | BLUE
- FLlabel 13, 1, 3, 0, 0, 0 ;LABELS MADE VISIBLE AGAIN
-
- ;VALUE_DISPLAY_BOXES WIDTH | HEIGHT | X | Y
- iddlt FLvalue " ", 80, 20, 5, 75
- idmix FLvalue " ", 80, 20, 5, 125
- idfeedbackamt FLvalue " ", 80, 20, 5, 175
- idamp FLvalue " ", 80, 20, 5, 225
- idporttime FLvalue " ", 80, 20, 5, 275
-
- ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y
- gkdlt,ihdlt FLslider "Delay Time (sec)", .001, 5, -1, 23, iddlt, 490, 25, 5, 50
- gkmix,ihmix FLslider "Dry/Wet Mix", 0, 1, 0, 23, idmix, 490, 25, 5, 100
- gkfeedamt,ihfeedamt FLslider "Feedback Ratio", -1, 1, 0, 23, idfeedbackamt, 490, 25, 5, 150
- gkamp,ihamp FLslider "Output Amplitude Rescaling", 0, 1, 0, 23, idamp, 490, 25, 5, 200
- gkporttime,ihporttime FLslider "Portamento Time", 0, 2, 0, 23, idporttime, 490, 25, 5, 250
- gkingain,ihingain FLslider "Live Input Gain", 0, 1, 0, 23, -1, 140, 20, 350, 5
-
- ;SET_INITIAL_VALUES VALUE | HANDLE
- FLsetVal_i .5, ihdlt
- FLsetVal_i 0.5, ihmix
- FLsetVal_i 0.7, ihfeedamt
- FLsetVal_i .7, ihamp
- FLsetVal_i 0.3, ihporttime
-
- FLpanel_end ;END OF PANEL CONTENTS
-
-
- FLrun ;RUN THE FLTK WIDGET THREAD
- ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
- instr 1 ;PLAYS FILE
- if gkOnOff=0 then ;SENSE FLTK ON/OFF SWITCH
- turnoff ;TURN THIS INSTRUMENT OFF IMMEDIATELY
- endif
-
- asigL, asigR ins ;TAKE INPUT FROM COMPUTER'S AUDIO INPUT
- gasigL = asigL * gkingain ;SCALE USING 'Input Gain' SLIDER
- gasigR = asigR * gkingain ;SCALE USING 'Input Gain' SLIDER
- endin
-
- instr 2 ;DELAY INSTRUMENT
- kporttime linseg 0, .001, 1, 1, 1 ;USE OF AN ENVELOPE VALUE THAT QUICKLY RAMPS UP FROM ZERO TO 1. THIS PREVENTS VARIABLES GLIDING TO THEIR REQUIRED VALUES EACH TIME THE INSTRUMENT IS STARTED.
- kporttime = kporttime * gkporttime ;SCALE PORTAMENTO FUNCTION WITH FLTK SLIDER VALUE
- 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'
-
- ;;;LEFT CHANNEL DELAY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- abufferL delayr 5 ;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 + (adelsigL * gkfeedamt) ;WRITE AUDIO SOURCE AND FEEDBACK SIGNAL INTO THE BEGINNING OF THE BUFFER
-
- ;;;RIGHT CHANNEL DELAY;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- abufferR delayr 5 ;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 + (adelsigR * gkfeedamt) ;WRITE AUDIO SOURCE AND FEEDBACK SIGNAL INTO THE BEGINNING OF THE BUFFER
-
- aL ntrpol gasigL, adelsigL, gkmix
- aR ntrpol gasigR, adelsigR, gkmix
-
- outs aL * gkamp, aR * gkamp ;CREATE A MIX BETWEEN THE WET AND THE DRY SIGNALS AT THE OUTPUT
- clear gasigL, gasigR ;CLEAR THE GLOBAL AUDIO SEND VARIABLES
- endin
-
- </CsInstruments>
-
- <CsScore>
- ;INSTR | START | DURATION
- i 2 0 -1 ;INSTRUMENT 2 (DELAY INSTRUMENT) PLAYS A HELD NOTE
-
- f 0 3600 ;'DUMMY' SCORE EVENT KEEPS REALTIME PERFORMANCE GOING FOR 1 HOUR
- </CsScore>
-
- </CsoundSynthesizer>
|
