From 2110017526d60047e369a539e31942034a381913 Mon Sep 17 00:00:00 2001 From: Oli Date: Fri, 05 Oct 2007 20:52:50 +0000 Subject: new files --- diff --git a/TamTamSynthLab.activity/icons/sl-mic+.svg b/TamTamSynthLab.activity/icons/sl-mic+.svg new file mode 100755 index 0000000..3e19ef1 --- /dev/null +++ b/TamTamSynthLab.activity/icons/sl-mic+.svg @@ -0,0 +1,28 @@ + + + + + + + + + + + + + + diff --git a/TamTamSynthLab.activity/icons/sl-mic-menu.svg b/TamTamSynthLab.activity/icons/sl-mic-menu.svg new file mode 100644 index 0000000..525b290 --- /dev/null +++ b/TamTamSynthLab.activity/icons/sl-mic-menu.svg @@ -0,0 +1,21 @@ + + + + + + + + + + + + + diff --git a/common/Resources/cropSynthLab.csd b/common/Resources/cropSynthLab.csd new file mode 100644 index 0000000..cd1e25f --- /dev/null +++ b/common/Resources/cropSynthLab.csd @@ -0,0 +1,70 @@ + + + +-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 + + + -- cgit v0.9.1