<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">have a look to 'ghosts' in the help-menu:<div><br></div><div>help/examples/ghosts.scm<span class="Apple-tab-span" style="white-space: pre; "> </span><br><div></div></div><div><div><br></div><div>Am 03.03.2016 um 20:37 schrieb Rob Howiler:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div>Hi again everybody. This:<br>(define (ghosts)<br> (process repeat 12<br> for here = (now)<br> for ahead = (* (+ here .5) 2)<br> for main = (pick-range 53 77)<br> for high? = (>= main 65)<br> for amp = (if high? .6 .4)<br> for rhy = (pick-list '(1/16 1/8 3/16))<br> do<br> (mp:midi :time here :key main :dur (rhythm->seconds rhy 60)<br> :amp amp)<br> (when high?<br> sprout (hitone main ahead)<br> and sprout (riff main rhy) at (* ahead 2))<br> (when (= rhy 3/16)<br> sprout (thump main (+ here .5)))<br> (wait (rhythm->seconds rhy 60))))<br>(sprout (ghosts))<br><br>This works fine to define (ghosts). (ghosts) produces no sound just #<lambda ({time}-2239)> in the listener window. Running (sprout (ghosts)) gives me the hitone sound, but no advancement to the next pitch and it generates this in the listener window (I see that “at” is the unbound variable, but I can’t figure out how to fix it):<br><br>#<unspecified><br><blockquote type="cite"><blockquote type="cite"><blockquote type="cite">Error: at: unbound variable<br></blockquote></blockquote></blockquote>ghosts: (lambda ({time}-1860) (let* (({wait}-1... ; args: ("~A: unbound variable" at)<br>ghosts: ((* ahead 2)) ; ahead: 1275579.145172206<br>ghosts: ((when (= rhy 3/16) sprout (thump main... ; rhy: 3/16, main: 75<br> ; here: 637789.072586103<br>ghosts: (call-with-exit (lambda (return) (if (... ; high?: #t<br> ; amp: 0.6000000000000001<br>ghosts: (sprout (ghosts)) <br><br>Thanks again for your help and your patience.<br>Rob<br><br>------------------------------------------------------<br>Dr. Rob Howiler<br>Academic Computing Services Coordinator<br>Assistant Professor of Music<br><a href="mailto:rhowiler@presby.edu">rhowiler@presby.edu</a><br>(864) 833-8324<br>------------------------------------------------------<br><br><br>-- <br><br>------------------------------<br><http://www.presby.edu><br><br>_______________________________________________<br>Cmdist mailing list<br>Cmdist@ccrma.stanford.edu<br>https://cm-mail.stanford.edu/mailman/listinfo/cmdist<br></div></blockquote></div><br><div>
<span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: 'Helvetica Neue'; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-variant: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-variant: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div style="font-weight: normal; font-style: normal; margin-top: 0cm; margin-right: 0cm; margin-left: 0cm; margin-bottom: 0.0001pt; font-size: 12pt; font-family: 'Times New Roman', serif; "><span style="font-size: 11pt; font-family: Calibri, sans-serif; color: rgb(31, 73, 125); "><o:p> </o:p></span></div><div style="font-family: 'Andale Mono'; font-size: medium; font-weight: normal; font-style: normal; "><div style="border-right-style: none; border-bottom-style: none; border-left-style: none; border-width: initial; border-color: initial; border-top-style: solid; border-top-color: rgb(181, 196, 223); border-top-width: 1pt; padding-top: 3pt; padding-right: 0cm; padding-bottom: 0cm; padding-left: 0cm; "></div></div></div></span></div></span></div><font class="Apple-style-span" face="Helvetica-Light"><span class="Apple-style-span" style="font-size: 12px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><font class="Apple-style-span" face="Helvetica-Light"><span class="Apple-style-span" style="font-size: 12px; "><br></span></font></div></span></font><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: 'Helvetica Neue'; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; font-size: medium; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><font class="Apple-style-span" face="HelveticaNeue-Light"><span class="Apple-style-span" style="font-size: 12px; ">Johannes Quint<span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-variant: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: -webkit-auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-variant: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div><a href="http://www.johannes-quint.de">www.johannes-quint.de</a></div></div></span></div></span></span></font></div></span></span>
</div>
<br></body></html>