;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 "moogladder", 500, 200, 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 idcf FLvalue " ", 100, 20, 0, 80 idres FLvalue " ", 100, 20, 0, 130 idfrq FLvalue " ", 100, 20, 0, 180 ;SLIDERS MIN | MAX | EXP | TYPE | DISP | WIDTH | HEIGHT | X | Y gkcf,ihcf FLslider "Filter Cutoff", 20, 20000, -1, 5, idcf, 500, 30, 0, 50 gkres,ihres FLslider "Resonance", 0, 1, 0, 5, idres, 500, 30, 0, 100 gkfrq,ihfrq FLslider "Oscillator Frequency", 20, 20000, -1, 5, idfrq, 500, 30, 0, 150 ;COUNTERS MIN | MAX | STEP1 | STEP2 | TYPE | WIDTH | HEIGHT | X | Y | OPCODE gkistor, ihistor FLcount "Initialisation 0-On 1-Off", 0, 1, 1, 1, 2, 150, 30, 350, 0, -1 ;SET INITIAL VALUES OF FLTK VALUATORS ; VALUE | HANDLE FLsetVal_i 19000, ihcf FLsetVal_i 0, ihres FLsetVal_i -1, ihOnOff FLsetVal_i 0, ihistor FLsetVal_i 100, ihfrq FLpanel_end ;INSTRUCTIONS AND INFO PANEL FLpanel " ", 500, 260, 512, 0 ;TEXT BOXES TYPE | FONT | SIZE | WIDTH | HEIGHT | X | Y ih FLbox " moogladder ", 1, 5, 14, 490, 15, 5, 0 ih FLbox "-------------------------------------------------------------", 1, 5, 14, 490, 15, 5, 20 ih FLbox "Moogladder is an emulation of the moog ladder resonant ", 1, 5, 14, 490, 15, 5, 40 ih FLbox "low-pass filter. ", 1, 5, 14, 490, 15, 5, 60 ih FLbox "The opcode's input arguments include cutoff frequency and ", 1, 5, 14, 490, 15, 5, 80 ih FLbox "resonance. ", 1, 5, 14, 490, 15, 5, 100 ih FLbox "An optional 2-way switch (default=0) is provided to select ", 1, 5, 14, 490, 15, 5, 120 ih FLbox "whether the data space for feedback within the filter is ", 1, 5, 14, 490, 15, 5, 140 ih FLbox "initially cleared or allowed to retain previously held ", 1, 5, 14, 490, 15, 5, 160 ih FLbox "information. ", 1, 5, 14, 490, 15, 5, 180 ih FLbox "The input signal used in this example is a triangle waveform,", 1, 5, 14, 490, 15, 5, 200 ih FLbox "the frequency of which is adjustable using an on-screen ", 1, 5, 14, 490, 15, 5, 220 ih FLbox "slider. ", 1, 5, 14, 490, 15, 5, 240 FLpanel_end FLrun ;RUN THE FLTK WIDGET THREAD ;END OF FLTK INTERFACE CODE;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; gir ftgen 1, 0, 131072, 10, 1 ;SINE WAVE FUNCTION TABLE instr 1 ;(ALWAYS ON - SEE SCORE) SENSES FADER MOVEMENT AND RESTARTS INSTR 2 FOR I-RATE CONTROLLERS kSwitch changed gkistor ; 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: asig vco 1, gkfrq, 1, 0 ;GENERATE A TRIANGLE WAVE AUDIO SIGNAL (NOTE THAT lpf18 EXPECTS A SIGNAL WITHIN THE RANGE -1 TO 1) ares moogladder asig, gkcf, gkres, i(gkistor) outs ares * 32768, ares * 32768 ;FILTER OUTPUT IS SENT TO THE AUDIO OUTPUTS AND SCALED UP IN ORDER TO BE AUDIBLE endin ;INSTR | START | DURATION i 1 0 3600 ;INSTRUMENT 1 PLAYS FOR 1 HOUR