<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>It's my custom SuperCollider client library. very simply¡¦but, very ugly.</div><div><br></div><div>I used OSC library(<a href="https://github.com/zzkt">https://github.com/zzkt</a>), and 1:1 binding to SC3's commands.</div><div><br></div><div>for examples¡¦</div><div><br></div><div>;;; for get server's node info .</div><div><div>(defun server-query-all-nodes (server)</div><div> (send-message server "/g_dumpTree" 0 0))</div></div><div><br></div><div>;;; make buffer from audiofile.</div><div><div>(defun buffer-read (server path &key bufnum action)</div><div> (let ((file-path (get-fullpath path)))</div><div> (assert (probe-file file-path) (path) "not have file< ~a >" file-path)</div><div> (let* ((bufnum (if bufnum bufnum (get-next-buffer-number server)))</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> (new-buffer (make-instance 'buffer :path file-path</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> :bufnum bufnum</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> :server server))</div><div><span class="Apple-tab-span" style="white-space:pre"> </span> (msg (list "/b_allocRead" bufnum file-path 0 -1 (osc:encode-message "/b_query" bufnum))))</div><div> (setf (gethash (list "/b_allocRead" bufnum) (buffer-table server)) action)</div><div> (apply #'send-message server msg)</div><div> new-buffer)))</div></div><div><br></div><div><br></div><div>just a lot of work to do, not difficult(ugen binding for defsynth).</div><div><br></div><div>... in the near future, I want to share to Common Lisp Artists.</div><div>To do this, the is a bit of a problem to be solved.</div><div><br></div><div>English is a big stumbling block for me.</div><div>Google translator is good. but not perfect. </div><div><br></div><br><div><div>2013. 5. 21., ¿ÀÀü 1:14, Andrew Shalit <<a href="mailto:ashalit@learningtouch.com">ashalit@learningtouch.com</a>> ÀÛ¼º:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Thank you, this was really beautiful!<div><br></div><div>Can you say any more about the Lisp interface to SuperCollider that you used?</div><div><br></div><div>Good stuff.</div><div><br><div><div>On May 18, 2013, at 9:03 AM, Park SungMin <<a href="mailto:byulparan_eng@icloud.com">byulparan_eng@icloud.com</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div><span style="font-family: monospace; "><br></span></div><span style="font-family: monospace; ">Live Coding demo on ClozureCL.</span><span style="font-family: monospace; ">I used my supercollider client(sound) and ObjC bridge/cl-opengl(graphics).</span><br style="font-family: monospace; "><br style="font-family: monospace; "><span style="font-family: monospace; ">I have used ClozureCL for about 8 years. It's best tool for me.</span><br style="font-family: monospace; "><span style="font-family: monospace; ">Thanks for dev.</span><br style="font-family: monospace; "><br style="font-family: monospace; "><a href="https://vimeo.com/66448855" style="font-family: monospace; ">https://vimeo.com/66448855</a>
</div>_______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br><a href="http://clozure.com/mailman/listinfo/openmcl-devel">http://clozure.com/mailman/listinfo/openmcl-devel</a><br></blockquote></div><br></div></div></blockquote></div><br></body></html>