;Written by Iain McCurdy, 2006 -+rtaudio=PortAudio -b4096 sr = 44100 ;SAMPLE RATE kr = 441 ;CONTROL RATE ksmps = 100 ;NUMBER OF AUDIO SAMPLES IN EACH CONTROL CYCLE nchnls = 2 ;NUMBER OF CHANNELS (2=STEREO) ;FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "butterhp/buthp", 500, 100, 0, 0 ;SWITCHES ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | DUR gkOnOff,ihOnOff FLbutton "On/Off", 1, -1, 2, 150, 30, 0, 0, 0, 2, 0, -1 ;VALUE DISPLAY BOXES LABEL | WIDTH | HEIGHT | X | Y idfreq FLvalue " ", 100, 20, 0, 80 ;COUNTERS MIN | MAX | STEP1 | STEP2 | TYPE | WIDTH | HEIGHT | X | Y | OPCODE gkskip, ihskip FLcount "Initialisation 0-On 1-Off", 0, 1, 1, 1, 2, 150, 30, 350, 0, -1 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkfreq,ihfreq FLslider "Filter Cutoff", 20, 20000, -1, 5, idfreq, 500, 30, 0, 50 ;SET INITIAL VALUES OF FLTK VALUATORS ; VALUE | HANDLE FLsetVal_i 20, ihfreq FLsetVal_i -1, ihOnOff FLsetVal_i 0, ihskip FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 280, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " butterhp/buthp ", 1, 5, 14, 490, 15, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 15, 5, 20 ih FLbox "Butterhp/buthp is an implementation of a second-order IIR ", 1, 5, 14, 490, 15, 5, 40 ih FLbox "Butterworth high-pass filter. Its input arguments are for ", 1, 5, 14, 490, 15, 5, 60 ih FLbox "filter cutoff frequency (in hertz) and an optional 2-way ", 1, 5, 14, 490, 15, 5, 80 ih FLbox "switch (default=0) to select whether the data space for ", 1, 5, 14, 490, 15, 5, 100 ih FLbox "feedback within the filter is initially cleared or allowed ", 1, 5, 14, 490, 15, 5, 120 ih FLbox "to retain previously held information. ", 1, 5, 14, 490, 15, 5, 140 ih FLbox "Butterhp/buthp are slower than the original filters in Csound", 1, 5, 14, 490, 15, 5, 160 ih FLbox "but provide an almost flat passband and very good precision ", 1, 5, 14, 490, 15, 5, 180 ih FLbox "and stopband attenuation ", 1, 5, 14, 490, 15, 5, 200 ih FLbox "Multiple iterations of the butterhp/buthp opcode applied to ", 1, 5, 14, 490, 15, 5, 220 ih FLbox "the signal path in series can be used to create a sharper ", 1, 5, 14, 490, 15, 5, 240 ih FLbox "cutoff slope. ", 1, 5, 14, 490, 15, 5, 260 FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; instr 1 ;(ALWAYS ON - SEE SCORE) PLAYS FILE AND SENSES FADER MOVEMENT AND RESTARTS INSTR 2 FOR I-RATE CONTROLLERS ;OUTPUTS OPCODE FILE | SPEED | INSKIP | LOOPING (0=OFF 1=ON) gasigL, gasigR diskin "Seashore.wav", 1, 0, 1 ;GENERATE 2 AUDIO SIGNALS FROM A STEREO SOUND FILE (NOTE THE USE OF GLOBAL VARIABLES) kSwitch changed gkskip ;GENERATE A MOMENTARY '1' PULSE IN OUTPUT 'kSwitch' IF ANY OF THE SCANNED INPUT VARIABLES CHANGE. (OUTPUT 'kSwitch' IS NORMALLY ZERO) ; ITRIGGER | IMINTIM | IMAXNUM | IINSNUM | IWHEN | IDUR (-1 MEANS A NOTE OF INFINITE DURATION) schedkwhen kSwitch, 0, 0, 2, 0, -1 ;RESTART INSTRUMENT 2 WITH A SUSTAINED (HELD) NOTE WHENEVER kSwitch=1 endin instr 2 if gkOnOff!=-1 goto CONTINUE ;SENSE FLTK ON/OFF SWITCH turnoff ;TURN THIS INSTRUMENT OFF IMMEDIATELY CONTINUE: aresL buthp gasigL, gkfreq, i(gkskip) aresR buthp gasigR, gkfreq, i(gkskip) outs aresL, aresR ;SEND FILTER OUTPUT TO THE AUDIO OUTPUTS endin ;INSTR | START | DURATION i 1 0 3600 ;INSTRUMENT 1 PLAYS FOR 1 HOUR