wguide1.csd Written by Iain McCurdy, 2006 -iadc -odac -M0 -+rtmidi=virtual -dm0 sr = 44100 ;SAMPLE RATE ksmps = 32 ;NUMBER OF AUDIO SAMPLES IN EACH CONTROL CYCLE nchnls = 2 ;NUMBER OF CHANNELS (2=STEREO) 0dbfs = 1 massign 1,2 ;MIDI NOTES RECEIVED ON CHANNEL 1 ARE SENT TO INSTRUMENT 2 ;FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FLcolor 255, 255, 255, 0, 0, 0 ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "wguide1", 500, 300, 0, 0 ;SWITCHES ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | IDUR gkOnOff,ihOnOff FLbutton "On/Off(MIDI)", 1, 0, 22, 150, 30, 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, 3, 18, 45, 250, 0, -1 ;GENERAL_TEXT_SETTINGS SIZE | FONT | ALIGN | RED | GREEN | BLUE FLlabel 13, 1, 3, 0, 0, 0 ;LABELS MADE VISIBLE AGAIN ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox "Input", 1, 5, 14, 50, 20, 200, 0 ih FLbox "Seashore", 1, 5, 11, 60, 13, 270, 0 ih FLbox "Live ", 1, 5, 11, 60, 13, 270, 15 ih FLbox "Impulses", 1, 5, 11, 60, 13, 270, 30 ;VALUE DISPLAY BOXES LABEL | WIDTH | HEIGHT | X | Y idfreq FLvalue "", 80, 20, 5, 75 idcutoff FLvalue "", 80, 20, 5, 125 idfeedback FLvalue "", 80, 20, 5, 175 idamp FLvalue "", 80, 20, 5, 275 idAtt FLvalue "", 60, 20, 5, 225 idRel FLvalue "", 60, 20, 255, 225 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkfreq,ihfreq FLslider "Frequency", 20, 10000, -1, 23, idfreq, 490, 25, 5, 50 gkcutoff,ihcutoff FLslider "LPF Cutoff Frequency", 20, 20000, -1, 23, idcutoff, 490, 25, 5, 100 gkfeedback,ihfeedback FLslider "Feedback", -0.999,0.999, 0, 23, idfeedback, 490, 25, 5, 150 gkAtt,ihAtt FLslider "Attack Time", 0.05, 10, 0, 23, idAtt, 240, 25, 5, 200 gkRel,ihRel FLslider "Release Time", 0.05, 10, 0, 23, idRel, 240, 25, 255, 200 gkamp,ihamp FLslider "Output Amplitude Scaling", 0, 1, 0, 23, idamp, 490, 25, 5, 250 gkingain,ihingain FLslider "Live Input Gain", 0, 1, 0, 23, -1, 140, 20, 350, 5 ;SET INITIAL VALUES OF FLTK VALUATORS ; VALUE | HANDLE FLsetVal_i 400, ihfreq FLsetVal_i 10000, ihcutoff FLsetVal_i .9, ihfeedback FLsetVal_i .7, ihamp FLsetVal_i 0.05, ihAtt FLsetVal_i 2, ihRel FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 515, 700, 512, 0 FLscroll 515, 700, 0, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " wguide1 ", 1, 5, 14, 490, 20, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 20, 5, 20 ih FLbox "Wguide1 implements a delay and first order lowpass filter ", 1, 5, 14, 490, 20, 5, 40 ih FLbox "with feedback in a single unit opcode. This arrangement is as", 1, 5, 14, 490, 20, 5, 60 ih FLbox "shown below: ", 1, 5, 14, 490, 20, 5, 80 ih FLbox " +-----+ +--------------+ ", 1, 5, 14, 490, 20, 5, 100 ih FLbox " IN->-+->+DELAY+->+LOWPASS FILTER+->+--->OUT ", 1, 5, 14, 490, 20, 5, 120 ih FLbox " ^ +-----+ +--------------+ | ", 1, 5, 14, 490, 20, 5, 140 ih FLbox " | | ", 1, 5, 14, 490, 20, 5, 160 ih FLbox " +-----<-----[FEEDBACK]<-------+ ", 1, 5, 14, 490, 20, 5, 180 ih FLbox "Delay time is not directly addressed as delay time are ", 1, 5, 14, 490, 20, 5, 200 ih FLbox "expected to be small thus producing a comb filtering effect. ", 1, 5, 14, 490, 20, 5, 220 ih FLbox "Instead the frequency of the tone produced by this comb ", 1, 5, 14, 490, 20, 5, 240 ih FLbox "filtering effect is given to the opcode. (Delay time could be", 1, 5, 14, 490, 20, 5, 260 ih FLbox "derived as 1/freq.) The minimum allowed value for 'Frequency'", 1, 5, 14, 490, 20, 5, 280 ih FLbox "is 5 hertz, this translates as a delay time of .2 second. ", 1, 5, 14, 490, 20, 5, 300 ih FLbox "'Feedback' is expressed as a ratio of the entire signal. A ", 1, 5, 14, 490, 20, 5, 320 ih FLbox "value of 0 means that none of the signal will be fed back ", 1, 5, 14, 490, 20, 5, 340 ih FLbox "into the system, a value of 1 means that all of the signal ", 1, 5, 14, 490, 20, 5, 360 ih FLbox "will be fed back into the system. ", 1, 5, 14, 490, 20, 5, 380 ih FLbox "The use of feedback can create dramatic rises in output ", 1, 5, 14, 490, 20, 5, 400 ih FLbox "amplitude, therefore in this example I have included a slider", 1, 5, 14, 490, 20, 5, 420 ih FLbox "that controls output amplitude. ", 1, 5, 14, 490, 20, 5, 440 ih FLbox "Wguide's audible result is comparable to that of the ", 1, 5, 14, 490, 20, 5, 460 ih FLbox "'streson' opcode. ", 1, 5, 14, 490, 20, 5, 480 ih FLbox "Note that tuning inaccuracies are increasingly exhibited as ", 1, 5, 14, 490, 20, 5, 500 ih FLbox "'Frequency' is increased. If precise tuning is required then ", 1, 5, 14, 490, 20, 5, 520 ih FLbox "it will probably not be suffucient to rely on the value given", 1, 5, 14, 490, 20, 5, 540 ih FLbox "for 'Frequency' and instead this should be checked by ear. ", 1, 5, 14, 490, 20, 5, 560 ih FLbox "In this example the user can choose between a sound file ", 1, 5, 14, 490, 20, 5, 580 ih FLbox "input, the computer's live input or a stream of click ", 1, 5, 14, 490, 20, 5, 600 ih FLbox "impulses. The risk of feedback is greatly increased through ", 1, 5, 14, 490, 20, 5, 620 ih FLbox "the use of wguide1 processing so for this reason a gain ", 1, 5, 14, 490, 20, 5, 640 ih FLbox "control on the live input, which is initially zero, is ", 1, 5, 14, 490, 20, 5, 660 ih FLbox "included. Use with caution! It might actually be better to ", 1, 5, 14, 490, 20, 5, 680 ih FLbox "monitor through headphones to further reduce the risk of ", 1, 5, 14, 490, 20, 5, 700 ih FLbox "feedback when using the live input. ", 1, 5, 14, 490, 20, 5, 720 ih FLbox "This example can also be activated via MIDI. In this mode the", 1, 5, 14, 490, 20, 5, 740 ih FLbox "frequency at which wguide1 resonates is determined by the ", 1, 5, 14, 490, 20, 5, 760 ih FLbox "pitch of the MIDI note played - the frequency FLTK slider ", 1, 5, 14, 490, 20, 5, 780 ih FLbox "will be ignored. Polyphony is be possible in the mode. ", 1, 5, 14, 490, 20, 5, 800 ih FLbox "'Attack Time' controls the amplitude rise time of the impulse", 1, 5, 14, 490, 20, 5, 820 ih FLbox "sound. 'Release Time' controls the forced decay time of any ", 1, 5, 14, 490, 20, 5, 840 ih FLbox "residual ringing of wguide1 after a MIDI note (or the FLTK ", 1, 5, 14, 490, 20, 5, 860 ih FLbox "switch) is released. Upon note release the impulse sound is ", 1, 5, 14, 490, 20, 5, 880 ih FLbox "stopped almost immediately. In order for longer release times", 1, 5, 14, 490, 20, 5, 900 ih FLbox "to become apparent 'Feedback' and 'LPF Cutoff Frequency' will", 1, 5, 14, 490, 20, 5, 920 ih FLbox "need to be high. ", 1, 5, 14, 490, 20, 5, 940 FLscrollEnd FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; instr 2 if gkinput==0 then ;IF INPUT 'Seashore' IS SELECTED... gasigL, gasigR diskin2 "Seashore.wav", 1, 0, 1 ;GENERATE 2 AUDIO SIGNALS FROM A STEREO SOUND FILE (NOTE THE USE OF GLOBAL VARIABLES) elseif gkinput==1 then ;IF INPUT 'Live' IS SELECTED... 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 ;END OF CONDITIONAL BRANCHING else ;OTHERWISE... kint random 0.02,0.4;INTERVAL BETWEEN IMPULSES IS RANDOMISED a1 mpulse 4,kint ;GENERATE IMPULSES kcfoct randomi 6,12,2 ;GENERATE RANDOM VALUES FOR FILTER CUTOFF FREQUENCY (OCT FORMAT) a1 butlp a1, cpsoct(kcfoct) ;LOWPASS FILTER STREAM OF CLICKS kpan randomi 0, 1, 10 ;RANDOM PANNING FUNCTION gasigL, gasigR pan2 a1, kpan ;PAN THE MONO SIGNAL TO CREATE 2 STEREO CHANNELS endif endin instr 1 iporttime = 0.01 ;I-RATE VARIABLE DEFINITION OF PORTAMENTO TIME kporttime linseg 0,0.01,iporttime,1,iporttime ;RAMPING UP FROM ZERO VERSION OF PORTAMENTO TIME VARIABLE iMIDIActiveValue = 1 ;IF MIDI ACTIVATED iMIDIflag = 0 ;IF FLTK ACTIVATED mididefault iMIDIActiveValue, iMIDIflag ;IF NOTE IS MIDI ACTIVATED REPLACE iMIDIflag WITH iMIDIActiveValue icps cpsmidi ;READ MIDI PITCH VALUES - THIS VALUE CAN BE MAPPED TO GRAIN DENSITY AND/OR PITCH DEPENDING ON THE SETTING OF THE MIDI MAPPING SWITCHES kMIDIflag init iMIDIflag if gkOnOff=0&&kMIDIflag=0 then ;SENSE FLTK ON/OFF SWITCH & WHETHER THIS IS A MIDI NOTE ITS STATUS WILL BE IGNORED turnoff ;TURNOFF THIS INSTRUMENT IMMEDIATELY endif ;ENDI OF THIS CONDITIONAL BRANCH if kMIDIflag=1 then ;IF THIS IS A MIDI ACTIVATED NOTE... kfreq = icps ;MAP MIDI NOTE VALUE TO WGUIDE1 FREQUENCY else ;OTHERWISE... kfreq portk gkfreq, kporttime ;SMOOTH VARIABLE CHANGES WITH PORTK endif ;END OF THIS CONDITIONAL BRANCH aAttack expsega 0.001,i(gkAtt),1,1,1 krelease release ;SENSE IF WE ARE IN A RELEASE STAGE - THIS WILL BE USED TO MUTE THE INPUT TO ALLOW THE SOUND TO DIE AWAY NATURALLY krelease portk krelease, kporttime aRelease interp (1-krelease) aInputEnv = aAttack*aRelease afreq interp kfreq ;INTERPOLATE TO CREATE A-RATE VERSION OF K-RATE VARIABLE ;OUTPUT OPCODE | INPUT | DELAY/COMB_FREQ | LPF_CUTOFF_FREQ | FEEDBACK_RATIO aresL wguide1 gasigL*aInputEnv, afreq, gkcutoff, gkfeedback aresR wguide1 gasigR*aInputEnv, afreq, gkcutoff, gkfeedback aenv expsegr 1,i(gkRel),0.0001 outs aresL * gkamp*aenv, aresR * gkamp*aenv ;SEND wguide OUTPUT TO THE AUDIO OUTPUTS AND SCALE USING THE FLTK SLIDER VARIABLE gkamp endin i 2 0 3600 ;INPUT SOUND (ALWAYS ON)