diff options
author | Oli <olivier.belanger@umontreal.ca> | 2007-06-19 02:46:20 (GMT) |
---|---|---|
committer | Oli <olivier.belanger@umontreal.ca> | 2007-06-19 02:46:20 (GMT) |
commit | 58be91bd2f50e2c72eabe21bc55ce3ff273c9be9 (patch) | |
tree | a5189e7ef3c6f5d0be8fd72a31537f545f0250ca /Resources | |
parent | 5db7b4b41151abe0bae62d4bb324204e7d0d282c (diff) |
recording performance (Edit) in vorbis .ogg format
Diffstat (limited to 'Resources')
-rw-r--r-- | Resources/univorc.csd | 52 |
1 files changed, 38 insertions, 14 deletions
diff --git a/Resources/univorc.csd b/Resources/univorc.csd index 4cc5b88..2fb83cf 100644 --- a/Resources/univorc.csd +++ b/Resources/univorc.csd @@ -485,8 +485,13 @@ arev reverb ain, 2.5 arev butterlp arev, 5000 aLeft butterlp gaoutL, 7500 -aRight butterlp gaoutR, 7500 - outs (arev + aLeft)*koutGain*gkduck, (arev + aRight) * koutGain*gkduck +aRight butterlp gaoutR, 7500 + +aOutLeft = (arev + aLeft) * koutGain * gkduck +aOutRight = (arev + aRight) * koutGain * gkduck +gaRecL = aOutLeft +gaRecR = aOutRight + outs aOutLeft, aOutRight gaoutL = 0 gaoutR = 0 @@ -495,6 +500,25 @@ aRight butterlp gaoutR, 7500 endin /**************************************************************** +Performance recording start +*****************************************************************/ +instr 5400 +Sname strcpy "/home/olpc/.sugar/default/tamtam/perf.wav" +ihandle fiopen Sname, 2 +fout Sname, 2, gaRecL, gaRecR +clear gaRecL, gaRecR +endin + +/**************************************************************** +Performance recording stop ( closing file ) +*****************************************************************/ +instr 5401 +Sname strcpy "/home/olpc/.sugar/default/tamtam/perf.wav" +turnoff2 5400, 8, 0 +ficlose Sname +endin + +/**************************************************************** Handler audio input recording ****************************************************************/ instr 5201 @@ -807,13 +831,13 @@ a1 bqrez a1, p12, 6, p11-1 a1 balance a1, acomp endif -if p4 < 1 then -ialias = giAliasSr*p4 -else -ialias = giAliasSr -endif +;if p4 < 1 then +;ialias = giAliasSr*p4 +;else +;ialias = giAliasSr +;endif -a1 tone a1, ialias +;a1 tone a1, ialias aenv adsr p9, 0.005, p6, p10 a1 = a1*aenv*kvol @@ -894,13 +918,13 @@ a1 bqrez a1, p12, 6, p11-1 a1 balance a1, acomp endif -if p4 < 1 then -ialias = giAliasSr*p4 -else -ialias = giAliasSr -endif +;if p4 < 1 then +;ialias = giAliasSr*p4 +;else +;ialias = giAliasSr +;endif -a1 tone a1, ialias +;a1 tone a1, ialias kenv adsr p9, 0.05, .8, p10 |