;Written by Iain McCurdy, 2006 -odevaudio -b400 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;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FLcolor 255, 255, 255, 0, 0, 0 ;SET INTERFACE COLOURS ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "tonex", 500, 150, 0, 0 ;SWITCHES ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | IDUR gkOnOff,ihOnOff FLbutton "On/Off", 1, 0, 22, 150, 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 idfco FLvalue " ", 60, 20, 5, 75 idgain FLvalue " ", 70, 20, 5, 125 ;COUNTERS MIN | MAX | STEP1 | STEP2 | TYPE | WIDTH | HEIGHT | X | Y | OPCODE gknumlayer, ihnumlayer FLcount "Number of Layers", 1, 500, 1, 50, 1, 150, 25, 175, 5, -1 gkskip, ihskip FLcount "Initialisation 0-On 1-Off", 0, 1, 1, 1, 2, 150, 25, 345, 5, -1 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkfco,ihfco FLslider "Filter Cutoff (Hz.)", 20, 20000, -1, 23, idfco, 490, 25, 5, 50 gkgain, ihgain FLslider "Output Amplitude Scaling", 0, 2, 0, 23, idgain, 490, 25, 5, 100 ;SET INITIAL VALUES OF FLTK VALUATORS ; VALUE | HANDLE FLsetVal_i 20000, ihfco FLsetVal_i 1, ihnumlayer FLsetVal_i 1, ihgain FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 180, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " tonex ", 1, 5, 14, 490, 15, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 15, 5, 20 ih FLbox "tonex is an implementation of a second-order low-pass filter.", 1, 5, 14, 490, 15, 5, 40 ih FLbox "Its input arguments are for cutoff frequency (half-power ", 1, 5, 14, 490, 15, 5, 60 ih FLbox "point) and a counter selecting the number of series ", 1, 5, 14, 490, 15, 5, 80 ih FLbox "iterations of the low-pass filter it implements. ", 1, 5, 14, 490, 15, 5, 100 ih FLbox "The effect of this is the same as the effect of multiple ", 1, 5, 14, 490, 15, 5, 120 ih FLbox "serially connected tone filters. However, use of the tonex ", 1, 5, 14, 490, 15, 5, 140 ih FLbox "opcode will be computationally much more efficient. ", 1, 5, 14, 490, 15, 5, 160 FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; instr 1 if gkOnOff=0 then ;IF On/Off SWITCH IS SET TO 'OFF'... turnoff ;TURN THIS INSTRUMENT OFF endif ;END OF CONDITIONAL BRANCHING kporttime linseg 0,0.001,0.005,1,0.005 ;CREATE A VARIABLE FUNCTION THAT RAPIDLY RAMPS UP TO A SET VALUE kfco portk gkfco, kporttime ;SMOOTH MOVEMENT OF SLIDER VARIABLE ;OUTPUTS OPCODE FILE | SPEED | INSKIP | LOOPING (0=OFF 1=ON) asigL, asigR diskin2 "Seashore.wav", 1, 0, 1 ;GENERATE 2 AUDIO SIGNALS FROM A STEREO SOUND FILE (NOTE THE USE OF GLOBAL VARIABLES) kSwitch changed gkskip, gknumlayer ;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 START: aresL tonex asigL, kfco , i(gknumlayer), i(gkskip) ;FILTER BOTH CHANNELS SEPARATELY aresR tonex asigR, kfco , i(gknumlayer), i(gkskip) ;FILTER BOTH CHANNELS SEPARATELY rireturn ;RETURN FROM REINITIALISATION PASS TO PERFORMANCE TIME PASSES outs aresL * gkgain, aresR * gkgain ;SEND FILTER OUTPUT TO THE AUDIO OUTPUTS, RESCALE USING SLIDER VARIABLE gkgain endin f 0 3600 ;DUMMY SCORE EVENT ALLOWS REAL-TIME PERFORMANCE FOR 1 HOUR