| I've got an s01 with the same problem. i had to do alot of other work on
it, as it was all beat to hell when i got it. supposedly, akai uses
only PC format drives, and they recommend only Teac drives. others
should work, but they recommend Teac, since that's what they use. any day
now, i should be getting the Teac floppy drive i ordered, and i'll let
you kids know if it doesn't work.
> >From: Pope Trout Soup XXIII
> >i have a friend with an akai s01 and the drive wont read disks, we were
> >wondering if the drives are standard PC 1.44 (or 720k) drives that we could
> >easily order or are they some bizarre format-thingies? tnx, trouty.
> >---******NOTE THE CHANGE IN EMAILS FROM IMPERIUM.NET TO RAEX.COM*****---
> >--++--++--++--++--++--++--++--++--++--++--
> > "In this paragraph, our hero discovers that he really likes"
> > "baloney sandwiches. He also listens to some disco, and has a"
> > "lovely beverage. Ah, if only all paragraphs were this exciting!"
> > AWE32, Midi, Synths, PB-Cle R0M, "raves": http://cc.ysu.edu/~s0176326/
> > EMAIL: trout@raex.com, trout@hyperreal.com, s0176326@cc.ysu.edu
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa06604;
16 Jan 98 20:48 GMT
Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa05704;
16 Jan 98 20:48 GMT
Received: (qmail 12091 invoked from network); 16 Jan 1998 20:48:58 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by pat.bath.ac.uk with SMTP; 16 Jan 1998 20:48:58 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (UAA20146); Fri, 16 Jan 1998 20:42:38 GMT
Received: from hermes.ex.ac.uk by maths.ex.ac.uk; Fri, 16 Jan 98 20:42:22 GMT
Received: from mb05.swip.net [193.12.122.209] by hermes via ESMTP (UAA20917); Fri, 16 Jan 1998 20:42:12 GMT
Received: from win95.swipnet.se (dialup175-1-41.swipnet.se [130.244.175.41])
by mb05.swip.net (8.8.8/8.8.8) with ESMTP
id VAA22265 for ;
Fri, 16 Jan 1998 21:42:19 +0100 (MET)
Message-Id: <34BFC82B.48359A61@mbox200.swipnet.se>
Date: Fri, 16 Jan 1998 21:50:52 +0100
From: trkkaZulu
Reply-To: gtc@mbox200.swipnet.se
Organization: Glass Thought Communications
X-Mailer: Mozilla 4.01 [de] (Win95; I)
Mime-Version: 1.0
To: csound@maths.ex.ac.uk
Subject: Re: Cecilia(again)
X-Priority: 3 (Normal)
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
High;
Thanks to Khalid and all who responded to my desperate cry for help with
Cecilia. The following is the error that i receive when i :
/usr/local/cecLINUX/dev/xcec > wish ./xcec
cp: /usr/local/lib/cecLINUX/bin/csound-3_46Linux_bin2.0.30: No such file
or directory
while executing
"exec cp -p $ceclib/bin/csound3_46_Linux_bin$what, $ceclib/bin/csound"
invoked from within
"if ![file exists $ceclib/bin/csound]{
set what [exec uname -r]
exec rm -f $ceclib/bin/csound
#exec cp -p $ceclib/bin/csoundIRIX$what $cec..."
(procedure "doCecilia" line 5)
invoked from within
"doCecilia $arr"
{file "/usr/X11R6/bin/xcec" line 15}
What have i done wrong?
trkkaZulu
--
Visit: http://home1.swipnet.se/~w-18884/gtc/homePage.htm
radical raid rocker independent oop shockwave cybernation
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa06628;
16 Jan 98 20:55 GMT
Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa05871;
16 Jan 98 20:56 GMT
Received: (qmail 12417 invoked from network); 16 Jan 1998 20:56:05 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by pat.bath.ac.uk with SMTP; 16 Jan 1998 20:56:05 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (UAA25144); Fri, 16 Jan 1998 20:50:34 GMT
Received: from hermes.ex.ac.uk by maths.ex.ac.uk; Fri, 16 Jan 98 20:50:17 GMT
Received: from mb05.swip.net [193.12.122.209] by hermes via ESMTP (UAA01301); Fri, 16 Jan 1998 20:50:10 GMT
Received: from win95.swipnet.se (dialup175-1-41.swipnet.se [130.244.175.41])
by mb05.swip.net (8.8.8/8.8.8) with ESMTP
id VAA00650 for ;
Fri, 16 Jan 1998 21:50:17 +0100 (MET)
Message-Id: <34BFCA28.6F475235@mbox200.swipnet.se>
Date: Fri, 16 Jan 1998 21:59:20 +0100
From: trkkaZulu
Reply-To: gtc@mbox200.swipnet.se
Organization: Glass Thought Communications
X-Mailer: Mozilla 4.01 [de] (Win95; I)
Mime-Version: 1.0
To: csound@maths.ex.ac.uk
Subject: xpatchwork and Linux
X-Priority: 3 (Normal)
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
Hello in Csound world...
I am trying to install XPatchwork on my Linux workstation. In editing
the Makefile what should the "LDFlags" refer to?
Thanks;
trkkaZulu(again)
--
Visit: http://home1.swipnet.se/~w-18884/gtc/homePage.htm
radical raid rocker independent oop shockwave cybernation
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa06789;
16 Jan 98 21:56 GMT
Received: from mercury.bath.ac.uk by stork.maths.Bath.AC.UK id aa07108;
16 Jan 98 21:57 GMT
Received: (qmail 13094 invoked from network); 16 Jan 1998 21:57:00 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by mercury.bath.ac.uk with SMTP; 16 Jan 1998 21:57:00 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (VAA01621); Fri, 16 Jan 1998 21:51:20 GMT
Received: from hermes.ex.ac.uk by maths.ex.ac.uk; Fri, 16 Jan 98 21:51:03 GMT
Received: from alcor.imaginet.fr [194.51.83.171] by hermes via ESMTP (VAA09503); Fri, 16 Jan 1998 21:50:54 GMT
Received: from imaginet.fr (zoltar.imaginet.fr [194.51.83.150])
by relay-smtp.imaginet.net (8.8.8/8.8.8) with ESMTP id WAA27601
for ; Fri, 16 Jan 1998 22:47:58 +0100 (MET)
Received: from cyber53-3.paris.imaginet.fr (cyber53-3.paris.imaginet.fr [195.68.3.53]) by imaginet.fr (8.7.5/8.7.31) with SMTP id WAA28439 for ; Fri, 16 Jan 1998 22:51:26 +0100 (MET)
To: CSOUND-LIST
Subject: Csound for Mac
From: Araoz
Date: Fri, 16 Jan 1998 22:54:19 +0100
Message-Id: <1998011622541943007@cyber53-3.paris.imaginet.fr>
Organization: imaginet
X-Mailer: MacSOUP F2.2
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
Wich is the last Csound version for Mac?
Thanks
--
Laura et Ricardo NILLNI
nillni@mail3.imaginet.fr
rnillni@usa.net
http://www.imaginet.fr/~nillni
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa06864;
16 Jan 98 22:16 GMT
Received: from mercury.bath.ac.uk by stork.maths.Bath.AC.UK id aa07531;
16 Jan 98 22:16 GMT
Received: (qmail 13209 invoked from network); 16 Jan 1998 22:16:29 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by mercury.bath.ac.uk with SMTP; 16 Jan 1998 22:16:29 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (WAA16175); Fri, 16 Jan 1998 22:11:05 GMT
Received: from hermes.ex.ac.uk by maths.ex.ac.uk; Fri, 16 Jan 98 22:10:48 GMT
Received: from F13.hotmail.com [207.82.250.24] by hermes via SMTP (WAA07162); Fri, 16 Jan 1998 22:10:42 GMT
Received: (qmail 22671 invoked by uid 0); 16 Jan 1998 22:10:13 -0000
Message-Id: <19980116221013.22670.qmail@hotmail.com>
Received: from 207.172.114.4 by www.hotmail.com with HTTP;
Fri, 16 Jan 1998 14:10:13 PST
X-Originating-Ip: [207.172.114.4]
From: Paul Winkler
To: csound@maths.ex.ac.uk
Subject: Re: xpatchwork and Linux
Content-Type: text/plain
Date: Fri, 16 Jan 1998 14:10:13 PST
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
If you really want, I could look up what I did to get the program to
start, but you should be warned that I have had no luck with getting
xpatchwork to be actually useful; the icons will not drag-and-drop. I've
been in touch with Dave Phillips who has had the same trouble. I have
yet to hear from anyone who has used xpatchwork successfully with Linux.
Also, development of the linux port seems to be lagging; the windows
version is more recent.
--PW
>From: trkkaZulu
>I am trying to install XPatchwork on my Linux workstation. In editing
>the Makefile what should the "LDFlags" refer to?
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa06917;
16 Jan 98 22:35 GMT
Received: from mercury.bath.ac.uk by stork.maths.Bath.AC.UK id aa07846;
16 Jan 98 22:35 GMT
Received: (qmail 13330 invoked from network); 16 Jan 1998 22:35:16 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by mercury.bath.ac.uk with SMTP; 16 Jan 1998 22:35:16 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (WAA10773); Fri, 16 Jan 1998 22:27:28 GMT
Received: from hermes.ex.ac.uk by maths.ex.ac.uk; Fri, 16 Jan 98 22:26:57 GMT
Received: from liberty14.hotmail.com [207.82.250.214] (may be forged) by hermes via SMTP (WAA00810); Fri, 16 Jan 1998 22:26:51 GMT
Received: (qmail 28179 invoked by uid 0); 16 Jan 1998 22:18:02 -0000
Message-Id: <19980116221802.28178.qmail@hotmail.com>
Received: from 207.172.114.4 by www.hotmail.com with HTTP;
Fri, 16 Jan 1998 14:18:01 PST
X-Originating-Ip: [207.172.114.4]
From: Paul Winkler
To: csound@maths.ex.ac.uk
Subject: Re: xpatchwork and Linux
Content-Type: text/plain
Date: Fri, 16 Jan 1998 14:18:01 PST
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
If you really want, I could look up what I did to get Xpatchwork to
start. You should be warned that I was not able to make the program
useful; the icons will not drag and drop. I have been in touch with Dave
Phillips who has had the same problem. I have not heard from anyone who
has been able to make the linux version of xpatchwork useful. Also, you
should know that development of the linux port seems to be lagging; the
windows version is more recent.
In the absence of a formal FAQ, you also should make a habit of looking
at the archives of this list before posting questions... I have several
times asked questions of the list, or of people on the list, only to
find that the answer was already out there. For instance, by now poor
Jean Piche is probably really tired of saying "Cecilia is not really
supported in Linux yet, that's coming in the next version".
--PW
>From: trkkaZulu
>
>Hello in Csound world...
>
>I am trying to install XPatchwork on my Linux workstation. In editing
>the Makefile what should the "LDFlags" refer to?
>
>Thanks;
>
>trkkaZulu(again)
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa06988;
16 Jan 98 22:49 GMT
Received: from mercury.bath.ac.uk by stork.maths.Bath.AC.UK id aa08215;
16 Jan 98 22:49 GMT
Received: (qmail 13419 invoked from network); 16 Jan 1998 22:49:20 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by mercury.bath.ac.uk with SMTP; 16 Jan 1998 22:49:20 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (WAA22919); Fri, 16 Jan 1998 22:44:52 GMT
Received: from hermes.ex.ac.uk by maths.ex.ac.uk; Fri, 16 Jan 98 22:35:57 GMT
Received: from answer.avid.com [152.165.15.42] by hermes via SMTP (WAA14327); Fri, 16 Jan 1998 22:35:38 GMT
Received: from [152.165.156.14] by answer.avid.com with SMTP
(1.38.193.5/16.2) id AA06776; Fri, 16 Jan 1998 17:35:15 -0500
Message-Id: <34BFE064.5CCD@avid.com>
Date: Fri, 16 Jan 1998 17:34:14 -0500
From: Jim Ravan
Reply-To: Jim_Ravan@avid.com
Organization: Avid Technology, Inc.
X-Mailer: Mozilla 3.0 (Macintosh; I; PPC)
Mime-Version: 1.0
To: Csound
Subject: Cecilia on a MAC
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
First let me say that I am the HAPPIEST person. I have Cecilia running
on my Mac and I am *Very* happy! Many thanks, Jean, for your help. I am
eagerly looking forward to the upcoming release.
Now a question to the general population ... well, to the general
population of Cecilia/Mac users. (Ok, ok, I know that isn't very many
people.)
Can anyone explain how the mouse is mapped on the Mac to edit graphs? I
don't understand how to reliably edit them. I would like to be able to
move breakpoints around. I keep getting stuck with the graph glued to my
cursor so it translates up or down the y axis when I only meant to move
a breakpoint. Or I go into "spline mode", because my single clicks came
too close together and became a double-click, and then I cannot get back
to "linear mode". Can someone explain to me how graph editing is
supposed to work Mac-wise?
regards,
-jim
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa07483;
17 Jan 98 2:22 GMT
Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa12525;
17 Jan 98 2:22 GMT
Received: (qmail 24401 invoked from network); 17 Jan 1998 02:22:53 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by pat.bath.ac.uk with SMTP; 17 Jan 1998 02:22:53 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (CAA24394); Sat, 17 Jan 1998 02:17:47 GMT
Received: from hermes.ex.ac.uk by maths.ex.ac.uk; Sat, 17 Jan 98 02:17:29 GMT
Received: from MAGELLAN.UMontreal.CA [132.204.2.30] by hermes via ESMTP (CAA26573); Sat, 17 Jan 1998 02:17:22 GMT
Received: from eole.ERE.UMontreal.CA (eole.ERE.UMontreal.CA [132.204.2.70]) by jason.MAGELLAN.UMontreal.CA with ESMTP id VAA14733
(8.6.11/IDA-1.6); Fri, 16 Jan 1998 21:17:18 -0500
Received: from mistral.ERE.UMontreal.CA (mistral.ERE.UMontreal.CA [132.204.2.73])
by eole.ERE.UMontreal.CA (8.8.7/8.8.7) with ESMTP id VAA19453;
Fri, 16 Jan 1998 21:15:42 -0500 (EST)
Received: from ere.umontreal.ca (whisky-08.CC.UMontreal.CA [132.204.2.208])
by mistral.ERE.UMontreal.CA (8.8.7/8.8.7) with ESMTP id VAA08339;
Fri, 16 Jan 1998 21:15:38 -0500 (EST)
Message-Id: <34C0110C.D6F1F2AC@ere.umontreal.ca>
Date: Fri, 16 Jan 1998 21:01:48 -0500
From: Jean Piche
X-Mailer: Mozilla 4.04 [en] (X11; I; IRIX 6.3 IP32)
Mime-Version: 1.0
To: gtc@mbox200.swipnet.se, csound
Subject: Re: Cecilia(again)
References: <34BFC82B.48359A61@mbox200.swipnet.se>
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
trkkaZulu wrote:
>
> High;
>
> Thanks to Khalid and all who responded to my desperate cry for help with
> Cecilia. The following is the error that i receive when i :
> /usr/local/cecLINUX/dev/xcec > wish ./xcec
>
> cp: /usr/local/lib/cecLINUX/bin/csound-3_46Linux_bin2.0.30: No such file
> or directory
> while executing
>
> "exec cp -p $ceclib/bin/csound3_46_Linux_bin$what, $ceclib/bin/csound"
>
Comment or erase these lines in the lib/init.tcl file
#if ![file exists $ceclib/bin/csound] {
# set what [exec uname -r]
# exec rm -f $ceclib/bin/csound
# exec cp -p $ceclib/bin/csoundIRIX$what $ceclib/bin/csound
#}
then rename your csound3_46_Linux_bin to csound
--
________________________________________________________
Jean Piche
Universite de Montreal
http://mistral.ere.umontreal.ca/~pichej
http://www.musique.umontreal.ca/electro/CEC/
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa08075;
17 Jan 98 7:30 GMT
Received: from pat.bath.ac.uk by stork.maths.Bath.AC.UK id aa22889;
17 Jan 98 7:30 GMT
Received: (qmail 29996 invoked from network); 17 Jan 1998 07:30:36 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by pat.bath.ac.uk with SMTP; 17 Jan 1998 07:30:36 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (HAA16025); Sat, 17 Jan 1998 07:23:46 GMT
Received: from hermes.ex.ac.uk by maths.ex.ac.uk; Sat, 17 Jan 98 07:23:29 GMT
Received: from mb05.swip.net [193.12.122.209] by hermes via ESMTP (HAA07371); Sat, 17 Jan 1998 07:23:23 GMT
Received: from win95.swipnet.se (dialup76-2-7.swipnet.se [130.244.76.71])
by mb05.swip.net (8.8.8/8.8.8) with ESMTP
id IAA15452 for ;
Sat, 17 Jan 1998 08:23:32 +0100 (MET)
Message-Id: <34C05E95.FCDF5C26@mbox200.swipnet.se>
Date: Sat, 17 Jan 1998 08:32:37 +0100
From: trkkaZulu
Reply-To: gtc@mbox200.swipnet.se
Organization: Glass Thought Communications
X-Mailer: Mozilla 4.01 [de] (Win95; I)
Mime-Version: 1.0
To: csound@maths.ex.ac.uk
Subject: you won't believe this
X-Priority: 3 (Normal)
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
High;
All of a sudden (i followed Jean's instructions to comment out some
lines in init.tcl) Cecilia is running on my machine. Thing is, i can
only get it to run as "root". When i "wish xcec" as 'user' i get this"
"can't read "prefs(color)": no such element in array
while executiong
color $pres(color)..."
(procedure "initPrefs" line 52)
invoked from within
Cecilia $arr"
(file "xcec" line 15)
What does this all mean? Oh, and Khalid, the date of my version is
October 11.
Thanks;
trkkaZulu
--
Visit: http://home1.swipnet.se/~w-18884/gtc/homePage.htm
radical raid rocker independent oop shockwave cybernation
Received: from stork.maths.bath.ac.uk by omphalos.maths.Bath.AC.UK id aa08391;
17 Jan 98 10:22 GMT
Received: from mercury.bath.ac.uk by stork.maths.Bath.AC.UK id aa26101;
17 Jan 98 10:23 GMT
Received: (qmail 16795 invoked from network); 17 Jan 1998 10:23:06 -0000
Received: from hermes.ex.ac.uk (HELO exeter.ac.uk) (144.173.6.14)
by mercury.bath.ac.uk with SMTP; 17 Jan 1998 10:23:06 -0000
Received: from noether [144.173.8.10] by hermes via SMTP (KAA16541); Sat, 17 Jan 1998 10:18:25 GMT
Received: from hermes.ex.ac.uk by maths.ex.ac.uk; Sat, 17 Jan 98 10:18:08 GMT
Received: from root@dns.rdn.it [194.247.174.4] by hermes via ESMTP (KAA21492); Sat, 17 Jan 1998 10:17:58 GMT
Received: from ppp-14.rdn.it (ppp-14.rdn.it [194.247.174.46]) by dns.rdn.it (8.8.2/8.7.1) with SMTP id LAA01684 for ; Sat, 17 Jan 1998 11:20:32 +0100
Date: Sat, 17 Jan 1998 11:20:32 +0100
Message-Id: <199801171020.LAA01684@dns.rdn.it>
X-Sender: s.zambon@rdn.it
X-Mailer: Windows Eudora Light Version 1.5.2
Mime-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
To: csound@maths.ex.ac.uk
From: Silvano Zambon
Subject: Samples tuning
Sender: owner-csound-outgoing@maths.ex.ac.uk
Precedence: bulk
Hello all,
Often the AIFF samples have an incorrect base frequency given
in header, usually the c5, and loscil don't play the correct note.
The below .ORC is useful for their automatic re-tuning: at the
begin of the performance compute a correction for each instrument.
It use the octdown e noctdft opcodes et seems to work, but is compiled
only by the 486 version, the version 3.46 says: "... octdown not
initialized ..." and in the version 3.47 the opcodes octdown e noctdft
are removed!
It is odd because remains active, but inserviceable, the opcodes specptrk,
spec..ecc.
I am a beginner and think to miss something. Can anyone tell me:
- exist a more simple way to re-tuning the samples?
- the opcodes octdown e noctdft are replaced with something other?
Thanks,
Silvano Zambon
s.zambon@rdn.it
---------------------------------------------------------------------
; re-tuning of n samples
; at the begin of the performance, the instr, 200, for each sample,
; find the note played from loscil and compare with the requested
; (inotarif).
; Then compute a correction coefficient - gkcoeff1,2,..,n -
; for use with loscil inside each instrument.
sr = 44100 ; must be the same of the sample (?)
kr = 2205
ksmps = 20
nchnls = 1
gkcoeff1 init 0
gkcoeff2 init 0
;gkcoeffn init 0
instr 1 ;sample 1
iamp = ampdb(p4)
inota = cpspch(p5)
icoeff =i(gkcoeff1)
asig loscil iamp, inota * icoeff, 1
out asig
endin
instr 2 ;sample 2
iamp = ampdb(p4)
inota = cpspch(p5)
icoeff =i(gkcoeff2)
asig loscil iamp, inota * icoeff, 2
out asig
endin
; instr ...
;instr n ;sample n
; iamp = ampdb(p4)
; inota = cpspch(p5)
; icoeff =i(gkcoeffn)
;
; asig loscil iamp, inota * icoeff, 2
; out asig
;endin
;------
instr 200 ; at the begin of the performance, find a correction coefficient
; for each sample
inotarif = 5000 ; seems good for all the samples
asamp loscil 32000, inotarif, 1
dsamp1 octdown asamp, 8, 180, 0
wsig1 noctdft dsamp1, .05, 96, 33, 0, 0, 0
koct specptrk wsig1, 8, .8, 0
knotau = cpsoct(koct)
gkcoeff1 = inotarif/knotau ; requested note / played note
asamp loscil 32000, inotarif, 2
dsamp2 octdown asamp, 8, 180, 0
wsig2 noctdft dsamp2, .05, 96, 33, 0, 0, 0
koct specptrk wsig2, 8, .8, 0
knotau = cpsoct(koct)
gkcoeff2 = inotarif/knotau
; ....
; asamp loscil 32000, inotarif, n
; dsampn octdown asamp, 8, 180, 0
; wsign noctdft dsampn, .05, 96, 33, 0, 0, 0
; koct specptrk wsign, 8, .8, 0
; knotau = cpsoct(koct)
; gkcoeffn = inotarif/knotau
endin
instr 99 ; sinus. for comparison "at ear".
iamp = ampdb(p4)
inota = cpspch(p5)
asig oscil iamp, inota, 99
out asig
endin
-------------------
;score:
f 1 0 0 1 "sample1.aif" 0 0 0
f 2 0 0 1 "sample2.aif" 0 0 0
; ...
f n 0 0 1 "samplen.aif" 0 0 0
f 99 0 4096 10 1 ;sine wave
; instrument start duration amp(p4) freq(p5)
i200 0 1
i1 1 1 80 8.00
i2 2 1 80 8.00
i99 3 1 80 8.00
e
|