1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
<CsoundSynthesizer>
<CsOptions>
-W -d -n
</CsOptions>
<CsInstruments>
sr=16000
ksmps=64
nchnls=1
/****************************************************************
Playing temp file
****************************************************************/
instr 1
asig diskin "/home/olpc/.sugar/default/tamtam/tempMic.wav", 1
gasig = asig * 0.5
endin
/****************************************************************
Crop silence at the beginning
****************************************************************/
instr 2
itab = 1
ain = gasig
krms rms ain
ktrig trigger krms, 2000, 0
if ktrig == 1 then
event "i", 3, 0, 1
event "i", 4, 1, 0.01
turnoff
endif
endin
/****************************************************************
recording
****************************************************************/
instr 3
kenv adsr 0.005, 0.05, .9, 0.01
adel delay gasig, .01
ihandle fiopen "/home/olpc/.sugar/default/tamtam/micTemp", 2
fout "/home/olpc/.sugar/default/tamtam/micTemp", 2, adel*kenv
out adel*kenv
adel = 0
endin
/****************************************************************
Audio input recording ( closing file )
****************************************************************/
instr 4
ficlose "/home/olpc/.sugar/default/tamtam/micTemp"
endin
</CsInstruments>
<CsScore>
f1 0 8192 10 1
i1 0 4
i2 0 4
</CsScore>
</CsoundSynthesizer>
|
