diff options
author | Oli <olivier.belanger@umontreal.ca> | 2008-04-10 03:30:59 (GMT) |
---|---|---|
committer | Oli <olivier.belanger@umontreal.ca> | 2008-04-10 03:30:59 (GMT) |
commit | 2fa8060b7fd790b3260e65d225a4eca5080683a7 (patch) | |
tree | becc0461cffa308ecf5f77acb9ee130ada0a728c /common/Resources/cropSynthLab.csd | |
parent | 957af9bf585d58518bb275ec4926ed11bbd3285e (diff) |
On the way to respect security policy
Diffstat (limited to 'common/Resources/cropSynthLab.csd')
-rw-r--r-- | common/Resources/cropSynthLab.csd | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/common/Resources/cropSynthLab.csd b/common/Resources/cropSynthLab.csd index cd1e25f..4abf203 100644 --- a/common/Resources/cropSynthLab.csd +++ b/common/Resources/cropSynthLab.csd @@ -15,9 +15,11 @@ Playing temp file ****************************************************************/ instr 1 -gilen filelen "/home/olpc/.sugar/default/tamtam/snds/tempMic.wav" +Spath strget 999 +Stempfile strcat Spath, "/tempMic.wav" +gilen filelen Stempfile p3 = gilen -asig diskin "/home/olpc/.sugar/default/tamtam/snds/tempMic.wav", 1 +asig diskin Stempfile, 1 gasig dcblock asig endin @@ -43,9 +45,12 @@ kenv adsr 0.01, 0.05, .9, 0.01 adel delay gasig, .005 -ihandle fiopen "/home/olpc/.sugar/default/tamtam/snds/micTemp", 2 +Spath strget 999 +Sfile strcat Spath, "/micTemp.wav" -fout "/home/olpc/.sugar/default/tamtam/snds/micTemp", 2, adel*kenv +ihandle fiopen Sfile, 2 + +fout Sfile, 2, adel*kenv ;out adel*kenv adel = 0 @@ -55,7 +60,9 @@ endin Audio input recording ( closing file ) ****************************************************************/ instr 4 -ficlose "/home/olpc/.sugar/default/tamtam/snds/micTemp" +Spath strget 999 +Sfile strcat Spath, "/micTemp.wav" +ficlose Sfile endin |