If you would note the changes I would be happy this summer to provide an 
(unpublshed) update of the code. I simply dont have the time these days to 
spend with CM, I hope to have a new release in the fall but at this point I 
can’t even be certain Ill have time for that!

> On Mar 7, 2016, at 7:12 AM, Rob Howiler <[email protected]> wrote:
> 
> Hi Ben - Thanks for the heads up.  Johannes helped me figure out that I 
> needed to call “wait” as a function.  It’s kinda tricky using the Metalevel 
> book with all the changes to the language since it was written, but I’m 
> getting there.  I appreciate everyone’s help & everyone’s patience.
>> On Mar 6, 2016, at 8:02 PM, Ben McAllister <[email protected]> wrote:
>> 
>> Looks like you're missing some parens around your call to wait - this
>> does the trick for me:
>> 
>> (define (riff knum rhy)
>> ;;generate an upward strum of notes
>> (let ((rate (rhythm->seconds (/ rhy 4) 60)))
>>   (process repeat 5
>>            for k from (+ 39 (mod knum 13)) by 13
>>            do
>>            (mp:midi :key k :dur rate :amp .3 :chan 0)
>>            (wait rate))
>> ))
>> 
>> On Thu, Mar 3, 2016 at 10:10 AM, Rob Howiler <[email protected]> wrote:
>>> Hi
>>> Thanks in advance for helping me with my questions.  I know I am becoming a 
>>> bore with these newbie questions….
>>> 
>>> Anytime I try to use :time (now) in a :mp:midi statement (or perhaps it’s 
>>> the “rate” part), I get all sound at once when it should sound 
>>> sequentially.  I’m defining a couple of helper apps (as per Notes from the 
>>> Metalevel which I understand is outdated in some ways, language-wise.
>>> 
>>> (define (bpm->seconds bpm)
>>> (/ 60.0 bpm))
>>> 
>>> (define (rhythm->seconds rhy tempo)
>>> (* rhy 4.0 (bpm->seconds tempo)))
>>> 
>>> (define (riff knum rhy)
>>> ;;generate an upward strum of notes
>>> (let ((rate (rhythm->seconds (/ rhy 4) 60)))
>>>   (process repeat 5
>>>            for k from (+ 39 (mod knum 13)) by 13
>>>            do
>>>            (mp:midi :key k :amp .3 :chan 0)
>>>            wait rate)))
>>> (sprout (riff 48 0.5))
>>> 
>>> ….gives all sound as a chord.
>>> 
>>> using (riff 48 0.5) just gives #<lambda ({time}-968)> in the listener 
>>> window (the number increases sequentially each time I try to evaluate the 
>>> (riff 48 0.5) expression).
>>> 
>>> Also, if I use
>>> (define (riff knum rhy)
>>> ;;generate an upward strum of notes
>>> (let ((rate (rhythm->seconds (/ rhy 4) 60)))
>>>   (process repeat 5
>>>            for k from (+ 39 (mod knum 13)) by 13
>>>            do
>>>            (mp:midi :key k :time (now) :amp .3 :chan 0)
>>>            wait rate)))
>>> (riff 48 0.5) - or (sprout (riff 48 0.5))
>>> give me no sound with #<unspecified> in the listener window.  The :time 
>>> (now) is the only thing that’s different.
>>> 
>>> Thanks again for your help and patience.
>>> Rob
>>> 
>>> ------------------------------------------------------
>>> Dr. Rob Howiler
>>> Academic Computing Services Coordinator
>>> Assistant Professor of Music
>>> [email protected]
>>> (864) 833-8324
>>> ------------------------------------------------------
>>> 
>>> 
>>> --
>>> 
>>> ------------------------------
>>> <http://www.presby.edu>
>>> 
>>> _______________________________________________
>>> Cmdist mailing list
>>> [email protected]
>>> https://cm-mail.stanford.edu/mailman/listinfo/cmdist
>> 
>> 
>> 
>> -- 
>> Ben McAllister | listenfaster.com |  @listenfaster | tuktuband.com |
>> c: 206.849.3183
> 
> 
> ------------------------------------------------------
> Dr. Rob Howiler
> Academic Computing Services Coordinator
> Assistant Professor of Music
> [email protected]
> (864) 833-8324
> -------------------------------------------------------
> 
> 
> -- 
> 
> ------------------------------
> <http://www.presby.edu>
> 
> _______________________________________________
> Cmdist mailing list
> [email protected]
> https://cm-mail.stanford.edu/mailman/listinfo/cmdist


_______________________________________________
Cmdist mailing list
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist

Reply via email to