From anders.vinjar at bek.no Wed Dec 9 02:32:40 2015 From: anders.vinjar at bek.no (anders.vinjar at bek.no) Date: Wed, 09 Dec 2015 11:32:40 +0100 Subject: [CM] small patch to snd-16/CM_patterns.scm Message-ID: <87d1ufsyif.fsf@bek.no> Hi Bill. There's a small oversight near the bottom of snd-16/CM_patterns.scm. Here's a patch to get the repeater pattern working: -------------- next part -------------- A non-text attachment was scrubbed... Name: CM_patterns.scm.diff Type: text/x-patch Size: 755 bytes Desc: not available URL: -------------- next part -------------- Cheers, -anders From bil at ccrma.Stanford.EDU Wed Dec 9 04:01:34 2015 From: bil at ccrma.Stanford.EDU (bil at ccrma.Stanford.EDU) Date: Wed, 09 Dec 2015 04:01:34 -0800 Subject: [CM] =?utf-8?q?small_patch_to_snd-16/CM=5Fpatterns=2Escm?= In-Reply-To: <87d1ufsyif.fsf@bek.no> References: <87d1ufsyif.fsf@bek.no> Message-ID: <86cb844750ddd8b2dc383887995c42bd@ccrma.stanford.edu> Thanks! I have merged that change into the ccrma versions. From j_hearon at hotmail.com Mon Dec 14 10:03:02 2015 From: j_hearon at hotmail.com (James Hearon) Date: Mon, 14 Dec 2015 18:03:02 +0000 Subject: [CM] dlocsig example In-Reply-To: References: Message-ID: 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 &key (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 &key (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 to end do (locsig loc i (* (env aenv)(oscil osc))) ))));) From bil at ccrma.Stanford.EDU Mon Dec 14 10:34:19 2015 From: bil at ccrma.Stanford.EDU (bil at ccrma.Stanford.EDU) Date: Mon, 14 Dec 2015 10:34:19 -0800 Subject: [CM] dlocsig example In-Reply-To: References: Message-ID: Which lisp are you running, and what error did you get? Here I am running the move-sound instrument in sbcl: (load "all.lisp") (compile-file "dlocsig.lisp") (load "dlocsig.fasl") (compile-file "move-sound.ins") (load "move-sound.fasl") (load "v") (with-sound (:channels 4) (move-it (:path (make-path '((-10 10) (.1 .1) (10 -10)))) (fm-violin 0 1 440 .1))) and I got "test.snd". From j_hearon at hotmail.com Tue Dec 15 09:45:26 2015 From: j_hearon at hotmail.com (James Hearon) Date: Tue, 15 Dec 2015 17:45:26 +0000 Subject: [CM] dlocsig example In-Reply-To: References: Message-ID: 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 &KEY (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 &key (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-bounces at ccrma.Stanford.EDU on behalf of cmdist-request at ccrma.Stanford.EDU Sent: Monday, December 14, 2015 8:00 PM To: cmdist at ccrma.Stanford.EDU Subject: Cmdist Digest, Vol 92, Issue 2 Send Cmdist mailing list submissions to cmdist at 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-request at ccrma.stanford.edu You can reach the person managing the list at cmdist-owner at 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 (bil at ccrma.Stanford.EDU) ---------------------------------------------------------------------- Message: 1 Date: Mon, 14 Dec 2015 18:03:02 +0000 From: James Hearon To: "cmdist at 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 &key (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 &key (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 to end do (locsig loc i (* (env aenv)(oscil osc))) ))));) ------------------------------ Message: 2 Date: Mon, 14 Dec 2015 10:34:19 -0800 From: bil at ccrma.Stanford.EDU To: James Hearon Cc: "cmdist at ccrma.Stanford.EDU" Subject: Re: [CM] dlocsig example Message-ID: Content-Type: text/plain; charset=US-ASCII; format=flowed Which lisp are you running, and what error did you get? Here I am running the move-sound instrument in sbcl: (load "all.lisp") (compile-file "dlocsig.lisp") (load "dlocsig.fasl") (compile-file "move-sound.ins") (load "move-sound.fasl") (load "v") (with-sound (:channels 4) (move-it (:path (make-path '((-10 10) (.1 .1) (10 -10)))) (fm-violin 0 1 440 .1))) and I got "test.snd". ------------------------------ _______________________________________________ Cmdist mailing list Cmdist at ccrma.stanford.edu https://cm-mail.stanford.edu/mailman/listinfo/cmdist End of Cmdist Digest, Vol 92, Issue 2 ************************************* From juanig at ccrma.Stanford.EDU Tue Dec 15 09:58:26 2015 From: juanig at ccrma.Stanford.EDU (Juan Reyes) Date: Tue, 15 Dec 2015 12:58:26 -0500 Subject: [CM] dlocsig example In-Reply-To: References: Message-ID: <567054C2.6060100@ccrma.stanford.edu> 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 (#) > > From j_hearon at hotmail.com Mon Dec 21 09:50:35 2015 From: j_hearon at hotmail.com (James Hearon) Date: Mon, 21 Dec 2015 17:50:35 +0000 Subject: [CM] dlocsig Message-ID: Hi, Thanks for info on dlocsig.lisp. I managed to get the move-sound.ins working, and also the sinewave example. I just did not understand dlocsig.lisp needed to be compiled and loaded before using it. I thought it was loaded with all.lisp. Regards, Jim -------------- next part -------------- An HTML attachment was scrubbed... URL: