Sounds good.

The only tip I can think of is to have the lisp executable in your path, then make sure the path to the cm.mem binary is correct. 

b
On 10/3/05, Steven Yi <stevenyi@gmail.com> wrote:
Hi Ben,

Thanks for that info!  That's gotten me closer.  I can't quite seem to
run either your or stephane's examples, but only spent a few minutes.

Putting the examples together sounds good.  I can label one
soundObject as for <2.0 and one for >2.0.  How does that sound
Stephane and Ben?

Thanks!
steven


On 10/3/05, Ben McAllister <benmca@gmail.com> wrote:
> The 2.3.3 version worked for me from
>  ftp://ftp-ccrma.stanford.edu/pub/Lisp/cm/binaries/
>
>  CLISP is part of the distro, btw.
>
> >
> >
> > Thanks for sending this!  I can't seem to get a version of common lisp
> > running on Windows, and on Linux I have troubles for CM.  Yikes!  Do
> > you mind if I add this example as external_commonMusic2.blue to the
> > examples?
> >
> > Thanks!
> > steven
> >
> >
> > On 10/3/05, stephane boussuge <s_boussuge@yahoo.fr> wrote:
> > > hi Steven and Ben
> > > thanks to Ben for his help.
> > > i use cm 2.x.x and i have made a very simple example
> > > of score generation with cm 2 based on the file intro
> > > in cm 2 and the code from Ben.
> > > i join it if it can be useful for somebody...
> > > (sorry, i'm a very newbie in cm and my code are very
> > > bad :(
> > >
> > > bye
> > > stf
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> > >
> ___________________________________________________________________________
> > > Appel audio GRATUIT partout dans le monde avec le nouveau Yahoo!
> Messenger
> > > TÚlÚchargez cette version sur http://fr.messenger.yahoo.com
> > >
> > > <blueData version='0.99.8'>
> > >   <projectProperties>
> > >     <author>author</author>
> > >     <title></title>
> > >     <sampleRate>44100</sampleRate>
> > >     <ksmps>2</ksmps>
> > >     <channels>2</channels>
> > >     <commandLine>csound -odac1</commandLine>
> > >     <diskSampleRate>44100</diskSampleRate>
> > >     <diskKsmps>2</diskKsmps>
> > >     <diskChannels>2</diskChannels>
> > >     <diskCommandLine>csound </diskCommandLine>
> > >     <CsOptions></CsOptions>
> > >     <notes> -W -o D:\Nuendo\Urban\mel1.wav
> > >
> > > consound -W -oD:\Nuendo\Urban\bass_1_ctof.wav</notes>
> > >   </projectProperties>
> > >   <arrangement/>
> > >   <tables>;sine
> > > f 1 0 16384 10 1
> > >
> > > ;saw
> > > f 2 0 256 7 0 128 1 0 -1 128 0
> > > ;pulse?
> > > f 3 0 256 7 1 128 1 0 -1 128 -1
> > > </tables>
> > >   <soundObjectLibrary/>
> > >   <globalOrcSco>
> > >     <globalOrc>ga1 init 0
> > > ga2 init 0
> > > </globalOrc>
> > >     <globalSco></globalSco>
> > >   </globalOrcSco>
> > >   <opcodeList/>
> > >   <liveData>
> > >     <commandLine>csound -Wdo devaudio -L stdin</commandLine>
> > >   </liveData>
> > >   <soundObject type='blue.soundObject.PolyObject'>
> > >     <subjectiveDuration> 2.0</subjectiveDuration>
> > >     <startTime>0.0</startTime>
> > >     <name>root</name>
> > >     <backgroundColor>-10066279</backgroundColor>
> > >     <timeBehavior>0</timeBehavior>
> > >     <noteProcessorChain/>
> > >     <isRoot>true</isRoot>
> > >     <pixelSecond>64</pixelSecond>
> > >     <heightIndex>2</heightIndex>
> > >     <snapEnabled>false</snapEnabled>
> > >     <snapValue>1.0</snapValue>
> > >     <timeDisplay>0</timeDisplay>
> > >     <timeUnit>5</timeUnit>
> > >     <soundLayer name='' muted='false' solo='false'>
> > >       <soundObject type='blue.soundObject.External'>
> > >         <subjectiveDuration> 15.296875</subjectiveDuration>
> > >         <startTime> 0.0</startTime>
> > >         <name>external</name>
> > >         <backgroundColor>-12566464</backgroundColor>
> > >         <timeBehavior>2</timeBehavior>
> > >         <noteProcessorChain/>
> > >         <text>(load &quot;/home/stf/bin/cm-2.6.0/src/cm.lisp&quot;)
> > > (in-package :cm)
> > >
> > >
> > > (defparameter *buflen* 4096); used to store file in print-stream
> function
> > >
> > >
> > > (defobject simp ()
> > >            ((ins :initform &apos;simp :accessor object-name)
> > >             (beg :accessor object-time)
> > >             (dur :initform 1)
> > >             (amp :initform .5)
> > >             (freq :initform 440))
> > >   (:parameters beg dur amp freq))
> > >
> > > ;; Now define a simple process that output simps...
> > >
> > >
> > >
> > > (define (simp-1 num)
> > >   (process repeat num
> > >            output (new simp
> > >                     :beg (now) :dur 1 :amp .5
> > >                     :freq (between 220 440))
> > >            wait (pick 0 1 2)))
> > >
> > >
> > >
> > >
> > >
> > > ;; Next we define a variant process that outputs simps
> > > ;; with names picked randomly from a list.
> > >
> > > (define (simp-2 num names)
> > >   (process repeat num
> > >            output (new simp :beg (now)
> > >                        :ins (and names (pickl names))
> > >                        :dur 1 :amp .5
> > >                        :freq (between 220 440))
> > >            wait (pick 0 1 2)))
> > >
> > > (events (simp-2 20 &apos;(&quot;i1&quot; &quot;i2&quot; &quot;i3&quot;))
>  ; write to i1 i2 or i3
> > >         &quot;test.sco&quot;)
> > >
> > >
> > >
> > >
> > > (defun print-stream (filename)
> > >         (let ((buffer (make-array *buflen*)))
> > >         (with-open-file (f filename :direction :input
> > >                       :if-does-not-exist :error
> > >                       )
> > >         (do ((j 0))((= j (file-length f)))
> > >         (setf myline (read-line f t &quot;eofeof&quot;))
> > >         (if (string-equal myline &quot;eofeof&quot;)(return))
> > >         (princ myline)
> > >         (write-char #\Newline)
> > >         (setf j (+ j ))
> > >         )
> > >    ))
> > > )
> > > ;
> > > ;
> > >
> > > ;
> > > (print-stream  &quot;test.sco&quot;)</text>
> > >         <commandLine>clisp </commandLine>
> > >       </soundObject>
> > >     </soundLayer>
> > >   </soundObject>
> > >   <scratchPadData>
> > >     <isWordWrapEnabled>true</isWordWrapEnabled>
> > >     <scratchText/>
> > >   </scratchPadData>
> > >   <noteProcessorChainMap/>
> > >   <renderStartTime>0.0</renderStartTime>
> > >   <renderEndTime>-1.0</renderEndTime>
> > >   <markersList/>
> > >   <loopRendering>false</loopRendering>
> > > </blueData>
> > >
> > >
> >
> >
> > -------------------------------------------------------
> > This SF.Net email is sponsored by:
> > Power Architecture Resource Center: Free content, downloads, discussions,
> > and more. http://solutions.newsforge.com/ibmarch.tmpl
> > _______________________________________________
> > Bluemusic-users mailing list
> > Bluemusic-users@lists.sourceforge.net
> >
> https://lists.sourceforge.net/lists/listinfo/bluemusic-users
> >
>
>


-------------------------------------------------------
This SF.Net email is sponsored by:
Power Architecture Resource Center: Free content, downloads, discussions,
and more. http://solutions.newsforge.com/ibmarch.tmpl
_______________________________________________
Bluemusic-users mailing list
Bluemusic-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bluemusic-users