;Written by Iain McCurdy, 2006 -odevaudio -b400 sr = 44100 ;SAMPLE RATE ksmps = 2 ;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 ; LABEL | WIDTH | HEIGHT | X | Y FLpanel "areson", 500, 300, 0, 0 ;SWITCHES ON | OFF | TYPE | WIDTH | HEIGHT | X | Y | OPCODE | INS | STARTTIM | IDUR gkOnOff,ihOnOff FLbutton "On/Off", 1, 0, 22, 140, 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 idcf FLvalue " ", 70, 20, 5, 75 idbw FLvalue " ", 70, 20, 5, 125 idamp FLvalue " ", 70, 20, 5, 275 ;COUNTERS MIN | MAX | STEP1 | STEP2 | TYPE | WIDTH | HEIGHT | X | Y | OPCODE gkscl, ihscl FLcount "Scaling Mode", 0, 2, 1, 1, 2, 150, 25, 5, 150, -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 gkcf,ihcf FLslider "Filter Centre Frequency", 20, 20000, -1, 23, idcf, 490, 25, 5, 50 gkbw,ihbw FLslider "Bandwidth", .1, 10000, -1, 23, idbw, 490, 25, 5, 100 gkamp,ihamp FLslider "Output Amplitude Scaling", 0, 1, 0, 23, idamp, 490, 25, 5, 250 ;SET INITIAL VALUES OF FLTK VALUATORS VALUE | HANDLE FLsetVal_i 10000, ihcf FLsetVal_i 1000, ihbw FLsetVal_i 1, ihscl FLsetVal_i 1, ihamp ;TEXT BOXES ITYPE, IFONT, ISIZE, IWIDTH, IHEIGHT, IX, IY ih FLbox "Scaling Modes: 0-None 1-Peak Response Factor of 1 2-Overall RMS Response Factor equals 1", 1, 9, 12, 500, 30, 0, 200 FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 400, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " areson ", 1, 5, 14, 490, 15, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 15, 5, 20 ih FLbox "areson is an implementation of a resonant second-order notch ", 1, 5, 14, 490, 15, 5, 40 ih FLbox "filter. ", 1, 5, 14, 490, 15, 5, 60 ih FLbox "Its input arguments are for filter centre frequency (in ", 1, 5, 14, 490, 15, 5, 80 ih FLbox "hertz), bandwidth of the notch (also in hertz) a 3-way switch", 1, 5, 14, 490, 15, 5, 100 ih FLbox "offering a choice 3 methods by which the output amplitude ", 1, 5, 14, 490, 15, 5, 120 ih FLbox "will be dynamically scaled and a 2-way switch selecting ", 1, 5, 14, 490, 15, 5, 140 ih FLbox "whether the data space for feedback within the filter is ", 1, 5, 14, 490, 15, 5, 160 ih FLbox "initially cleared or allowed to retain previously held ", 1, 5, 14, 490, 15, 5, 180 ih FLbox "information. ", 1, 5, 14, 490, 15, 5, 200 ih FLbox "The audible results of the areson filter are not dissimilar ", 1, 5, 14, 490, 15, 5, 220 ih FLbox "to those of a phaser effect. ", 1, 5, 14, 490, 15, 5, 240 ih FLbox "Setting 'Scaling Mode' to 0 will provide the most dynamically", 1, 5, 14, 490, 15, 5, 260 ih FLbox "transparent effect but some manual rescaling of the amplitude", 1, 5, 14, 490, 15, 5, 280 ih FLbox "of the output signal may be necessary. In this example this ", 1, 5, 14, 490, 15, 5, 300 ih FLbox "can be performed using the 'Output Amplitude Scaling' slider.", 1, 5, 14, 490, 15, 5, 320 ih FLbox "Settings for 'Scaling Mode' of 1 or 2 force dynamic ", 1, 5, 14, 490, 15, 5, 340 ih FLbox "containment of the output signal similar to the effect of a ", 1, 5, 14, 490, 15, 5, 360 ih FLbox "compressor. ", 1, 5, 14, 490, 15, 5, 380 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 kcf portk gkcf, kporttime ;SMOOTH MOVEMENT OF SLIDER VARIABLE kbw portk gkbw, 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 kSwitch changed gkscl, gkskip ;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 areson asigL, kcf, kbw , i(gkscl), i(gkskip) ;FILTER EACH CHANNEL SEPARATELY aresR areson asigR, kcf, kbw , i(gkscl), i(gkskip) ;FILTER EACH CHANNEL SEPARATELY rireturn ;RETURN FROM REINITIALISATION PASS TO PERFORMANCE TIME PASSES outs aresL * gkamp, aresR * gkamp ;SEND FILTER OUTPUT TO THE AUDIO OUTPUTS AND SCALE USING THE FLTK SLIDER VARIABLE gkamp endin f 0 3600 ;DUMMY SCORE EVENT ALLOWS REAL-TIME PERFORMANCE FOR 1 HOUR