-W -d -n
sr=16000
ksmps=64
nchnls=1
/****************************************************************
Playing temp file
****************************************************************/
instr 1
gilen filelen "/home/olpc/.sugar/default/tamtam/snds/tempMic.wav"
p3 = gilen
asig diskin "/home/olpc/.sugar/default/tamtam/snds/tempMic.wav", 1
gasig dcblock asig
endin
/****************************************************************
Crop silence at the beginning
****************************************************************/
instr 2
ktimer timeinstk
ain = gasig
if ktimer > 40 then
event "i", 3, 0, gilen - 0.2
event "i", 4, gilen - 0.2, 0.01
turnoff
endif
endin
/****************************************************************
recording
****************************************************************/
instr 3
kenv adsr 0.01, 0.05, .9, 0.01
adel delay gasig, .005
ihandle fiopen "/home/olpc/.sugar/default/tamtam/snds/micTemp", 2
fout "/home/olpc/.sugar/default/tamtam/snds/micTemp", 2, adel*kenv
;out adel*kenv
adel = 0
endin
/****************************************************************
Audio input recording ( closing file )
****************************************************************/
instr 4
ficlose "/home/olpc/.sugar/default/tamtam/snds/micTemp"
endin
f1 0 8192 10 1
i1 0 4
i2 0 4