-W -d -n sr=16000 ksmps=64 nchnls=1 /**************************************************************** Playing temp file ****************************************************************/ instr 1 Spath strget 999 Stempfile strcat Spath, "/tempMic.wav" asig diskin Stempfile, 1 gasig dcblock asig endin /**************************************************************** Crop silence at the beginning ****************************************************************/ instr 2 ktimer timeinstk ain = gasig krms rms ain if ktimer > 40 then ktrig trigger krms, 1500, 0 if ktrig == 1 then event "i", 3, 0, 2 event "i", 4, 2, 0.01 turnoff endif endif endin /**************************************************************** recording ****************************************************************/ instr 3 kenv adsr 0.01, 0.05, .9, 0.01 adel delay gasig, .005 Spath strget 999 Sfile strcat Spath, "/micTemp.wav" ihandle fiopen Sfile, 2 fout Sfile, 2, adel*kenv ;out adel*kenv adel = 0 endin /**************************************************************** Audio input recording ( closing file ) ****************************************************************/ instr 4 Spath strget 999 Sfile strcat Spath, "/micTemp.wav" ficlose Sfile endin f1 0 8192 10 1 i1 0 4 i2 0 4