diff options
author | Oli <olivier.belanger@umontreal.ca> | 2007-06-29 20:00:27 (GMT) |
---|---|---|
committer | Oli <olivier.belanger@umontreal.ca> | 2007-06-29 20:00:27 (GMT) |
commit | 8599810d64193a0892ed126c3c872063d51d72a7 (patch) | |
tree | 06c3b895c383a0b0310e05a29a92948c86f09b13 /Resources | |
parent | fc0dafb582b2515cbac15963df6d82d43e9301de (diff) |
mic recording
Diffstat (limited to 'Resources')
-rw-r--r-- | Resources/crop.csd | 40 | ||||
-rw-r--r-- | Resources/univorc.csd | 7 |
2 files changed, 23 insertions, 24 deletions
diff --git a/Resources/crop.csd b/Resources/crop.csd index aeb9819..8222b9d 100644 --- a/Resources/crop.csd +++ b/Resources/crop.csd @@ -1,7 +1,7 @@ <CsoundSynthesizer> -<CsOptions> --o /home/olpc/.sugar/default/tamtam/mic1 -W -d +<CsOptions> +-W -d -n </CsOptions> <CsInstruments> @@ -15,7 +15,8 @@ Playing temp file ****************************************************************/ instr 1 -gasig diskin "/home/olpc/.sugar/default/tamtam/tempMic.wav", 1 +asig diskin "/home/olpc/.sugar/default/tamtam/tempMic.wav", 1 +gasig = asig * 0.5 endin @@ -27,37 +28,28 @@ instr 2 itab = 1 ain = gasig krms rms ain -ktrig trigger krms, 1500, 0 +ktrig trigger krms, 2000, 0 -;if ktrig == 1 then -event "i", 5, 0 , 4 +if ktrig == 1 then +event "i", 3, 0, 1 +event "i", 4, 1, 0.01 turnoff -;endif +endif endin -instr 5 -kenv adsr 0.005, 0.05, .9, 0.01 - -adel delay gasig, .01 - -out adel*kenv -adel = 0 -endin - - /**************************************************************** -Audio input recording +recording ****************************************************************/ instr 3 kenv adsr 0.005, 0.05, .9, 0.01 adel delay gasig, .01 -Sname sprintf "/home/olpc/.sugar/default/tamtam/mic%d", int(p4)-6 -ihandle fiopen Sname, 2 -event "i", 4, 1 , .01, p4 +ihandle fiopen "/home/olpc/.sugar/default/tamtam/micTemp", 2 -fout Sname, 2, adel*kenv +fout "/home/olpc/.sugar/default/tamtam/micTemp", 2, adel*kenv + +out adel*kenv adel = 0 endin @@ -65,10 +57,10 @@ endin Audio input recording ( closing file ) ****************************************************************/ instr 4 -Sname sprintf "/home/olpc/.sugar/default/tamtam/mic%d", int(p4)-6 -ficlose Sname +ficlose "/home/olpc/.sugar/default/tamtam/micTemp" endin + </CsInstruments> <CsScore> diff --git a/Resources/univorc.csd b/Resources/univorc.csd index 2fb83cf..d37c9a8 100644 --- a/Resources/univorc.csd +++ b/Resources/univorc.csd @@ -500,6 +500,13 @@ gaRecR = aOutRight endin /**************************************************************** +ducking +****************************************************************/ +instr 5600 +gkduck linseg 1., 0.005, 0.05, 3.9, 0.05, 0.095, 1 +endin + +/**************************************************************** Performance recording start *****************************************************************/ instr 5400 |