;Written by Iain McCurdy, 2006 -odevaudio -b400 ;DEMONSTRATION OF THE FLpanel OPCODE ;HORIZONTAL CLICK-AND-DRAGGING CONTROLS THE FREQUENCY OF THE OSCILLATOR ;VERTICAL CLICK-AND-DRAGGING CONTROLS THE AMPLITUDE OF THE OSCILLATOR sr = 44100 kr = 4410 ksmps = 10 nchnls = 2 0dbfs = 1 ;MAXIMUM AMPLITUDE REGARDLESS OF BIT DEPTH ; OPCODE LABEL | WIDTH | HEIGHT | X | Y FLpanel "X Y Panel", 900, 400, 50, 50 iminx = 100 ;MINIMUM VALUE OUTPUT BY X MOVEMENT (FREQUENCY) imaxx = 1000 ;MAXIMUM VALUE OUTPUT BY X MOVEMENT (FREQUENCY) iminy = 0 ;MINIMUM VALUE OUTPUT BY Y MOVEMENT (AMPLITUDE) imaxy = 0.1 ;MAXIMUM VALUE OUTPUT BY Y MOVEMENT (AMPLITUDE) iexpx = -1 ;LOGARITHMIC CHANGE IN X DIRECTION iexpy = 0 ;LINEAR CHANGE IN Y DIRECTION idispx = -1 ;DISPLAY HANDLE X DIRECTION (-1=NOT USED) idispy = -1 ;DISPLAY HANDLE Y DIRECTION (-1=NOT USED) iwidth = 800 ;WIDTH OF THE X Y PANEL IN PIXELS iheight = 300 ;HEIGHT OF THE X Y PANEL IN PIXELS ix = 50 ;DISTANCE OF THE LEFT EDGE OF THE X Y PANEL FROM THE LEFT EDGE OF THE PANEL iy = 50 ;DISTANCE OF THE TOP EDGE OF THE X Y PANEL FROM THE TOP EDGE OF THE PANEL gkfreqx,gkampy,ihandlex,ihandley FLjoy "X - Frequency Y - Amplitude", iminx, imaxx, iminy, imaxy, iexpx, iexpy, idispx, idispy, iwidth, iheight, ix, iy ;SET INITIAL VALUES OF VALUATOR FLsetVal_i 500, ihandlex FLsetVal_i 0.1, ihandley FLpanel_end ;END OF PANEL CONTENTS FLrun ;RUN THE WIDGET THREAD! gisine ftgen 0, 0, 65536, 10, 1 ;FUNCTION TABLE THAT DEFINES A SINGLE CYCLE OF A SINE WAVE instr 1 kporttime linseg 0,0.001,0.005,1,0.005 ;CREATE A VARIABLE FUNCTION THAT RAPIDLY RAMPS UP TO A SET VALUE kfreq portk gkfreqx, kporttime ;SMOOTH SLIDER VARIABLE kamp portk gkampy, kporttime ;SMOOTH SLIDER VARIABLE afreq interp kfreq ;INTERPOLATE AND CREATE AN AUDIO RATE VERSION OF K-RATE VARIABLE aamp interp kamp ;INTERPOLATE AND CREATE AN AUDIO RATE VERSION OF K-RATE VARIABLE asig oscili aamp, afreq, gisine ;SINE WAVE OSCILLATOR outs asig, asig ;SEND AUDIO TO OUTPUTS endin i 1 0 3600 ;INSTRUMENT 1 WILL PLAY A NOTE FOR 1 HOUR