-d -m0 sr=44100 ksmps=16 nchnls=1 ix init 10 iy init 10 io init 45 iln init 140 iwd init 20 FLcolor 200,10,40, 140,60,60 FLpanel "24-band Graphic Equaliser", ix+io*24, 220, 100, 300 gk1, gis1 FLslider "80", 0, 2, 0, 6, -1, iwd, iln, ix, iy gk2, gis2 FLslider "100", 0, 2, 0, 6, -1, iwd, iln, ix+io, iy gk3, gis3 FLslider "125", 0, 2, 0, 6, -1, iwd, iln, ix+io*2, iy gk4, gis4 FLslider "160", 0, 2, 0, 6, -1, iwd, iln, ix+io*3, iy gk5, gis5 FLslider "200", 0, 2, 0, 6, -1, iwd, iln, ix+io*4, iy gk6, gis6 FLslider "250", 0, 2, 0, 6, -1, iwd, iln, ix+io*5, iy gk7, gis7 FLslider "320", 0, 2, 0, 6, -1, iwd, iln, ix+io*6, iy gk8, gis8 FLslider "400", 0, 2, 0, 6, -1, iwd, iln, ix+io*7, iy gk9, gis9 FLslider "500", 0, 2, 0, 6, -1, iwd, iln, ix+io*8, iy gk10, gis10 FLslider "640", 0, 2, 0, 6, -1, iwd, iln, ix+io*9, iy gk11, gis11 FLslider "800", 0, 2, 0, 6, -1, iwd, iln, ix+io*10, iy gk12, gis12 FLslider "1000", 0, 2, 0, 6, -1, iwd, iln, ix+io*11, iy gk13, gis13 FLslider "1250", 0, 2, 0, 6, -1, iwd, iln, ix+io*12, iy gk14, gis14 FLslider "1600", 0, 2, 0, 6, -1, iwd, iln, ix+io*13, iy gk15, gis15 FLslider "2000", 0, 2, 0, 6, -1, iwd, iln, ix+io*14, iy gk16, gis16 FLslider "2500", 0, 2, 0, 6, -1, iwd, iln, ix+io*15, iy gk17, gis17 FLslider "3200", 0, 2, 0, 6, -1, iwd, iln, ix+io*16, iy gk18, gis18 FLslider "4000", 0, 2, 0, 6, -1, iwd, iln, ix+io*17, iy gk19, gis19 FLslider "5000", 0, 2, 0, 6, -1, iwd, iln, ix+io*18, iy gk20, gis20 FLslider "6400", 0, 2, 0, 6, -1, iwd, iln, ix+io*19, iy gk21, gis21 FLslider "8000", 0, 2, 0, 6, -1, iwd, iln, ix+io*20, iy gk22, gis22 FLslider "10000", 0, 2, 0, 6, -1, iwd, iln, ix+io*21, iy gk23, gis23 FLslider "12500", 0, 2, 0, 6, -1, iwd, iln, ix+io*22, iy gk24, gis24 FLslider "16000", 0, 2, 0, 6, -1, iwd, iln, ix+io*23, iy ibuts init 21 ibsiz init 40 FLcolor 120,50,250, 50,180,200 gkb, gib FLbutBank 12, ibuts, 1, ibsiz*ibuts,ibsiz/2,ix,iln+io,0,2,0,1 gks, gis FLbutton "save bank",1,0,11,ibsiz*2,ibsiz/2,ibsiz*ibuts+io,iln+io,0,3,0,1 gkl, gil FLbutton "load bank",1,0,11,ibsiz*2,ibsiz/2,ibsiz+ibsiz*ibuts+io*2,iln+io,0,4,0,1 FLpanel_end FLsetVal_i 1, gis1 FLsetVal_i 1, gis2 FLsetVal_i 1, gis3 FLsetVal_i 1, gis4 FLsetVal_i 1, gis5 FLsetVal_i 1, gis6 FLsetVal_i 1, gis7 FLsetVal_i 1, gis8 FLsetVal_i 1, gis9 FLsetVal_i 1, gis10 FLsetVal_i 1, gis11 FLsetVal_i 1, gis12 FLsetVal_i 1, gis13 FLsetVal_i 1, gis14 FLsetVal_i 1, gis15 FLsetVal_i 1, gis16 FLsetVal_i 1, gis17 FLsetVal_i 1, gis18 FLsetVal_i 1, gis19 FLsetVal_i 1, gis20 FLsetVal_i 1, gis21 FLsetVal_i 1, gis22 FLsetVal_i 1, gis23 FLsetVal_i 1, gis24 gisnap init 0 FLrun instr 1 k1 port 2 - gk1,0.01 k2 port 2 - gk2,0.01 k3 port 2 - gk3,0.01 k4 port 2 - gk4,0.01 k5 port 2 - gk5,0.01 k6 port 2 - gk6,0.01 k7 port 2 - gk7,0.01 k8 port 2 - gk8,0.01 k9 port 2 - gk9,0.01 k10 port 2 - gk10,0.01 k11 port 2 - gk11,0.01 k12 port 2 - gk12,0.01 k13 port 2 - gk13,0.01 k14 port 2 - gk14,0.01 k15 port 2 - gk15,0.01 k16 port 2 - gk16,0.01 k17 port 2 - gk17,0.01 k18 port 2 - gk18,0.01 k19 port 2 - gk19,0.01 k20 port 2 - gk20,0.01 k21 port 2 - gk21,0.01 k22 port 2 - gk22,0.01 k23 port 2 - gk23,0.01 k24 port 2 - gk24,0.01 asig in iq = 4.5 asig eqfil asig, 80, 80/iq, k1 asig eqfil asig, 100, 100/iq, k2 asig eqfil asig, 125, 125/iq, k3 asig eqfil asig, 160, 160/iq, k4 asig eqfil asig, 200, 200/iq, k5 asig eqfil asig, 250, 250/iq, k6 asig eqfil asig, 320, 320/iq, k7 asig eqfil asig, 400, 400/iq, k8 asig eqfil asig, 500, 500/iq, k9 asig eqfil asig, 640, 640/iq, k10 asig eqfil asig, 800, 800/iq, k11 asig eqfil asig, 1000, 1000/iq, k12 asig eqfil asig, 1250, 1250/iq, k13 asig eqfil asig, 1600, 1600/iq, k14 asig eqfil asig, 2000, 2000/iq, k15 asig eqfil asig, 2500, 2500/iq, k16 asig eqfil asig, 3200, 3200/iq, k17 asig eqfil asig, 4000, 4000/iq, k18 asig eqfil asig, 5000, 5000/iq, k19 asig eqfil asig, 6400, 6400/iq, k20 asig eqfil asig, 8000, 8000/iq, k21 asig eqfil asig, 10000, 10000/iq, k22 asig eqfil asig, 12500, 12500/iq, k23 asig eqfil asig, 16000, 16000/iq, k24 out asig endin instr 2 ;isn,inv FLsetsnap gisnap /*isnap = i(gkb) isn FLgetsnap isnap gisnap = isnap*/ turnoff endin instr 3 FLsavesnap "equaliser.snapshots" turnoff endin instr 4 FLloadsnap "equaliser.snapshots" turnoff endin i1 0 600000