diff options
author | Nat <natcl@hotmail.com> | 2007-09-13 15:55:52 (GMT) |
---|---|---|
committer | Nat <natcl@hotmail.com> | 2007-09-13 15:55:52 (GMT) |
commit | e12dbff4dda5aafbaac98f75f0467ef00dc06c32 (patch) | |
tree | 52f74f5a699ca1a2827b333e76a7225b7d768256 /common/Resources/crop.csd | |
parent | b94ccdfd2329ed2d1128a4392e2f67b1e6b704da (diff) |
Activity split
Diffstat (limited to 'common/Resources/crop.csd')
-rw-r--r-- | common/Resources/crop.csd | 72 |
1 files changed, 72 insertions, 0 deletions
diff --git a/common/Resources/crop.csd b/common/Resources/crop.csd new file mode 100644 index 0000000..03b10a5 --- /dev/null +++ b/common/Resources/crop.csd @@ -0,0 +1,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/snds/tempMic.wav", 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 + +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 + + +</CsInstruments> + +<CsScore> +f1 0 8192 10 1 +i1 0 4 +i2 0 4 +</CsScore> + +</CsoundSynthesizer> |