Re: [CM] dlocsig example

[Juan Reyes]

Hi James,

Looks like you have to compile and load "dlocsig.lisp" before compiling
your instrument.

Just like when you are adding reverb to any instrument prior to
'with-sound', you need to compile and load reverb instruments like 
"freeverb.ins"


'multiple-value-bind' is just a fancy 'let' statement as far as I know.

  -- Juan




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 (#)



___
Cmdist mailing list
Cmdist@ccrma.stanford.edu
https://cm-mail.stanford.edu/mailman/listinfo/cmdist

[CM] dlocsig example

[James Hearon]

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  on 
behalf of 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 
To: "cmdist@ccrma.Stanford.EDU" 
Subject: [CM] dlocsig example
Message-ID:



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 :distance dis  :reverb .05)))
  (run
   (loop for i from start