Hi,
Thanks for the info on move-sound and move-it. I'm trying to figure out how
those work, and didn't know there was a dlocsig ex in clm.
For the sinewave ex. listed earlier using dlocsig, I'm using f23, sbcl, emacs,
clm and slime, and the error below is about can't handle DLOCSIG etc.
Admittedly I'm not totally proficient at understanding the slime-repl output,
so this may not be what you need.
Thank You.
Jim
Execution of a form compiled with errors.
Form:
(DEFINSTRUMENT SINEWAVE
(START-TIME DURATION FREQ AMP (AMP-ENV '(0 1 1 1))
(PATH (MAKE-PATH :PATH '(-10 10 0 5 10 10
(MULTIPLE-VALUE-BIND (DLOC BEG END)
(MAKE-DLOCSIG :START-TIME START-TIME :DURATION DURATION :PATH PATH)
(LET* ((OSC (MAKE-OSCIL :FREQUENCY FREQ))
(AENV (MAKE-ENV :ENVELOPE AMP-ENV :SCALER AMP)))
(RUN
(LOOP FOR I FROM BEG BELOW
END
DO (DLOCSIG DLOC I (* (ENV AENV) (OSCIL OSC
Compile-time error:
(during macroexpansion of (DEFINSTRUMENT SINEWAVE
...))
the run macro can't handle DLOCSIG in (DLOCSIG DLOC I
(* (ENV AENV) (OSCIL OSC)))
[Condition of type SB-INT:COMPILED-PROGRAM-ERROR]
Restarts:
0: [*ABORT] Return to SLIME's top level.
1: [ABORT] abort thread (#)
Backtrace:
0: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM
#
:TABLE #(447 # SB-IMPL::%DEFUN # NIL NIL)
2: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) # T)
3: (LOAD #P"/opt/clm_stuff/jsdlocsig.fasl" :VERBOSE NIL :PRINT NIL
:IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
--more--
(definstrument sinewave (start-time duration freq amp
(amp-env '(0 1 1 1))
(path (make-path :path '(-10 10 0 5 10 10
(multiple-value-bind (dloc beg end)
(make-dlocsig :start-time start-time
:duration duration
:path path)
(let* ((osc (make-oscil :frequency freq))
(aenv (make-env :envelope amp-env :scaler amp)))
(run
(loop for i from beg below end do
(dlocsig dloc i (* (env aenv)(oscil osc
From: cmdist-boun...@ccrma.stanford.edu <cmdist-boun...@ccrma.stanford.edu> on
behalf of cmdist-requ...@ccrma.stanford.edu <cmdist-requ...@ccrma.stanford.edu>
Sent: Monday, December 14, 2015 8:00 PM
To: cmdist@ccrma.Stanford.EDU
Subject: Cmdist Digest, Vol 92, Issue 2
Send Cmdist mailing list submissions to
cmdist@ccrma.stanford.edu
To subscribe or unsubscribe via the World Wide Web, visit
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
or, via email, send a message with subject or body 'help' to
cmdist-requ...@ccrma.stanford.edu
You can reach the person managing the list at
cmdist-ow...@ccrma.stanford.edu
When replying, please edit your Subject line so it is more specific
than "Re: Contents of Cmdist digest..."
Today's Topics:
1. dlocsig example (James Hearon)
2. Re: dlocsig example (b...@ccrma.stanford.edu)
--
Message: 1
Date: Mon, 14 Dec 2015 18:03:02 +
From: James Hearon <j_hea...@hotmail.com>
To: "cmdist@ccrma.Stanford.EDU" <cmdist@ccrma.Stanford.EDU>
Subject: [CM] dlocsig example
Message-ID:
<blupr10mb0836ad6cf2c42ace43e86969e5...@blupr10mb0836.namprd10.prod.outlook.com>
Content-Type: text/plain; charset="iso-8859-1"
Hi,
I'm getting myself all fouled up with trying to run a simple dlocsig example in
clm. I was using this one, from
https://ccrma.stanford.edu/~nando/clm/dlocsig/
(definstrument sinewave (start-time duration freq amp
(amp-env '(0 1 1 1))
(path (make-path :path '(-10 10 0 5 10 10
(multiple-value-bind (dloc beg end)
(make-dlocsig :start-time start-time
:duration duration
:path path)
(let* ((osc (make-oscil :frequency freq))
(aenv (make-env :envelope amp-env :scaler amp)))
(run
(loop for i from beg below end do
(dlocsig dloc i (* (env aenv)(oscil osc
-
I can move the samples in time using plain locsig and the run loop below,
binding the variables start and end,
but dlocsig seems to need the multiple-bind structure which I can't seem to to
get to run. I'm wondering if there's a better simple example someplace? Thank
You.
(definstrument sinewave (start-time duration freq amp deg dis
(amp-env '(0 1 1 1)) )
(let* ((osc (make-oscil :frequency freq))
(start (floor (* start-time *srate*)))
(end (+ start (floor (* duration *srate*
(aenv (make-env :envelope amp-env :duration duration :scaler amp))
(loc (make-locsig :degree deg