;Written by Iain McCurdy -idevaudio -odevaudio -b400 sr = 44100 ksmps = 100 nchnls = 2 0dbfs = 1 ;MAXIMUM SOUND INTENSITY LEVEL REGARDLESS OF BIT DEPTH ;FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FLcolor 255, 255, 255, 0, 0, 0 ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "pvsmooth (and pvsanal and pvsynth)", 500, 460, 0, 0 ;BORDERS TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " ", 6, 9, 15, 490, 138, 5, 214 ;BORDER AROUND FFT ATTRIBUTES ;SWITCHES ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | DUR gkOnOff,ihOnOff FLbutton "On/Off", 1, 0, 22, 100, 25, 5, 5, 0, 1, 0, -1 FLsetColor2 255, 255, 50, ihOnOff ;SET SECONDARY COLOUR TO YELLOW ;VALUE DISPLAY BOXES LABEL | WIDTH | HEIGHT | X | Y idacf FLvalue " ", 80, 20, 5, 75 idfcf FLvalue " ", 80, 20, 5, 125 idgain FLvalue " ", 80, 20, 5, 383 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkacf, ihacf FLslider "Amplitude Cutoff Frequency", 0, 1, 0, 23, idacf, 490, 25, 5, 50 gkfcf, ihfcf FLslider "Frequencies Cutoff Frequency", 0, 1, 0, 23, idfcf, 490, 25, 5, 100 gkgain, ihgain FLslider "Output Gain", 0, 8, 0, 23, idgain, 490, 25, 5, 358 gkdrywet, ihdrywet FLslider "Dry Wet Mix", 0, 1, 0, 23, -1, 490, 25, 5, 408 ;GENERAL_TEXT_SETTINGS SIZE | FONT | ALIGN | RED | GREEN | BLUE FLlabel 13, 1, 1, 255, 255, 255 ;NUMBERS MADE INVISIBLE ; FLBUTBANK TYPE | NUMX | NUMY | WIDTH | HEIGHT | X | Y | OPCODE gkinput, ihinput FLbutBank 4, 1, 3, 18, 60, 5,150, -1 gkFFTattributes, ihFFTattributes FLbutBank 4, 1, 4, 18, 78, 120,262, -1 ;GENERAL_TEXT_SETTINGS SIZE | FONT | ALIGN | RED | GREEN | BLUE FLlabel 13, 5, 4, 0, 0, 0 ;LABELS MADE VISIBLE AGAIN ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox "Live Input", 1, 5, 12, 70, 20, 23, 149 ih FLbox "Voice ", 1, 5, 12, 70, 20, 23, 169 ih FLbox "Drum Loop ", 1, 5, 11, 70, 20, 23, 189 ih FLbox "FFT Attributes", 1, 4, 14, 100, 25, 15, 227 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox "FFT Size - Overlap - Window Size - Window Type", 1, 5, 11, 340, 20, 140, 242 ih FLbox " 256 128 256 1 ", 1, 5, 11, 340, 20, 140, 260 ih FLbox " 512 128 512 1 ", 1, 5, 11, 340, 20, 140, 280 ih FLbox " 1024 128 1024 1 ", 1, 5, 11, 340, 20, 140, 300 ih FLbox " 2048 256 2048 1 ", 1, 5, 11, 340, 20, 140, 320 ;SET INITIAL VALUES FOR SLIDERS |VALUE | HANDLE FLsetVal_i 1, ihinput FLsetVal_i 1, ihacf FLsetVal_i 1, ihfcf FLsetVal_i 3, ihFFTattributes FLsetVal_i 1, ihgain FLsetVal_i 1, ihdrywet FLpanel_end ;INSTRUCTIONS AND INFO PANEL WIDTH | HEIGHT | X | Y FLpanel " ", 500, 380, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " pvsmooth (and pvsanal and pvsynth) ", 1, 5, 14, 490, 15, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 15, 5, 20 ih FLbox "Pvsmooth smooths the amplitude and frequency time functions ", 1, 5, 14, 490, 15, 5, 40 ih FLbox "of a pv stream using parallel 1st order lowpass IIR filters ", 1, 5, 14, 490, 15, 5, 60 ih FLbox "with time-varying cutoff frequency. ", 1, 5, 14, 490, 15, 5, 80 ih FLbox "Pvsmooth can produce audible results that sound similar to ", 1, 5, 14, 490, 15, 5, 100 ih FLbox "those produced by pvsbur but pvsmooth has the advantage of ", 1, 5, 14, 490, 15, 5, 120 ih FLbox "allowing us to blur or smooth amplitudes and frequencies ", 1, 5, 14, 490, 15, 5, 140 ih FLbox "independently and by different amounts. ", 1, 5, 14, 490, 15, 5, 160 ih FLbox "The two filters are given fractional values to represent ", 1, 5, 14, 490, 15, 5, 180 ih FLbox "their cutoff frequencies. The actual value is a fraction of ", 1, 5, 14, 490, 15, 5, 200 ih FLbox "half the frame rate. The closer to zero these values are the ", 1, 5, 14, 490, 15, 5, 220 ih FLbox "greater the amount of smoothing that will be applied. ", 1, 5, 14, 490, 15, 5, 240 ih FLbox "A variety of combinations of FFT analysis attributes are ", 1, 5, 14, 490, 15, 5, 260 ih FLbox "selectable using radio button selectors. It can be observed ", 1, 5, 14, 490, 15, 5, 280 ih FLbox "that smaller FFT size and window sizes result in less time ", 1, 5, 14, 490, 15, 5, 300 ih FLbox "smearing but greater harmonic distortion whereas larger FFT ", 1, 5, 14, 490, 15, 5, 320 ih FLbox "sizes and window sizes result in greater time smearing but ", 1, 5, 14, 490, 15, 5, 340 ih FLbox "less harmonic distortion. ", 1, 5, 14, 490, 15, 5, 360 FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; giFFTattributes0 ftgen 1, 0, 4, -2, 256, 128, 256, 1 giFFTattributes1 ftgen 2, 0, 4, -2, 512, 128, 512, 1 giFFTattributes2 ftgen 3, 0, 4, -2, 1024, 128, 1024, 1 giFFTattributes3 ftgen 4, 0, 4, -2, 2048, 256, 2048, 1 instr 1 ; if gkOnOff=0 then ;IF On/Off SWITCH IS SET TO 'Off' turnoff ;TURN THIS INSTRUMENT endif ;END OF CONDITIONAL BRANCHING if gkinput=0 then ;IF 'INPUT' SWITCH IS SET TO 'Live Input' THEN IMPLEMENT THE NEXT LINE OF CODE asig inch 1 ;READ AUDIO FROM THE COMPUTER'S LIVE INPUT CHANNEL 1 (LEFT) elseif gkinput=1 then ;IF 'INPUT' SWITCH IS SET TO 'Voice' THEN IMPLEMENT THE NEXT LINE OF CODE ;OUTPUT OPCODE FILE_PATH | SPEED | INSKIP | WRAPAROUND (1=ON) asig diskin2 "AndItsAll.wav", 1, 0, 1 ;READ A STORED AUDIO FILE FROM THE HARD DRIVE else ;IF 'INPUT' SWITCH IS NOT SET TO 'STORED FILE' THEN IMPLEMENT THE NEXT LINE OF CODE ;OUTPUT OPCODE FILE_PATH | SPEED | INSKIP | WRAPAROUND (1=ON) asig diskin2 "loop.wav", 1, 0, 1 ;READ A STORED AUDIO FILE FROM THE HARD DRIVE endif ;END OF 'IF'...'THEN' BRANCHING kSwitch changed gkFFTattributes ;GENERATE A MOMENTARY '1' PULSE IN OUTPUT 'kSwitch' IF ANY OF THE SCANNED INPUT VARIABLES CHANGE. (OUTPUT 'kSwitch' IS NORMALLY ZERO) if kSwitch=1 then ;IF I-RATE VARIABLE CHANGE TRIGGER IS '1'... reinit START ;BEGIN A REINITIALISATION PASS FROM LABEL 'START' endif ;END OF CONDITIONAL BRANCHING START: ;LABEL iFFTsize table 0, i(gkFFTattributes)+1 ioverlap table 1, i(gkFFTattributes)+1 iwinsize table 2, i(gkFFTattributes)+1 iwintype table 3, i(gkFFTattributes)+1 fsig1 pvsanal asig, iFFTsize, ioverlap, iwinsize, iwintype ;ANALYSE THE AUDIO SIGNAL THAT WAS CREATED IN INSTRUMENT 1. OUTPUT AN F-SIGNAL. fsig2 pvsmooth fsig1, gkacf, gkfcf aresyn pvsynth fsig2 ;RESYNTHESIZE THE f-SIGNAL AS AN AUDIO SIGNAL amix ntrpol asig, aresyn, gkdrywet outs amix * gkgain, amix * gkgain ;SEND THE RESCALE, RESYNTHESIZED SIGNAL TO THE AUDIO OUTPUTS rireturn ;RETURN FROM REINITIALISATION PASS TO PERFORMANCE TIME PASSES endin f 0 3600 ;DUMMY SCORE EVENT ALLOWS REALTIME PLAYING FOR UP TO 1 HOUR