1 files changed, 78 insertions, 0 deletions
diff --git a/TamTamEdit.activity/common/Resources/crop.csd b/TamTamEdit.activity/common/Resources/crop.csd
new file mode 100644
index 0000000..483e578
--- /dev/null
+++ b/TamTamEdit.activity/common/Resources/crop.csd
@@ -0,0 +1,78 @@
+<CsoundSynthesizer>
+
+<CsOptions>
+-W -d -n
+</CsOptions>
+
+<CsInstruments>
+
+sr=16000
+ksmps=64
+nchnls=1
+
+/****************************************************************
+Playing temp file
+****************************************************************/
+instr 1
+Spath strget 999
+Stempfile strcat Spath, "/tempMic.wav"
+asig diskin Stempfile, 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
+
+Spath strget 999
+Sfile strcat Spath, "/micTemp.wav"
+
+ihandle fiopen Sfile, 2
+
+fout Sfile, 2, adel*kenv
+
+;out adel*kenv
+adel = 0
+endin
+
+/****************************************************************
+Audio input recording ( closing file )
+****************************************************************/
+instr 4
+Spath strget 999
+Sfile strcat Spath, "/micTemp.wav"
+ficlose Sfile
+endin
+
+
+</CsInstruments>
+
+<CsScore>
+f1 0 8192 10 1
+i1 0 4
+i2 0 4
+</CsScore>
+
+</CsoundSynthesizer>