new version of grainwave

Date	1997-10-13 15:30
From	james@maths.ex.ac.uk
Subject	new version of grainwave
	owner-csound-outgoing wrote >From owner-csound-outgoing Fri Oct 10 17:32:48 1997 From: owner-csound-outgoing Date: Fri, 10 Oct 97 17:32:48 GMT Message-Id: <4012.9710101732@maths.exeter.ac.uk> To: owner-csound-outgoing Subject: BOUNCE Csound: Non-member submission from [Mike Berry ] >From mikeb@nmol.com Fri Oct 10 18:32:39 1997 remote from Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Fri, 10 Oct 97 18:32:39 +0100 Received: from portal.dx.net [199.190.65.2] by hermes via ESMTP (SAA17169); Fri, 10 Oct 1997 18:32:30 +0100 Received: from nmol.com (nmol.com [206.162.11.2]) by portal.dx.net (8.8.5/8.8.5) with SMTP id NAA16411 for ; Fri, 10 Oct 1997 13:45:14 -0400 (EDT) X-Routed: Fri, 10 Oct 1997 11:31:26 -0500 X-Tcp-Identity: Mikeb Received: from nmol.com [206.162.11.153] by nmol.com with smtp id ALBNCPEJ ; Fri, 10 Oct 1997 11:29:48 -0500 Message-Id: <343E680D.16C698A8@nmol.com> Date: Fri, 10 Oct 1997 11:38:23 -0600 From: Mike Berry X-Mailer: Mozilla 4.03 (Macintosh; I; PPC) Mime-Version: 1.0 To: soundhack@shoko.calarts.edu, music-dsp@shoko.calarts.edu, csound Subject: GrainWave 2.0.4 release Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit I have released a new version of GrainWave, a software synthesizer and processor for PowerMacs. One primary new feature is the presence of plug-ins. You can now write your own DSP routines in C and use them easily inside the GrainWave framework. Complete information and the Plug-In SDK are available through my website: http://www.nmol.com/users/mikeb -- Mike Berry mikeb@nmol.com http://www.nmol.com/users/mikeb -- James Andrews, maths CDO, ext.3977 Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa28824; 13 Oct 97 15:52 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa06332; 13 Oct 97 15:52 BST Received: (qmail 6775 invoked from network); 13 Oct 1997 14:51:54 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 14:51:54 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (PAA17465); Mon, 13 Oct 1997 15:35:51 +0100 Received: from zeno by maths.exeter.ac.uk; Mon, 13 Oct 97 15:35:23 +0100 From: james@maths.ex.ac.uk Message-Id: <20123.199710131435@zeno.maths.exeter.ac.uk> Subject: shepard tones To: csound@maths.ex.ac.uk Date: Mon, 13 Oct 1997 15:35:13 +0100 (BST) X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 1673 Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk owner-csound-outgoing wrote >From owner-csound-outgoing Mon Oct 6 14:33:03 1997 From: owner-csound-outgoing Date: Mon, 6 Oct 97 14:33:03 GMT Message-Id: <20335.9710061433@maths.exeter.ac.uk> To: owner-csound-outgoing Subject: BOUNCE Csound: Non-member submission from [Matt ] >From mjs@vpsyc.psychology.nottingham.ac.uk Mon Oct 6 15:32:58 1997 remote from Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Mon, 6 Oct 97 15:32:58 +0100 Received: from vpsyc.psychology.nottingham.ac.uk [128.243.31.2] by hermes via ESMTP (PAA07428); Mon, 6 Oct 1997 15:32:57 +0100 Received: (from mjs@localhost) by vpsyc.psychology.nottingham.ac.uk (8.6.12/8.6.9) id PAA17221; Mon, 6 Oct 1997 15:31:22 +0100 Date: Mon, 6 Oct 1997 15:31:21 +0100 (BST) From: Matt X-Sender: mjs@vpsyc To: csound Subject: Shepherd Scales Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII I've been playing around doing something like a Shepherd tone scale using multiple band pass filters to create the illusion of a constantly rising filter. It occurred to me that someone has probably already done this? I've been using between 4 and 8 bandpass filter all moving upwards, fading in from around 100hz and fading out at about 6KHz. I'm having a lot of trouble getting it to loop properly without audible glitches. I read something about this a long time ago but I don't remember where so I've been sort of making it up as I go along. Has anyone got any example scores/orchestras they could let me have? Thanks Matt -- James Andrews, maths CDO, ext.3977 Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa28859; 13 Oct 97 15:54 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa06679; 13 Oct 97 15:54 BST Received: (qmail 7573 invoked from network); 13 Oct 1997 14:54:35 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 14:54:35 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (PAA08130); Mon, 13 Oct 1997 15:39:23 +0100 Received: from zeno by maths.exeter.ac.uk; Mon, 13 Oct 97 15:38:37 +0100 From: james@maths.ex.ac.uk Message-Id: <20151.199710131438@zeno.maths.exeter.ac.uk> Subject: BOUNCE Csound: Non-member submission from [Leon Zadorin ] (fwd) To: csound@maths.ex.ac.uk Date: Mon, 13 Oct 1997 15:38:30 +0100 (BST) Reply-To: wicked-mentality@usa.net X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 2573 Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk owner-csound-outgoing wrote >From owner-csound-outgoing Thu Oct 2 07:16:05 1997 From: owner-csound-outgoing Date: Thu, 2 Oct 97 07:16:05 GMT Message-Id: <13115.9710020716@maths.exeter.ac.uk> To: owner-csound-outgoing Subject: BOUNCE Csound: Non-member submission from [Leon Zadorin ] >From wicked-mentality@usa.net Thu Oct 2 08:16:01 1997 remote from Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Thu, 2 Oct 97 08:16:01 +0100 Received: from melia.qut.edu.au [131.181.127.2] by hermes via ESMTP (IAA18299); Thu, 2 Oct 1997 08:15:58 +0100 Received: from sparrow.qut.edu.au (root@sparrow.qut.edu.au) by melia.qut.edu.au (PMDF V5.1-7 #20429) with ESMTP id <01IOC7QECB0000I103@melia.qut.edu.au> for csound@noether.ex.ac.uk; Thu, 2 Oct 1997 17:14:07 +1000 Received: from [131.181.233.70] ([131.181.233.70]) by sparrow.qut.edu.au (8.8.5/8.8.5) with ESMTP id RAA07977 for ; Thu, 02 Oct 1997 17:08:37 +1000 (EST) Date: Thu, 02 Oct 1997 17:08:37 +1000 (EST) From: Leon Zadorin Subject: independent sr/kr/ksmps for phys. mod. X-Sender: wicked-mentality@pop.netaddress.com (Unverified) To: csound Message-Id: Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Dear Folks, just was wondering if csound could do the individual sr/kr for the instruments. The input and output of such instruments of course will have to be resampled to the "common" sr/kr but all calculations and loops within the instrument would be of independent sr/kr? I am writing this in relation to the physical modeling problems in tuning (since in phys.mod the signal is altered on every cycle - it means that the delay length has to be equal (in a simple alg. of course) to the period of frreqeuncy of pitrch. Now, if such frequency if 1k then the delay length @ 44.1k sr will have to be of 44.1 samples! I know that one can varispeed delay time, but this introduces some problems at a laters stage as alg. gets more complex. so what makes sence to me is to calculate such phys. mod algorhythm at a sr/kr multiple of the freq. of the pitch (for 1k freq would constitue about 100k sr for example). that way the tuning would be of correct freq... As the result I was thinking that it would be cool to have the following expression allowed for each instrument: sr = cpspch(p5)100 (for example) I am not sure if csound can already do this independent sr/kr for each instruments... what do you think? Best regards - Leon. -- James Andrews, maths CDO, ext.3977 Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa28865; 13 Oct 97 15:55 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa06721; 13 Oct 97 15:55 BST Received: (qmail 7678 invoked from network); 13 Oct 1997 14:55:21 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 14:55:21 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (PAA14775); Mon, 13 Oct 1997 15:37:42 +0100 Received: from zeno by maths.exeter.ac.uk; Mon, 13 Oct 97 15:37:19 +0100 From: james@maths.ex.ac.uk Message-Id: <20129.199710131437@zeno.maths.exeter.ac.uk> Subject: Re: feed back loops To: csound@maths.ex.ac.uk Date: Mon, 13 Oct 1997 15:37:13 +0100 (BST) X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 2606 Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk owner-csound-outgoing wrote >From owner-csound-outgoing Thu Oct 2 14:54:11 1997 From: owner-csound-outgoing Date: Thu, 2 Oct 97 14:54:11 GMT Message-Id: <21826.9710021454@maths.exeter.ac.uk> To: owner-csound-outgoing Subject: BOUNCE Csound: Non-member submission from [Erik Spjut ] >From Erik_Spjut@HMC.Edu Thu Oct 2 15:54:06 1997 remote from Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Thu, 2 Oct 97 15:54:06 +0100 Received: from Thuban.AC.HMC.Edu [134.173.53.8] by hermes via ESMTP (PAA15018); Thu, 2 Oct 1997 15:53:57 +0100 Received: from [134.173.38.61] (Spjut.Eng.HMC.Edu) by THUBAN.AC.HMC.EDU (PMDF V5.1-7 #18017) with ESMTP id <01IOBO8ZVD6G9OILW6@THUBAN.AC.HMC.EDU> for csound@maths.exeter.ac.uk; Thu, 2 Oct 1997 07:55:29 PDT Date: Thu, 02 Oct 1997 07:55:33 -0700 From: Erik Spjut Subject: Re: feed back loops In-Reply-To: <34316D2C.88949076@cc.gatech.edu> X-Sender: spjut@thuban.ac.hmc.edu To: charlie hubbard , csound Message-Id: Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" At 4:20 PM -0500 9/30/97, charlie hubbard wrote: >Can someone give me an example of a feedback loop? >Is that possible in csound or do you have to synthesize >a feedback loop like that? Feedback loops are possible in Csound but you have to set kr=sr to make them work. Short ones (of one or two samples) are relatively easy. Long ones (like 0.5 seconds) are well nigh impossible. Russel Pinkston has several examples in his orc's. A short example (with two 1-sample feedback loops) follows: sr = 44100 kr = 44100 ;permit access to aprev's ksmps = 1 nchnls = 1 ;------------------------------------------- instr 10;IIR Filter Example (thanks to Russell Pinkston) a1 linseg 0, 0.01, 10000, p3-0.1,9000,0.09,0,1,0 a2 oscil a1,p4, 1 ;Generate an input aprev1 init 0 ; init y(n-1) to 0 aprev2 init 0 ; init y(n-2) to 0 ainput = a2 ; y(n) = a0x(n) - b1y(n-1) - b2y(n-2) aoutput = 1ainput - 0.5aprev1 - 0.5aprev2 aprev2 = aprev1 aprev1 = aoutput out aoutput endin ------------------------------------------------------------------------------- Erik Spjut (rhymes with cute) - Acting Director,The Center for Design Education and/or Associate Professor of Engineering Harvey Mudd College, Claremont, CA 91711 USA Erik_Spjut@hmc.edu Ph & Voice mail (909) 607-3890 Fax (909) 621-8967 -- James Andrews, maths CDO, ext.3977 Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa28872; 13 Oct 97 15:56 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa06784; 13 Oct 97 15:56 BST Received: (qmail 7795 invoked from network); 13 Oct 1997 14:56:03 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 14:56:03 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (PAA18467); Mon, 13 Oct 1997 15:40:58 +0100 Received: from zeno by maths.exeter.ac.uk; Mon, 13 Oct 97 15:40:40 +0100 From: james@maths.ex.ac.uk Message-Id: <20185.199710131440@zeno.maths.exeter.ac.uk> Subject: BOUNCE Csound: Non-member submission from [Leon Zadorin ] (fwd) To: csound@maths.ex.ac.uk Date: Mon, 13 Oct 1997 15:40:33 +0100 (BST) Reply-To: wicked-mentality@usa.net X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 1600 Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk owner-csound-outgoing wrote >From owner-csound-outgoing Wed Oct 1 04:51:04 1997 From: owner-csound-outgoing Date: Wed, 1 Oct 97 04:51:04 GMT Message-Id: <25609.9710010451@maths.exeter.ac.uk> To: owner-csound-outgoing Subject: BOUNCE Csound: Non-member submission from [Leon Zadorin ] >From wicked-mentality@usa.net Wed Oct 1 05:51:00 1997 remote from Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Wed, 1 Oct 97 05:51:00 +0100 Received: from melia.qut.edu.au [131.181.127.2] by hermes via ESMTP (FAA17086); Wed, 1 Oct 1997 05:50:55 +0100 Received: from sparrow.qut.edu.au (root@sparrow.qut.edu.au) by melia.qut.edu.au (PMDF V5.1-7 #20429) with ESMTP id <01IOANI9Q9M800ENB3@melia.qut.edu.au> for csound@noether.ex.ac.uk; Wed, 1 Oct 1997 14:24:21 +1000 Received: from [131.181.233.10] ([131.181.233.10]) by sparrow.qut.edu.au (8.8.5/8.8.5) with ESMTP id OAA06832 for ; Wed, 01 Oct 1997 14:15:47 +1000 (EST) Date: Wed, 01 Oct 1997 14:15:47 +1000 (EST) From: Leon Zadorin Subject: what is "nlfilter" ? X-Sender: wicked-mentality@pop.netaddress.com (Unverified) To: csound Message-Id: Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Hello there, was just wondering if anyone has the actual code for "nlfilter" - csound version that I have (on a Mac non fpu 68k) doesn't seem to have such ugen. So I was thinking of actually doing it "line by line" (sort of code it within the instrumet)... Best regards - Leon. -- James Andrews, maths CDO, ext.3977 Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa28881; 13 Oct 97 15:57 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa06832; 13 Oct 97 15:57 BST Received: (qmail 7960 invoked from network); 13 Oct 1997 14:57:13 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 14:57:13 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (PAA03923); Mon, 13 Oct 1997 15:42:34 +0100 Received: from zeno by maths.exeter.ac.uk; Mon, 13 Oct 97 15:42:13 +0100 From: james@maths.ex.ac.uk Message-Id: <20219.199710131442@zeno.maths.exeter.ac.uk> Subject: buy a sparcstation 1 To: csound@maths.ex.ac.uk Date: Mon, 13 Oct 1997 15:42:07 +0100 (BST) Reply-To: ascott@mail.usyd.edu.au X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 1456 Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk owner-csound-outgoing wrote >From owner-csound-outgoing Wed Oct 1 03:08:29 1997 From: owner-csound-outgoing Date: Wed, 1 Oct 97 03:08:29 GMT Message-Id: <24990.9710010308@maths.exeter.ac.uk> To: owner-csound-outgoing Subject: BOUNCE Csound: Non-member submission from [ascott@mail.usyd.edu.au (A Scott)] >From ascott@mail.usyd.edu.au Wed Oct 1 04:08:24 1997 remote from Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Wed, 1 Oct 97 04:08:24 +0100 Received: from extra.ucc.su.oz.au [129.78.64.4] by hermes via ESMTP (EAA07126); Wed, 1 Oct 1997 04:07:59 +0100 Received: from [138.25.16.170] (connuta-04.itd.uts.edu.au [138.25.16.170]) by extra.ucc.su.OZ.AU (8.8.7/8.6.12) with SMTP id NAA04326 for ; Wed, 1 Oct 1997 13:08:46 +1000 (EST) X-Sender: ascott@postbox.usyd.edu.au Message-Id: Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" Date: Wed, 1 Oct 1997 13:13:30 +1000 To: csound From: ascott@mail.usyd.edu.au (A Scott) Subject: older Sun machine for Csound? Dear list, can anyone advise me whether it's worth getting a Sun SPARCstation 1 (on offer) to crunch Csound scores/orcs ? From what I've uncovered, it seems to be a 20Mhz box with an early SPARC chip - don't know what vintage. The price asked is equivalent to that of a 100-120Mhz Pentium/686 Linux box - speed is one thing - versatility another. Any advice? Ash -- James Andrews, maths CDO, ext.3977 Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa28909; 13 Oct 97 15:59 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa07051; 13 Oct 97 15:59 BST Received: (qmail 8254 invoked from network); 13 Oct 1997 14:59:36 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 14:59:36 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (PAA10885); Mon, 13 Oct 1997 15:40:11 +0100 Received: from zeno by maths.exeter.ac.uk; Mon, 13 Oct 97 15:39:50 +0100 From: james@maths.ex.ac.uk Message-Id: <20166.199710131439@zeno.maths.exeter.ac.uk> Subject: csound utilities problem under dos solved To: csound@maths.ex.ac.uk Date: Mon, 13 Oct 1997 15:39:42 +0100 (BST) Reply-To: s0pickle@ermintrude.teaching.cs.adelaide.edu.au X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 2190 Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk owner-csound-outgoing wrote >From owner-csound-outgoing Thu Oct 2 03:01:42 1997 From: owner-csound-outgoing Date: Thu, 2 Oct 97 03:01:42 GMT Message-Id: <11494.9710020301@maths.exeter.ac.uk> To: owner-csound-outgoing Subject: BOUNCE Csound: Non-member submission from [pix ] >From s0pickle@ermintrude.teaching.cs.adelaide.edu.au Thu Oct 2 04:01:38 1997 remote from Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Thu, 2 Oct 97 04:01:38 +0100 Received: from s0pickle@ermintrude.teaching.cs.adelaide.edu.au [129.127.104.3] by hermes via ESMTP (EAA18981); Thu, 2 Oct 1997 04:01:30 +0100 Received: from s0pickle@ermintrude.teaching.cs.adelaide.edu.au by ermintrude.teaching.cs.adelaide.edu.au (8.8.5/AndrewR-MatthewD-950530-CS) with SMTP id MAA09863 for ; Thu, 2 Oct 1997 12:32:28 +0930 (CST) X-Authentic-Sender: s0pickle@ermintrude.teaching.cs.adelaide.edu.au Date: Thu, 2 Oct 1997 12:32:28 +0930 (CST) From: pix Reply-To: pix To: csound Subject: Re: Re; Csnd Utilities In-Reply-To: <199710020037.TAA07227@skye-op2.skyenet.net> Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII On Wed, 1 Oct 1997, A. Archias wrote: > I open a DOS screen (full or reduced it makes no diff or even a DOS > boot) in W95 and run the hetro.exe + switches command line, what I > get in return is this. > 'stub exec failed' > 'dos4gw.exe' > 'no such file or dir' hey there, i just solved this problem myself... to save space, the utils have common dos extender separately... unfortunately, it doesn't seem to be included in the distribution... never mind, you can get it all over the place.. go to (say...) http://ftpsearch.ntnu.no/ftpsearch and do a search for dos4gw.exe there will be heaps of them sitting around all over the place. grab one, throw it somewhere in your path (or just in the same directory as hetero-et-al and the universe will once again be juicy lemon-scented candy. pix@box.net.au -- James Andrews, maths CDO, ext.3977 Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa28972; 13 Oct 97 16:18 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa07887; 13 Oct 97 16:18 BST Received: (qmail 10908 invoked from network); 13 Oct 1997 15:18:20 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 15:18:20 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (PAA15541); Mon, 13 Oct 1997 15:51:38 +0100 Received: from zeno by maths.exeter.ac.uk; Mon, 13 Oct 97 15:50:48 +0100 From: james@maths.ex.ac.uk Message-Id: <20323.199710131450@zeno.maths.exeter.ac.uk> Subject: BOUNCE Csound: Non-member submission from [Jacob Weber ] (fwd) To: csound@maths.ex.ac.uk Date: Mon, 13 Oct 1997 15:50:30 +0100 (BST) Reply-To: Jacob.Weber@oberlin.edu X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 1864 Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk owner-csound-outgoing wrote >From owner-csound-outgoing Tue Sep 30 19:21:46 1997 From: owner-csound-outgoing Date: Tue, 30 Sep 97 19:21:46 GMT Message-Id: <21829.9709301921@maths.exeter.ac.uk> To: owner-csound-outgoing Subject: BOUNCE Csound: Non-member submission from [Jacob Weber ] >From Jacob.Weber@oberlin.edu Tue Sep 30 20:21:41 1997 remote from Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Tue, 30 Sep 97 20:21:41 +0100 Received: from alpha.cc.oberlin.edu [132.162.1.245] by hermes via ESMTP (UAA11321); Tue, 30 Sep 1997 20:21:39 +0100 Received: from OBERLIN.EDU by OBERLIN.EDU (PMDF V5.1-8 #24033) id <01IO9B9PE0W0001N0Y@OBERLIN.EDU> for csound@maths.ex.ac.uk; Tue, 30 Sep 1997 15:22:37 EDT Date: Tue, 30 Sep 1997 15:22:37 -0400 (EDT) From: Jacob Weber Subject: Can an instrument recognize itself? To: csound Message-Id: Mime-Version: 1.0 Content-Type: TEXT/PLAIN; charset=US-ASCII Hello. I'm new to the CSound list, so I apologize if this has been covered already. I'm using the MIDI converters (cpsmidi, etc.) with a multi-channel MIDI file. My orchestra is essneitally a sampler; each instrument gets the notes from the corresponding MIDI channel, selects a sound file from a ftable, and plays the sound. Since all the instruments are the same, it's cumbersome to make several instruments that are virtually identical. I'd like to do this: inst = 1,2,3,4,5 ; sample playback stuff here endin However, to select the appropriate ftable, I need to know which notes are being played with which channel. Is there any way that an instrument, such as the one above, can find out which instrument number is being used? Jacob Weber Jacob.Weber@oberlin.edu http://www.oberlin.edu/~jweber/ -- James Andrews, maths CDO, ext.3977 Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa29642; 13 Oct 97 20:04 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa15530; 13 Oct 97 20:04 BST Received: (qmail 3729 invoked from network); 13 Oct 1997 19:04:39 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 19:04:39 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (TAA02190); Mon, 13 Oct 1997 19:56:33 +0100 Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Mon, 13 Oct 97 19:56:16 +0100 Received: from mb05.swip.net [193.12.122.209] by hermes via ESMTP (TAA01625); Mon, 13 Oct 1997 19:55:52 +0100 Received: from rasmus (dialup186-4-12.swipnet.se [130.244.186.204]) by mb05.swip.net (8.8.6/8.8.6) with SMTP id UAA22898; Mon, 13 Oct 1997 20:57:44 +0200 (MET DST) Message-Id: <34427D95.6FD4@hexagon.se> Date: Mon, 13 Oct 1997 20:59:17 +0100 From: rasmus ekman X-Mailer: Mozilla 3.0 (Win95; I) Mime-Version: 1.0 To: wicked-mentality@usa.net Cc: csound@maths.ex.ac.uk Subject: Re: nlfilter References: <20185.199710131440@zeno.maths.exeter.ac.uk> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk > Date: Wed, 01 Oct 1997 14:15:47 +1000 (EST) > From: Leon Zadorin > Subject: what is "nlfilter" ? > > was just wondering if anyone has the actual code for "nlfilter" - csound > version that I have (on a Mac non fpu 68k) doesn't seem to have such ugen. > So I was thinking of actually doing it "line by line" (sort of code it > within the instrumet)... You'll find code for all of Csound at either of ftp://ftp.maths.bath.ac.uk/pub/dream/ ftp://ftp.musique.umontreal.ca/pub/mirrors/dream in file /newest/csound_new.zip (this is v3.46 which is the current one, 3.47 is due Real Soon). The current binary (with nlfilt opcode) is in directory ../platforms/mac/ There is also a mac version at Mills, but I'm not sure if they have any 68k version, or are just doing PPC. The nlfilt algo is given in docs as: ar nlfilt ain, ka, kb, kd, kC, kL Implements the filter Y{n} = a Y{n-1} + b Y{n-2} + d Y^2{n-L} + X{n} - C regards, re Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa29651; 13 Oct 97 20:05 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa15567; 13 Oct 97 20:05 BST Received: (qmail 3815 invoked from network); 13 Oct 1997 19:05:53 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 19:05:53 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (TAA02444); Mon, 13 Oct 1997 19:58:13 +0100 Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Mon, 13 Oct 97 19:57:55 +0100 Received: from mb05.swip.net [193.12.122.209] by hermes via ESMTP (TAA24765); Mon, 13 Oct 1997 19:57:43 +0100 Received: from rasmus (dialup186-4-12.swipnet.se [130.244.186.204]) by mb05.swip.net (8.8.6/8.8.6) with SMTP id UAA24986; Mon, 13 Oct 1997 20:59:36 +0200 (MET DST) Message-Id: <34427E04.2100@hexagon.se> Date: Mon, 13 Oct 1997 21:01:08 +0100 From: rasmus ekman X-Mailer: Mozilla 3.0 (Win95; I) Mime-Version: 1.0 To: Jacob.Weber@oberlin.edu Cc: csound@maths.ex.ac.uk Subject: Re: find out instrument number References: <20323.199710131450@zeno.maths.exeter.ac.uk> Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk > From: Jacob Weber > Subject: Can an instrument recognize itself? > To: csound > > However, to select the appropriate ftable, I need to know which notes are > being played with which channel. Is there any way that an instrument, such > as the one above, can find out which instrument number is being used? The instrument number is the first parameter in the score statement, so you can get it inside the instrument from the parameter "p1". (I hope, don't know when instr is invoked from MIDI) cheers, re Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa00120; 13 Oct 97 23:57 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa22413; 13 Oct 97 23:57 BST Received: (qmail 17205 invoked from network); 13 Oct 1997 22:57:24 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 13 Oct 1997 22:57:24 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (XAA15811); Mon, 13 Oct 1997 23:50:24 +0100 Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Mon, 13 Oct 97 23:50:06 +0100 Received: from december.real.net.au [203.25.56.1] by hermes via ESMTP (XAA19902); Mon, 13 Oct 1997 23:49:58 +0100 Received: from [203.17.243.39] (syd-pm2-6.real.net.au [203.17.243.39]) by december.real.net.au (8.8.6/8.8.6) with SMTP id IAA17779 for ; Tue, 14 Oct 1997 08:53:31 +1000 (EST) Message-Id: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Date: Tue, 14 Oct 1997 08:50:54 +1000 To: csound@maths.ex.ac.uk From: Arne Hanna Subject: Lorenz Orchestra Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk The instrument below is from an old post, (apologies to the author, whose name has been lost in time)and refers to the Lorenz Equation. When I try to process with a ten second score file, everything seems to set up just fine and then waiting... waiting... waiting... My PPC doesn't hang, but two hours later still nothing, and still no crunching. Anyone? sr=44100 kr=4410 ksmps=10 nchnls=1 instr 1 ; Lorenz Equations System at a-rate with all parameters Time-Variable ipi init 6.283184 amix init 0 ;p4 p5 i p6 = initial values for control parameters ;p7 = time differential (not less than 0.02 - may be improved using Runge ;Kutta ; integration methode but it is very time consuming ) ;p8 amplitude ;p9 zoom factor (a kind of temporal window applied to trajectories, values of ; aprox. 5 are equivalent-almost- to downing p7 at the price of ; a bit slowing down computing time...) ;p10 p11 p12 = deviation value for p6 p7 p8 ; (It is implemented with a simple line statement, but ; improving it is straightforward) kcontzoom init 0 kzoom init p9 iprof init p8 idt init p7 ; NEWTON integration methode aadx init 0 ;diferentials aady init 0 aadz init 0 axx init 0 ;new values ayy init 0 azz init 0 ax init 1 ;values ay init 1 az init 1 ;aa, ab and ac holds for the values of control parameters aa line p4,p3,p4+p10 ab line p5,p3,p5+p11 ac line p6,p3,p6+p12 loop1: adx=aa(ay-ax) ady=ax(ab-az)-ay adz=axay-acaz ax=ax+(idtadx) ay=ay+(idtady) az=az+(idtadz) axx=ax ayy=ay azz=az kcontzoom=kcontzoom+1 if kcontzoom==kzoom kgoto sortida if kcontzoom!=kzoom kgoto loop1 sortida:amix = axiprof out amix kcontzoom=0 endin Cheers Arne "...for they have an undying thirst for the infinite" Lautremont =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= http://www.geocities.com/SiliconValley/Peaks/3346 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- = Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa00398; 14 Oct 97 1:33 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa24934; 14 Oct 97 1:33 BST Received: (qmail 20114 invoked from network); 14 Oct 1997 00:33:04 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 14 Oct 1997 00:33:04 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (BAA03936); Tue, 14 Oct 1997 01:26:47 +0100 Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Tue, 14 Oct 97 01:26:29 +0100 Received: from arl-img-9.compuserve.com [149.174.217.139] by hermes via ESMTP (BAA22992); Tue, 14 Oct 1997 01:26:21 +0100 Received: (from mailgate@localhost) by arl-img-9.compuserve.com (8.8.6/8.8.6/2.6) id UAA12858; Mon, 13 Oct 1997 20:27:49 -0400 (EDT) Date: Mon, 13 Oct 1997 20:26:59 -0400 From: Jim Smitherman Subject: shepard tones To: "INTERNET:james@noether.ex.ac.uk" Cc: csound@maths.ex.ac.uk Message-Id: <199710132027_MC2-23C5-9A2A@compuserve.com> Mime-Version: 1.0 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=ISO-8859-1 Content-Disposition: inline Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk >>I've been playing around doing something like a Shepherd tone scale usi= ng multiple band pass filters to create the illusion of a constantly rising filter. It occurred to me that someone has probably already done this? = I've been using between 4 and 8 bandpass filter all moving upwards, fadin= g in from around 100hz and fading out at about 6KHz. I'm having a lot of trouble getting it to loop properly without audible glitches. I read something about this a long time ago but I don't remember where so I've been sort of making it up as I go along. Has anyone got any example scores/orchestras they could let me have? >> it's synchronicitous that you bring this up: I just last night got the configuration correct for compiling such an instrument as you mention. It= 's related to the shepard tones, but developed by Risset to manifest a glissando rather than discrete scale members, hence, an endless glissando= =2E = It's given in Dodge/Jerse, p95 in flowchart form, and offered in csound code by prof Pinkston, in one or another of the many example files available for Csound. It uses a method different than yours, basically, = it appears, an additive synthesis algorithm. herewith are the orc and sco files (a rather large message, I hope no one minds): = =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D the bell shaped curve specified by Risset in Dodge must be compiled first= : =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D ; bellfunc.orc ; ; Even though csound only provides a limited number of stock gen subroutines, ; it includes one (gen 1) which can read in an external file. Hence, you= ; can use a standalone program to generate functions that aren't standard= =2E ; In fact, as this example shows, you can use csound itself to create the= m. ; You just have to remember to perf with the floating point option (-f)..= =2E ; ; This orchestra will generate a bell-shaped function with max amp of 1.0= -- ; required by endless.orc for an amplitude control function. ; Say "perf -f bellfunc.orc bellfunc.sco" to run it, then rename the outp= ut ; test.sf file to soundin.10 so that endless.sco can read it in via Gen 1= =2E = rp ; sr =3D 1 ;N.B. we're not generating audio here, just... kr =3D 1 ;a bunch of values for an array, so the= =2E.. ksmps =3D 1 ;sr and kr don't really matter. = However,... ksmps =3D 1 ;it's convenient to make them =3D 1, so= that... nchnls =3D 1 ;p3 can be used to specify the number o= f... ;values to compute directly. instr 1 ipi =3D 3.14159 isize =3D p3-1 ;since sr=3D1, p3 has number of locs to= generate kx init 0 ; Risset's formula (from Dodge): exp(-4.8283(1-cos(2pi(x-255.5)/511))= ) aval =3D exp(-4.8283(1-cos(2ipi(kx-(isize.5))/isize)= )) kx =3D kx+1 display aval,p3.5 display aval,p3 out aval endin =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;score to generate bell function in p3 locations i01 0 2048 e ;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D;= ; = ; ; Risset's Endless Glissando Instrument = ; ;________________________________________________________________________= ; ; = ; ; This classic instrument is described in Dodge's Computer Music text = ; ; = ; ;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D;= ; Coded by Professor Russell Pinkston - University of Texas at Austin = ; ;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D;= ; from the Csound Anthology of Instruments, Orchestras, and Scores (1990)= ; ; compiled and edited by Dr. Richard Boulanger = ; ;=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D;= sr =3D 44100 kr =3D 2205 ksmps =3D 20 nchnls =3D 1 instr 1 ifreq =3D p5 if (ifreq >=3D 20) igoto continue ifreq =3D cpspch(p5) ;p5 must be in oct.pch continue: ;All "kamp" tables use soundin.6 kphase phasor 1/p6 ;a floating point bell shaped kenvlp linen p4,1,p3,1 ;function specified by Risset: = ;exp(-4.8283(1-cos(2pi(x-255.5)/511))) kamp1 table kphase,3,1,0,1 kcps1 tablei kphase,4,1,0,1 asig1 oscili kamp1,kcps1ifreq,1 kamp2 table kphase+.1,3,1,0,1 kcps2 tablei kphase+.1,4,1,0,1 asig2 oscili kamp2,kcps2ifreq,1 kamp3 table kphase+.2,3,1,0,1 kcps3 tablei kphase+.2,4,1,0,1 asig3 oscili kamp3,kcps3ifreq,1 kamp4 table kphase+.3,3,1,0,1 kcps4 tablei kphase+.3,4,1,0,1 asig4 oscili kamp4,kcps4ifreq,1 kamp5 table kphase+.4,3,1,0,1 kcps5 tablei kphase+.4,4,1,0,1 asig5 oscili kamp5,kcps5ifreq,1 kamp6 table kphase+.5,3,1,0,1 kcps6 tablei kphase+.5,4,1,0,1 asig6 oscili kamp6,kcps6ifreq,1 kamp7 table kphase+.6,3,1,0,1 kcps7 tablei kphase+.6,4,1,0,1 asig7 oscili kamp7,kcps7ifreq,1 kamp8 table kphase+.7,3,1,0,1 kcps8 tablei kphase+.7,4,1,0,1 asig8 oscili kamp8,kcps8ifreq,1 kamp9 table kphase+.8,3,1,0,1 kcps9 tablei kphase+.8,4,1,0,1 asig9 oscili kamp9,kcps9ifreq,1 kamp10 table kphase+.9,3,1,0,1 kcps10 tablei kphase+.9,4,1,0,1 asig10 oscili kamp10,kcps10ifreq,1 asum =3D = asig1+asig2+asig3+asig4+asig5+asig6+asig7+asig8+asig9+asig10 out asumkenvlp endin =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;the sco file = ; Generate x seconds (ip2)of endless glissando with a x second cycle time= (ip5) ; Function 03 reads soundin.6 the bell shaped curve specified by Risset i= n Dodge f01 0 512 10 1 f02 0 513 7 0 512 1 f03 0 2049 1 6 0 1 1 2 f04 0 513 5 1 512 .0009766 i01 0 60 10000 5000 120 e =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D I changed the code slightly to be correct . . that is, the original code wouldn't compile, the orc looking for a bell shaped function by a differe= nt name than the docs suggested. If you have your environment SET correct though, the above should work for you (pc). oh yeah, I've lurked this li= st for years but never introduced myself: I bring a lot of musical experience to the study of csound, but little else: I have a couple of degrees in music theory, and mucho time playing keyboards, all styles, ja= zz to bartok, many megs of midi files played live if you want it, and I consider myself a perpetual beginner at csound. Hope all the above is helpful. I think the key to the difference in approach between yours a= nd Rissets is the use of phase offsets for eleminating the 'glitch' you poin= t out. I'm up for correction on that though. = Jim Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa00795; 14 Oct 97 4:57 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa04326; 14 Oct 97 4:57 BST Received: (qmail 26038 invoked from network); 14 Oct 1997 03:57:22 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 14 Oct 1997 03:57:22 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (EAA00954); Tue, 14 Oct 1997 04:51:20 +0100 Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Tue, 14 Oct 97 04:51:02 +0100 Received: from dub-img-2.compuserve.com [149.174.206.132] by hermes via ESMTP (EAA16329); Tue, 14 Oct 1997 04:50:54 +0100 Received: (from root@localhost) by dub-img-2.compuserve.com (8.8.6/8.8.6/2.6) id XAA07715; Mon, 13 Oct 1997 23:52:20 -0400 (EDT) Date: Mon, 13 Oct 1997 23:50:05 -0400 From: Jim Smitherman Subject: shepard tones To: Jim Smitherman Cc: "INTERNET:james@noether.ex.ac.uk" , csound@maths.ex.ac.uk Message-Id: <199710132350_MC2-23CB-1B2@compuserve.com> Mime-Version: 1.0 Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=ISO-8859-1 Content-Disposition: inline Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk correction: the bell shaped function should be renamed soundin.6, not soundin.10 . . . then it will compile correctly. = Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa01619; 14 Oct 97 10:50 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa17396; 14 Oct 97 10:49 BST Received: (qmail 14393 invoked from network); 14 Oct 1997 09:49:56 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 14 Oct 1997 09:49:56 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (KAA03842); Tue, 14 Oct 1997 10:39:32 +0100 Received: from zeno by maths.exeter.ac.uk; Tue, 14 Oct 97 10:39:08 +0100 From: james@maths.ex.ac.uk Message-Id: <23573.199710140939@zeno.maths.exeter.ac.uk> Subject: "phi-monics" orc/sco To: csound@maths.ex.ac.uk Date: Tue, 14 Oct 1997 10:39:02 +0100 (BST) Reply-To: alves@orion.ac.hmc.edu X-Mailer: ELM [version 2.4 PL25] Mime-Version: 1.0 Content-Type: text/plain; charset=US-ASCII Content-Transfer-Encoding: 7bit Content-Length: 5744 Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk owner-csound-outgoing wrote >From owner-csound-outgoing Mon Oct 13 16:43:29 1997 From: owner-csound-outgoing Date: Mon, 13 Oct 97 16:43:29 GMT Message-Id: <15671.9710131643@maths.exeter.ac.uk> To: owner-csound-outgoing Subject: BOUNCE Csound: Non-member submission from [alves@orion.ac.hmc.edu (Bill Alves)] >From alves@orion.ac.hmc.edu Mon Oct 13 17:43:18 1997 remote from Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Mon, 13 Oct 97 17:43:18 +0100 Received: from root@Orion.AC.HMC.Edu [134.173.32.20] by hermes via ESMTP (RAA20265); Mon, 13 Oct 1997 17:43:10 +0100 Received: from [134.173.37.15] (Alves.HumSoc.HMC.Edu [134.173.37.15]) by orion.ac.hmc.edu (8.8.6/8.8.6) with SMTP id JAA03986 for ; Mon, 13 Oct 1997 09:45:02 -0700 (PDT) Date: Mon, 13 Oct 1997 09:45:02 -0700 (PDT) Message-Id: Mime-Version: 1.0 Content-Type: text/plain; charset="us-ascii" To: csound From: alves@orion.ac.hmc.edu (Bill Alves) Subject: Re: shepard tones >I've been playing around doing something like a Shepherd tone scale using >multiple band pass filters to create the illusion of a constantly rising >filter. It occurred to me that someone has probably already done this? >I've been using between 4 and 8 bandpass filter all moving upwards, fading >in from around 100hz and fading out at about 6KHz. I'm having a lot of >trouble getting it to loop properly without audible glitches. I read >something about this a long time ago but I don't remember where so I've >been sort of making it up as I go along. Has anyone got any example >scores/orchestras they could let me have? I know this isn't quite what you are asking for, but I thought it was an opportune time to offer this simple sco and orc. A while ago John Chalmers suggested to me that Shepard tones might be interesting if implemented with "phi-monics," that is, partials tuned to multiples of phi (a.k.a. the golden mean) instead of harmonics. The scale, too, repeats over nine steps to that ratio instead of twelve steps to the octave (i.e. 9 per 1.618 instead of 12 per 2). However, I implemented the Shepard tones not through multiple bandpass filters, but through additive synthesis. I did note that the effect varies quite a bit depending on the type of spectral envelope you choose. I settled on a gaussian one. ;phimonics.orc sr = 44100 kr = 147 ksmps = 300 nchnls = 1 instr 1 imaxamp = 10000 ipchclass = 100frac(p5) iphi = (1+sqrt(5))/2 ifact ipow iphi,ipchclass/9 ifreq1 = cpspch(6.00) ifact iamp1 itablei 1+ipchclass/9,1 ifreq2 = ifreq1iphi iamp2 itablei 2+ipchclass/9,1 ifact ipow iphi,2 ifreq3 = ifreq1ifact iamp3 itablei 3+ipchclass/9,1 ifact ipow iphi,3 ifreq4 = ifreq1ifact iamp4 itablei 4+ipchclass/9,1 ifact ipow iphi,4 ifreq5 = ifreq1ifact iamp5 itablei 5+ipchclass/9,1 ifact ipow iphi,5 ifreq6 = ifreq1ifact iamp6 itablei 6+ipchclass/9,1 ifact ipow iphi,6 ifreq7 = ifreq1ifact iamp7 itablei 7+ipchclass/9,1 ifact ipow iphi,7 ifreq8 = ifreq1ifact iamp8 itablei 8+ipchclass/9,1 kenv linseg 0,0.05,p4,p3-0.05,0 ; p4 is max amp asig1 oscili iamp1,ifreq1,2 ; fn table #2 is a sine wave asig2 oscili iamp2,ifreq2,2 asig3 oscili iamp3,ifreq3,2 asig4 oscili iamp4,ifreq4,2 asig5 oscili iamp5,ifreq5,2 asig6 oscili iamp6,ifreq6,2 asig7 oscili iamp7,ifreq7,2 asig8 oscili iamp8,ifreq8,2 out kenvimaxamp*(asig1+asig2+asig3+asig4+asig5+asig6+asig7+asig8) endin ----------------------------------------------------------------------- ;phimonics.sco ; gaussian envelope f1 0 8 20 9 ; sine wave f2 0 8192 10 1 ; instr start dur amp pitch i1 0 1 1 8.00 i1 + . 1 8.01 i1 + . 1 8.02 i1 + . 1 8.03 i1 + . 1 8.04 i1 + . 1 8.05 i1 + . 1 8.06 i1 + . 1 8.07 i1 + . 1 8.08 i1 + . 1 9.00 i1 + . 1 9.01 i1 + . 1 9.02 i1 + . 1 9.03 i1 + . 1 9.04 i1 + . 1 9.05 i1 + . 1 9.06 i1 + . 1 9.07 i1 + . 1 9.08 ;i1 + . 1 10.00 ;i1 + . 1 10.01 ;i1 + . 1 10.02 ;i1 + . 1 10.03 ;i1 + . 1 10.04 ;i1 + . 1 10.05 ;i1 + . 1 10.06 ;i1 + . 1 10.07 ;i1 + . 1 10.08 ;i1 + . 1 11.00 e ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^ Bill Alves email: alves@hmc.edu ^ ^ Harvey Mudd College URL: http://www2.hmc.edu/~alves/ ^ ^ 301 E. Twelfth St. (909)607-4170 (office) ^ ^ Claremont CA 91711 USA (909)607-7600 (fax) ^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ -- James Andrews, maths CDO, ext.3977 Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa01735; 14 Oct 97 11:02 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa18071; 14 Oct 97 11:02 BST Received: (qmail 16557 invoked from network); 14 Oct 1997 10:02:52 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 14 Oct 1997 10:02:52 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (KAA23434); Tue, 14 Oct 1997 10:52:24 +0100 Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Tue, 14 Oct 97 10:52:02 +0100 Received: from qmailr@pat.bath.ac.uk [138.38.32.2] by hermes via SMTP (KAA10547); Tue, 14 Oct 1997 10:51:55 +0100 Message-Id: <199710140951.KAA10547@hermes> Received: (qmail 14859 invoked from network); 14 Oct 1997 09:53:50 -0000 Received: from omphalos.maths.bath.ac.uk (HELO maths.Bath.AC.UK) (mmdf@138.38.99.25) by pat.bath.ac.uk with SMTP; 14 Oct 1997 09:53:50 -0000 Date: Tue, 14 Oct 97 10:53:52 BST From: jpff@maths.bath.ac.uk Subject: Re: BOUNCE Csound: Non-member submission from [Leon Zadorin ] (fwd) To: csound@maths.ex.ac.uk Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk Message written at 13 Oct 1997 21:37:28 +0100 --- Copy of mail to wicked-mentality@usa.net --- In-reply-to: <20185.199710131440@zeno.maths.exeter.ac.uk> (james@maths.ex.ac.uk) References: <20185.199710131440@zeno.maths.exeter.ac.uk> Do you mean the nlfilt opcode? It is explains in @InProceedings{JPF62, author = {Richard Dobson and John ffitch}, title = {Experiments with Non-linear Filters; Discovering Excitable Regions}, booktitle = {On the Edge}, year = {1996}, organization = {ICMA}, publisher = {ICMA and HKUST}, month = {August}, pages = {405--408} } The actual formula is \begin{equation} Y_{n} =a Y_{n-1} + b Y_{n-2} + \delta Y^2_{n-L} + X_{n} - C \label{eq3} \end{equation} for various a, b, delta, C and L. eg a=b=0, L=20, \delta = 0.8, 0.9, 0.7, C = 0.4, 0.5, 0.6 gives reasonable values, as do a = 0.4; b = 0.2; \delta = 0.7; C = 0.11; L = 20, ... 200 or a = 0.35; b = -0.3; \delta = 0.95; C = 0,2, ... 0.4; L = 200 Of course if you meant something else, sorry to blast you with useless information. ==John ff Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa02178; 14 Oct 97 12:58 BST Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa23758; 14 Oct 97 12:58 BST Received: (qmail 2282 invoked from network); 14 Oct 1997 11:58:34 -0000 Received: from hermes.ex.ac.uk (144.173.6.14) by pat.bath.ac.uk with SMTP; 14 Oct 1997 11:58:34 -0000 Received: from noether [144.173.8.10] by hermes via SMTP (MAA23481); Tue, 14 Oct 1997 12:35:23 +0100 Received: from hermes.ex.ac.uk by maths.exeter.ac.uk; Tue, 14 Oct 97 12:34:41 +0100 Received: from qmailr@pat.bath.ac.uk [138.38.32.2] by hermes via SMTP (MAA12345); Tue, 14 Oct 1997 12:34:35 +0100 From: jpff@maths.bath.ac.uk Message-Id: <199710141134.MAA12345@hermes> Received: (qmail 29191 invoked from network); 14 Oct 1997 11:36:29 -0000 Received: from omphalos.maths.bath.ac.uk (HELO maths.Bath.AC.UK) (mmdf@138.38.99.25) by pat.bath.ac.uk with SMTP; 14 Oct 1997 11:36:29 -0000 To: csound@maths.ex.ac.uk Subject: New Beta versions Date: Tue, 14 Oct 97 12:36:30 BST Source-Info: From (or Sender) name not authenticated. Sender: owner-csound-outgoing@maths.ex.ac.uk Precedence: bulk I have placed revised test versions for SGI Irix5.3 and Mac 68K on the server. I have also placed a Mac68K+881 beta system there. The Windows version will follow possibly tomorrow. I understand that the Linux version is coming on well too. ==John ff