Re: [Bluemusic-users] External Sound Object bug
Brought to you by:
kunstmusik
Menu
▾
▴
Re: [Bluemusic-users] External Sound Object bug
|
From: steven yi <ste...@cs...> - 2004-11-02 18:56:22
|
Hi Ben,
I tried it on windows using cm-1.3. Using a separate text file outside
of blue and running cm on it I got:
C:\cm>c:\cm\clisp\lisp.exe -M c:\cm\clisp\cm.mem c:\test.txt
Stream: #<Csound-Score-File: "test.sco">
*** - [G is not a note in #<EQUAL-TEMPERED-SCALE Chromatic-Scale>.
Which is the issue I think you were mentioning, but it seems to happen
outside of blue for me too. I've been trying to pick up a bit of Lisp
here and there: what do brackets mean in Lisp? I didn't think it was
syntax for anything. I tried replacing the brackets with parenthesis
and that didn't work, but taking out the brackets altogether did allow
things to compile, both in blue and outside of it. I got this as a result:
i1 0.0 0.8694329 0.812 391.995 1
i1 0.43454736 0.8694329 0.986 440.0 1
i1 0.8694329 0.8694329 0.998 391.995 1
i1 1.3043184 0.8694329 0.809 440.0 1
i1 1.7388659 0.8694329 0.923 391.995 1
i1 2.1737514 0.8694329 0.797 440.0 1
i1 2.6086369 0.8694329 0.912 391.995 1
i1 3.0435224 0.8694329 0.883 440.0 1
i1 3.4780698 0.8694329 0.847 391.995 1
i1 3.9129553 0.8694329 0.885 440.0 1
i1 4.347841 0.8694329 0.858 391.995 1
i1 4.782388 0.8694329 0.91 440.0 1
i1 5.2172737 0.8694329 0.904 391.995 1
i1 5.6521597 0.8694329 0.996 440.0 1
i1 6.0870447 0.8694329 0.781 391.995 1
i1 6.521592 0.8694329 0.776 440.0 1
i1 6.9564776 0.8694329 0.977 391.995 1
i1 7.3913636 0.8694329 0.784 440.0 1
i1 7.8259106 0.8694329 0.795 391.995 1
i1 8.260796 0.8694329 0.713 440.0 1
i1 8.695682 0.8694329 0.77 391.995 1
i1 9.130568 0.8694329 0.992 440.0 1
i1 9.565115 0.8694329 0.826 391.995 1
i1 10.0 0.8694329 0.826 440.0 1
i1 10.434886 0.8694329 0.952 391.995 1
i1 10.869432 0.8694329 0.797 440.0 1
i1 11.304319 0.8694329 0.748 391.995 1
i1 11.739204 0.8694329 0.932 440.0 1
i1 12.174089 0.8694329 0.867 391.995 1
i1 12.608637 0.8694329 0.71 440.0 1
i1 13.043522 0.8694329 0.773 391.995 1
i1 13.478408 0.8694329 0.906 440.0 1
i1 13.912955 0.8694329 0.816 391.995 1
i1 14.347841 0.8694329 0.822 440.0 1
i1 14.782727 0.8694329 0.729 391.995 1
i1 15.217274 0.8694329 0.873 440.0 1
i1 15.65216 0.8694329 0.922 391.995 1
i1 16.087044 0.8694329 0.783 440.0 1
i1 16.52193 0.8694329 0.959 391.995 1
i1 16.956478 0.8694329 0.764 440.0 1
i1 17.391363 0.8694329 0.945 391.995 1
i1 17.82625 0.8694329 0.881 440.0 1
i1 18.260796 0.8694329 0.723 391.995 1
i1 18.695683 0.8694329 0.808 440.0 1
i1 19.130568 0.8694329 0.746 391.995 1
I don't know if that's what is expected though.
Maybe you don't need the brackets?
steven
Ben McAllister wrote:
> Hi Steven and everyone,
>
> As time permits, I'm debugging this on my own, but I'm swamped in work now
> so I thought I would pass this on to see if anything clicked with you.
>
> -----
>
> I'm using blue to generate score material from Common Music 1.3 (as usual)
> and have found a strange inconsistency in Blue's behavior. As long as my
> lisp code (which lies within an External Sound Object) contains no square
> brackets ('[' or ']') the contents of the External are passed to the lisp
> interpreter just fine. There is an (encoding ?) issue once the brackets are
> introduced.
>
> Here's a sample to play with. In this example, the brackets are employed to
> indicate a chord - the bracketed notes are generated without updating time
> or anything else within the 'unless-chording' form. I debugged to the point
> where the lisp interpreter is passed the score, and see that the error
> passed back includes the first bracket and a capitalized version of the lisp
> code. I haven't dumped the contents of the Reader/Writer and BufferedStream
> objects blue uses, but since the code was apparently processed a bit my
> first thought is char set encoding issue. BTW - I DID run this code through
> the interpreter without blue and it works just fine. Also, the error occurs
> in the latest beta as well as 92.3.
>
> Thanks for your time (if you have it)! The code follows - Ben
>
> PS - Steven - aren't you due in Seattle soon? Let me know if so.
>
> -------------------
>
> Command Line:
> d:\csound\cm-1.3\clisp\lisp.exe -M d:\Csound\cm-1.3\clisp\cm.mem
> (replace these paths with your cm-1.3 install dir)
> (cm-1.3 is available at ftp://ftp-ccrma.stanford.edu/pub/Lisp/cm/binaries/)
>
>
> my lisp:
> (in-package :stella)
>
>
> (defparameter *buflen* 4096)
>
> (defparameter *totaldur* 0)
> ;
> (defobject quick (csound-note)
> ((instr :initform "i") inst mytime dur amp pitch pan)
> (:parameters instr inst mytime dur amp pitch pan))
>
> (defun metalfigure_waltz (st len tem pn)
> (algorithm nil quick (start st length len)
> (setf pan pn)
> (setf inst 1)
> (setf rhythm (item (items (rhythms q. tempo(tempo tem) ) ) )
> )
> (setf dur (* 2 rhythm))
> (setf pitch (item (items (pitches [g a]))))
> (setf amp (between .7 1))
> (setf mytime time)
> (setf *totaldur* (max (+ time dur) *totaldur*))
> ))
>
>
>
> (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 "eofeof"))
> (if (string-equal myline "eofeof")(return))
> (princ myline)
> (write-char #\Newline)
> (setf j (+ j ))
> )
> ))
> )
>
>
> (defun ms (&key (start-time 1.)(my-scorefile "test.sco"))
> (let* ((myheader (header "" )))
> (fheader my-scorefile myheader)
> (merge all ()
> (metalfigure_waltz 0 45 70 1)
> )
> (setf mystream (make-string-output-stream))
> (open-cmd my-scorefile)
> (mix-cmd "all 0 play nil")
> ))
> (ms)
> (print-stream "test.sco")
>
>
>
> Ben McAllister
> Senior Software Development Engineer
> Lockstream Corp.
> (425)709-6840 x231
>
>
>
> -------------------------------------------------------
> This SF.Net email is sponsored by:
> Sybase ASE Linux Express Edition - download now for FREE
> LinuxWorld Reader's Choice Award Winner for best database on Linux.
> http://ads.osdn.com/?ad_id=5588&alloc_id=12065&op=click
> _______________________________________________
> Bluemusic-users mailing list
> Blu...@li...
> https://lists.sourceforge.net/lists/listinfo/bluemusic-users
>
>
|