Re: [Csnd] Rim Shot anyone ?

Date	1999-11-12 14:28
From	Varga István
Subject	Re: [Csnd] Rim Shot anyone ?
	Thomas Huber wrote: > Does anyone have a good sounding rim shot ? I tried to mix > a lower (~300Hz) and a higher (~5kHz) frequency > oscillator, This is a simple fm-based instrument, sounds similar to the rim shot sound of the tr-808. -------- rimshot.orc -------- sr = 44100 kr = 44100 ksmps = 1 nchnls = 1 /* simple FM-based rimshot instrument / / coded by Istvan Varga, Nov 9 1999 / seed 0 instr 1 p3 = p3 + 0.1 / base frequency / icps = 440.0exp(log(2.0)(57.0-69.0)/12.0) kcps port icps, 0.0025, icps2.0 iamp = 0.0039 + p4p4/16192.0 / velocity / k1a phasor kcps, 0.0 / square wave / k1b phasor kcps, 0.5 kfmenv expon 1.0, 0.02, 0.5 / FM envelope / k1 = (k1a-k1b)6.0kfmenv kcps = kcps(1.0+k1) a0 oscil3 1.0, kcps, 1 /* sine oscillator / a1 unirand 2.0 / add some noise / a1 tone a1-1.0, 2000 a0 = a0 + a10.1 aenv expon 1.0, 0.005, 0.5 /* amp. envelope / / distortion / a0 limit 4.0iampa0aenv, -1.0, 1.0 a0 table3 a04096.0, 1, 0, 0, 1 / lowpass filter freq. envelope / kffrq expseg 20000, 0.07, 100, 1, 100 a0x tone a0, 4000 a0y = a0 - a0x a0x delay a0y, 0.0002 a0 = a0 - a0x4.0 a0 butterlp a0, kffrq /* de-click envelope / a_ linseg 1, p3-0.1, 1, 0.025, 0, 1, 0 a0 = a0a_ out a012500 endin -------- rimshot.sco -------- t 0 120 / p4 = velocity / i 1 0.000 0.5000 120 i 1 0.500 0.5000 120 i 1 1.000 0.5000 120 i 1 1.500 0.5000 120 i 1 4.000 0.2500 40 i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 + . < i 1 8.000 0.5000 127 f 1 0 16384 10 1 / sine wave / e -------- rimshot.orc.gz -------- begin-base64 644 rimshot.orc.gz H4sICOimKDgCA3JpbXNob3Qub3JjAGVTTXPaMBA9279ij6BgI4Eh40Ovmekh PfaaEbYAjWVJWDKBf99diaZNMsOYlfbpfazlMBU/AJpGcF4O/9dh9IGWorTd 2ZpHXa4ZBD16o+DltTrIoHqY9BjOLoK2IU7zqGwEtiZg53psH+7wM8SrtPBb Tie5gl/uCi2Itm2BgGURFMI4FomBVPyW5PwWnoDXWZW04Dipy6xsd08HdZct Ng2vOVM3vzDutNjUfMkWu+eaV/sW67WgnXIgsHcT+sRqhbycb3artGKIQDo5 eqKjzrZFad8w36zFXrTYL9DDVRnX6ZjVByELf5bBTTD8ZSRQuMxyUvAur4pw gzh8he3w8BHndC3Qs7Mgap5Ob1KTOF5eAduo5tVDi4wtULJCviXbY95MkXNh k/7ZAqmeBrEsS8kLFzpttpk9S4vkT1sFqWdkRFfEL0UxWz1J2wNFJZjsewhu VGCdDskFgqLDs1JUiXPD8Z6gDopLjuOSgqWXJb8n47uPaDjk+nM43Ox1QCtR 45FkhxdGjzpCgznptTDJGdGuIEvjg0BRHozaojpreLtPDdRJv3xpjHv3MgQ4 ahPVlK7PF/HheJwu5DaoU0qUDT8jA8989DWg2O0RHjebHPz+SF7h45YQvTLy jqt7Ds03/8aTQKzJvg9zRDvGJ7bkIE9BVZ3R3fDZoXzDYViyh2b8tsIZ55x1 ur+P0B9KTL7hl+TmSLXY7Mh9oWyvbVmWfwCLlvl+7gMAAA== ==== -------- rimshot.sco.gz -------- begin-base64 644 rimshot.sco.gz H4sICP2mKDgCA3JpbXNob3Quc2NvAOMqUTBQMDQy4OLS11IoMFGwVShLzclP ziypVNDS5+LKVDDkVDDQMzAw4DTQMwVRILVQUVMsooZY1Rqiq4UIm0AVG4Fk TaBqtTn1OG1wMAmroKNiC1SvmnNxpSkYgkLTzNjCRMEQyOAEhmlxZl6qQnli WSo4PFO5uLgAamcbP3MBAAA= ==== -------------------------------- -- To unsubscribe, send email to csound-unsubscribe@lists.bath.ac.uk Received: from shaun.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa16880; 12 Nov 99 14:45 GMT Received: from [138.38.32.81] (helo=mercury.bath.ac.uk) by shaun.maths.bath.ac.uk with smtp (Exim 2.12 #1) id 11mHxR-0004vN-00 for j.p.ffitch@maths.bath.ac.uk; Fri, 12 Nov 1999 14:45:45 +0000 Received: (qmail 22085 invoked from network); 12 Nov 1999 14:40:05 -0000 Received: from amos.bath.ac.uk (qmailr@138.38.32.36) by mercury.bath.ac.uk with SMTP; 12 Nov 1999 14:40:05 -0000 Received: (qmail 25189 invoked by uid 1457); 12 Nov 1999 14:37:56 -0000 Mailing-List: contact csound-help@lists.bath.ac.uk; run by ezmlm Precedence: bulk X-Mailing-List: csound Delivered-To: mailing list csound@lists.bath.ac.uk Received: (qmail 25175 invoked from network); 12 Nov 1999 14:37:53 -0000 Received: from pat.bath.ac.uk (138.38.32.2) by amos.bath.ac.uk with SMTP; 12 Nov 1999 14:37:53 -0000 Received: (qmail 5958 invoked from network); 12 Nov 1999 14:37:50 -0000 Received: from fm2.freemail.hu (HELO freemail.c3.hu) (194.38.105.12) by pat.bath.ac.uk with SMTP; 12 Nov 1999 14:37:50 -0000 Received: (qmail 7201 invoked by uid 339175); 12 Nov 1999 14:37:46 -0000 Date: 12 Nov 1999 14:37:46 -0000 Message-ID: <19991112143746.7200.qmail@freemail.c3.hu> MIME-Version: 1.0 To: csound@lists.bath.AC.UK From: =?ISO-8859-2?Q?Varga_Istv=E1n?= Subject: Re: [Csnd] Help with Bosendorfer samples I also recommend trying the piano samples from http://www.geocities.com/SiliconValley/Bit/5683/ASR10_piano-1.0.1.win32.zip -- To unsubscribe, send email to csound-unsubscribe@lists.bath.ac.uk Received: from wallace.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa16902; 12 Nov 99 15:03 GMT Received: from [138.38.32.81] (helo=mercury.bath.ac.uk) by wallace.maths.bath.ac.uk with smtp (Exim 2.12 #1) id 11mHBS-0002KZ-00 for j.p.ffitch@maths.bath.ac.uk; Fri, 12 Nov 1999 13:56:10 +0000 Received: (qmail 19860 invoked from network); 12 Nov 1999 14:34:03 -0000 Received: from amos.bath.ac.uk (qmailr@138.38.32.36) by mercury.bath.ac.uk with SMTP; 12 Nov 1999 14:34:03 -0000 Received: (qmail 23186 invoked by uid 1457); 12 Nov 1999 14:31:42 -0000 Mailing-List: contact csound-help@lists.bath.ac.uk; run by ezmlm Precedence: bulk X-Mailing-List: csound Delivered-To: mailing list csound@lists.bath.ac.uk Received: (qmail 23157 invoked from network); 12 Nov 1999 14:31:40 -0000 Received: from pat.bath.ac.uk (138.38.32.2) by amos.bath.ac.uk with SMTP; 12 Nov 1999 14:31:40 -0000 Received: (qmail 4910 invoked from network); 12 Nov 1999 14:31:38 -0000 Received: from fm2.freemail.hu (HELO freemail.c3.hu) (194.38.105.12) by pat.bath.ac.uk with SMTP; 12 Nov 1999 14:31:38 -0000 Received: (qmail 29414 invoked by uid 339175); 12 Nov 1999 14:31:35 -0000 Date: 12 Nov 1999 14:31:35 -0000 Message-ID: <19991112143135.29413.qmail@freemail.c3.hu> MIME-Version: 1.0 To: csound@lists.bath.AC.UK From: =?ISO-8859-2?Q?Varga_Istv=E1n?= Subject: [Csnd] 3D audio using headphones Some headphone 3d audio stuff using HRTF responses (well, there is "hrtfer", but this seems to be better :) To compile the test orc, you need the include files from http://www.geocities.com/SiliconValley/Bit/5683/Effects.Include-1.0.3.zip and the convolve files from http://www.geocities.com/SiliconValley/Bit/5683/HRTF_files-1.0.zip -------- test.orc -------- sr = 44100 kr = 1378.125 ksmps = 32 nchnls = 2 #include "Effects.Header.orc" #include "Delays.include.orc" #include "Plain_Stereo.include.orc" #include "Spatial_Stereo.include.orc" #include "HRTF_Stereo.include.orc" / macro for i-rate parameters / #define STATICMACRO # $HRTFStereo # / spat. macro for k-rate parameters / #define DYNMACRO # $HRTFStereoDynHQ # / mono output file / #define OUTFLNAME # "foobar.pcm" # $InitHQDelay seed 0 gabar init 0 #define OSCILLATOR # / generate some test signal / afoo phasor 201 abar phasor 200 afoo = afoo-abar afoo_ tone afoo, 800 afoo = afoo-afoo_ ablah phasor 25 ablah = 2ablah-1 abaz phasor 100(1+ablah0.25) abaz = 2abaz-1 abaz = abaz + afoo aenv linseg 1, p3-0.1, 1, 0.025, 0, 1, 0 a0 = abaz16000aenv # / i-rate / instr 2 i_az_ = p4 / azimuth / i_el_ = p5 / elevation / i_d_ = p6 / distance / $OSCILLATOR a_ = a0 / input signal / gabar = gabar + a_ $STATICMACRO outs a_L_, a_R_ endin / k-rate / instr 3 i_az_ = 0 / init. value for azimuth / i_el_ = -40 / init. value for elevation / i_d_ = 2 / init. value for distance / k_az_ init i_az_ k_el_ init i_el_ k_d_ init i_d_ k_az_ line 0, 10, 1440 / azimuth / k_el_ line -40, 10, 20 / elevation / k_d_ linseg 3, 5, 1.5, 5, 3 / distance / $OSCILLATOR a_ = a0 / input signal / gabar = gabar + a_ $DYNMACRO outs a_L_, a_R_ endin / output instrument / instr 90 soundout gabar, $OUTFLNAME, 6 gabar = 0 endin -------- test.sco -------- t 0 60 / p4 = azimuth, p5 = elevation, p6 = distance / i 2 0 0.5 -60 -40 2 i 2 0.75 0.5 -90 40 2 i 2 1.5 0.5 120 0 2.0 i 2 2.25 0.5 120 0 1.5 i 2 3.0 0.5 120 0 1.0 i 2 3.75 0.5 0 0 1 / dynamic (k-rate) spatialization / i 3 5 10 / output instr. / i 90 0 16 e -------------------------------- -- To unsubscribe, send email to csound-unsubscribe@lists.bath.ac.uk Received: from wallace.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa18142; 12 Nov 99 23:38 GMT Received: from [138.38.32.81] (helo=mercury.bath.ac.uk) by wallace.maths.bath.ac.uk with smtp (Exim 2.12 #1) id 11mPE0-0002be-00 for j.p.ffitch@maths.bath.ac.uk; Fri, 12 Nov 1999 22:31:20 +0000 Received: (qmail 926 invoked from network); 12 Nov 1999 21:28:02 -0000 Received: from amos.bath.ac.uk (qmailr@138.38.32.36) by mercury.bath.ac.uk with SMTP; 12 Nov 1999 21:28:02 -0000 Received: (qmail 15396 invoked by uid 1457); 12 Nov 1999 21:26:26 -0000 Mailing-List: contact csound-help@lists.bath.ac.uk; run by ezmlm Precedence: bulk X-Mailing-List: csound Delivered-To: mailing list csound@lists.bath.ac.uk Received: (qmail 15386 invoked from network); 12 Nov 1999 21:26:26 -0000 Received: from pat.bath.ac.uk (138.38.32.2) by amos.bath.ac.uk with SMTP; 12 Nov 1999 21:26:26 -0000 Received: (qmail 16669 invoked from network); 12 Nov 1999 21:26:25 -0000 Received: from law2-f18.hotmail.com (HELO hotmail.com) (216.32.181.18) by pat.bath.ac.uk with SMTP; 12 Nov 1999 21:26:25 -0000 Received: (qmail 59117 invoked by uid 0); 12 Nov 1999 21:23:51 -0000 Message-ID: <19991112212351.59116.qmail@hotmail.com> Received: from 158.252.68.144 by www.hotmail.com with HTTP; Fri, 12 Nov 1999 13:23:51 PST X-Originating-IP: [158.252.68.144] From: Thomas Judson To: csound@lists.bath.AC.UK Date: Fri, 12 Nov 1999 16:23:51 EST Mime-Version: 1.0 Content-Type: text/plain; format=flowed Subject: [Csnd] Newbie needs Guru's help...please Dear all Csound Guru's, I'm working on an instrument based off of the feedbacfm.orc talked about on the list a week or so back. What I've done is to add a sound in that evolves with the feedback. This creates a great sound that changes over the length of the sound. However, I'm trying to find a way to allow the sample to play unchanged for a preset amout of time, and then have the oscil start up and effect the sound. Below is the instr and score so far, just to get the altered sound. Still trying to find away to delay the oscil from starting. If any of you Guru's could help, I would be forever in your debt. Also, I can't remember who first designed the feedbac.orc and would like to credit him/her for instr design in my .orc and .sco. Thanks alot, any help or suggestions are most welcome. Tohm Judson ********************************************************************* ; SampleFeedbac.orc sr = 44100 kr = 4410 ksmps = 10 nchnls = 1 instr 1 ; feedback fm iamp= p4 ;max amplitude ifc= p5 ;center frq indx= p6 ;max. modulation index asmpl soundin p7,1 afrq init ifc ;init. oscil frq to centr frq a1 oscil 1,afrq+asmpl,1 ;oscillator, normalized to 1 kndx line 0,p3,indx ;vary modulation index afm = afrq * a1 ;calculate modulation frq adev = afm * kndx ;calculate deviation frq afrq = ifc + adev ;calculate oscil frq kamp linseg 0,.1,iamp,p3-.2,iamp,.1,0 aout = a1 * kamp out aout endin ******************************************************************** ;SampleFeedbac.sco f1 0 8192 10 1 ;instr start dur amp center mod samplename i1 0 10 10000 880 .9 "siren.aiff" e ;Thanks again for the help! ______________________________________________________ Get Your Private, Free Email at http://www.hotmail.com -- To unsubscribe, send email to csound-unsubscribe@lists.bath.ac.uk Received: from wallace.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa18877; 13 Nov 99 11:58 GMT Received: from [138.38.32.81] (helo=mercury.bath.ac.uk) by wallace.maths.bath.ac.uk with smtp (Exim 2.12 #1) id 11malp-0002pV-00 for j.p.ffitch@maths.bath.ac.uk; Sat, 13 Nov 1999 10:51:01 +0000 Received: (qmail 13222 invoked from network); 13 Nov 1999 11:46:30 -0000 Received: from amos.bath.ac.uk (qmailr@138.38.32.36) by mercury.bath.ac.uk with SMTP; 13 Nov 1999 11:46:30 -0000 Received: (qmail 17313 invoked by uid 1457); 13 Nov 1999 11:45:05 -0000 Mailing-List: contact csound-help@lists.bath.ac.uk; run by ezmlm Precedence: bulk X-Mailing-List: csound Delivered-To: mailing list csound@lists.bath.ac.uk Received: (qmail 17303 invoked from network); 13 Nov 1999 11:45:04 -0000 Received: from pat.bath.ac.uk (138.38.32.2) by amos.bath.ac.uk with SMTP; 13 Nov 1999 11:45:04 -0000 Received: (qmail 5622 invoked from network); 13 Nov 1999 11:44:54 -0000 Received: from unknown (HELO telefax.com.ar) (root@200.32.101.214) by pat.bath.ac.uk with SMTP; 13 Nov 1999 11:44:54 -0000 Received: from telefax.com.ar (u200.telefax.com.ar [200.32.101.200]) by telefax.com.ar (8.6.12/8.6.9) with ESMTP id AAA11815 for ; Sat, 13 Nov 1999 00:25:16 GMT Message-ID: <382CDBA1.5AD03E64@telefax.com.ar> Date: Sat, 13 Nov 1999 00:31:46 -0300 From: "M. Perticone" X-Mailer: Mozilla 4.04 [en] (Win95; I) MIME-Version: 1.0 To: csound list bath Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Subject: [Csnd] help on ambisonics orc hello list, well, i sent a message asking for help, but it got buried under the recurrent integer-antiorp thread. is there someone in the list who can deal with ambisonics? may i please send you my orc to check a with-height ambisonics implementation? please advice, it will be very helpful, thanks in advance, marcelo -- To unsubscribe, send email to csound-unsubscribe@lists.bath.ac.uk Received: from shaun.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa19105; 13 Nov 99 12:57 GMT Received: from [138.38.32.81] (helo=mercury.bath.ac.uk) by shaun.maths.bath.ac.uk with smtp (Exim 2.12 #1) id 11mck9-0005bo-00 for j.p.ffitch@maths.bath.ac.uk; Sat, 13 Nov 1999 12:57:25 +0000 Received: (qmail 19238 invoked from network); 13 Nov 1999 12:53:27 -0000 Received: from amos.bath.ac.uk (qmailr@138.38.32.36) by mercury.bath.ac.uk with SMTP; 13 Nov 1999 12:53:27 -0000 Received: (qmail 23690 invoked by uid 1457); 13 Nov 1999 12:51:54 -0000 Mailing-List: contact csound-help@lists.bath.ac.uk; run by ezmlm Precedence: bulk X-Mailing-List: csound Delivered-To: mailing list csound@lists.bath.ac.uk Received: (qmail 23680 invoked from network); 13 Nov 1999 12:51:54 -0000 Received: from pat.bath.ac.uk (138.38.32.2) by amos.bath.ac.uk with SMTP; 13 Nov 1999 12:51:54 -0000 Received: (qmail 13580 invoked from network); 13 Nov 1999 12:51:54 -0000 Received: from law2-f43.hotmail.com (HELO hotmail.com) (216.32.181.43) by pat.bath.ac.uk with SMTP; 13 Nov 1999 12:51:54 -0000 Received: (qmail 97054 invoked by uid 0); 12 Nov 1999 23:24:45 -0000 Message-ID: <19991112232445.97053.qmail@hotmail.com> Received: from 158.252.68.133 by www.hotmail.com with HTTP; Fri, 12 Nov 1999 15:24:45 PST X-Originating-IP: [158.252.68.133] From: Thomas Judson To: csound@lists.bath.AC.UK Date: Fri, 12 Nov 1999 18:24:45 EST Mime-Version: 1.0 Content-Type: text/plain; format=flowed Subject: Re: [Csnd] Newbie needs Guru's help...please That was it! Thanks Tobiah, I owe you a beer or two. Now I just need to find out how to slow it down, which should be no problem. That and realizing the fact that I should also have added my sound in to my outs. Here is the almost final instr for thoughs that are interested. Tohm Judson ******************************************************************** instr 1 ; Samplefeedbac.orc iamp= p4 ;max amplitude ifc= p5 ;center frq indx= p6 ;max. modulation index iwait= p8 igate= p9 asmpl soundin p7,2 ;calls Sample afrq init ifc ;init. oscil frq to center frq kOsgt linseg 0,iwait,0,igate, 1 ;Oscil Gate control a1 oscil kOsgt,afrq+asmpl,1 ;oscil,normalized to 1 kndx line 0,p3,indx ;vary modulation index afm = afrq * a1 ;calculate modulation frq adev = afm * kndx ;calculate deviation frq afrq = ifc + adev ;calculate oscil frq kamp linseg 0,.1,iamp,p3-.2,iamp,.1,0 aout1= a1 * kamp aout2= aout1+asmpl outs aout2,aout2 endin ********************************************************************** ;SampleFeedbac.sco f1 0 8192 10 1 ;instr start dur amp center mod samplename wait gate i1 0 45 10000 880 .9 "siren.aiff" 10 35 e ______________________________________________________ Get Your Private, Free Email at http://www.hotmail.com -- To unsubscribe, send email to csound-unsubscribe@lists.bath.ac.uk