-b512 -B128 -+rtaudio=jack -i adc:alsa_pcm:capture_ -o dac:alsa_pcm:playback_ -M 0 -d sr=44100 ksmps=256 nchnls=2 FLpanel "Glisson",480,250,100,100 gihz FLvalue "Hz", 40, 20, 330, 15 gkfreq,iha FLslider "Frequency", 10, 6000, 0 ,5, gihz, 300,15, 20,15 gkbutton, ihandle1 FLbutton "MIDI", 1, 0, 2, 70, 20, 390, 15, 0 gklevel, ihandle FLknob "Level", 0, 1, 0, 1, -1, 60, 395, 60 gidur FLvalue "ms", 40, 20, 330, 50 gkdur,ihb FLslider "Grain duration", 1, 50, 0 ,5, gidur, 300,15, 20,50 gidens FLvalue "grains/s", 40, 20, 330, 85 gkdens,ihc FLslider "Density", 1, 1000, 0 ,5, gidens, 300,15, 20,85 gifm FLvalue "Hz", 40, 20, 330, 120 gkfreqdev,ihd FLslider "Random Freq deviation", 0, 4000, 0 ,5, gifm, 300,15, 20,120 giphs FLvalue "ms", 40, 20, 330, 155 gklendev,ihe FLslider "Random Length deviation", 0, 200, 0 ,5, giphs, 300,15, 20,155 gipm FLvalue "Hz", 40, 20, 330, 190 gkdensdev,ihf FLslider "Random Density Deviation", 0, 1000, 0 ,5, gipm, 300,15, 20,190 FLpanelEnd FLrun FLsetVal_i 1000,iha FLsetVal_i 500,ihb FLsetVal_i 1,ihc igrainshpprec init 2048 gigrainshp1 ftgen 0,1, igrainshpprec, 20, 6, 1 ;gaussian gigrainshp2 ftgen 0,1, igrainshpprec, 20, 1, 1 ;hamming gigrainshp3 ftgen 0,1, igrainshpprec, 20, 2, 1 ;hanning gigrainshp4 ftgen 0,1, igrainshpprec, 20, 3, 1 ;bartlett (triangle) gigrainshp5 ftgen 0,1, igrainshpprec, 20, 4, 1 ;blackman gigrainshp6 ftgen 0,1, igrainshpprec, 20, 5, 1 ;blakcman-harris gigrainshp7 ftgen 0,1, igrainshpprec, -20, 9, 0.75 ;sync instr 100 ;Grain generator asig = 0 outs asig, asig endin i100 2.515625 6.84375 e