<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">
<div><br></div><div>Here is wait function code Andrew sent out a while back.</div><div><br></div><div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">(</font><font face="Monaco" size="3" color="#8a211b" style="font: 12.0px Monaco; color: #8a211b">define</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> *sys:toplevel-continuation* '())</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">(</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">call/cc</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#8a211b" style="font: 12.0px Monaco; color: #8a211b">lambda</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (k) (</font><font face="Monaco" size="3" color="#8a211b" style="font: 12.0px Monaco; color: #8a211b">set!</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> *sys:toplevel-continuation* k)))</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal normal normal 12px/normal Monaco; color: rgb(17, 34, 95); min-height: 16px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">(</font><font face="Monaco" size="3" color="#8a211b" style="font: 12.0px Monaco; color: #8a211b">define</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> sys:wait</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#8a211b" style="font: 12.0px Monaco; color: #8a211b">lambda</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (until-time)</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">call/cc</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#8a211b" style="font: 12.0px Monaco; color: #8a211b">lambda</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (cont)</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">callback</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> until-time cont </font><font face="Monaco" size="3" color="#0000ff" style="font: 12.0px Monaco; color: #0000ff">0</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">)</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (*sys:toplevel-continuation* </font><font face="Monaco" size="3" color="#0000ff" style="font: 12.0px Monaco; color: #0000ff">0</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">)))))</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal normal normal 12px/normal Monaco; color: rgb(17, 34, 95); min-height: 16px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">(</font><font face="Monaco" size="3" color="#8a211b" style="font: 12.0px Monaco; color: #8a211b">define</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> test</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#8a211b" style="font: 12.0px Monaco; color: #8a211b">lambda</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> ()</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">print</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> 'a)</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (sys:wait (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">+</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">now</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">) </font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">*second*</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">))</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">print</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> 'b) ;</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (sys:wait (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">+</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">now</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">) (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">*</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> </font><font face="Monaco" size="3" color="#0000ff" style="font: 12.0px Monaco; color: #0000ff">3</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> </font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">*second*</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">)))</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">print</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> 'c)</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (sys:wait (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">+</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">now</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">) (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">*</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> </font><font face="Monaco" size="3" color="#0000ff" style="font: 12.0px Monaco; color: #0000ff">1/8</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> </font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">*second*</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">)))</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> (</font><font face="Monaco" size="3" color="#a45026" style="font: 12.0px Monaco; color: #a45026">print</font><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f"> 'd)))</font></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; font: normal normal normal 12px/normal Monaco; color: rgb(17, 34, 95); min-height: 16px; "><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><font face="Monaco" size="3" color="#11225f" style="font: 12.0px Monaco; color: #11225f">(test)</font></div></div></div><div><br></div><div>I use it after calling (load "filename") to give Imromptu a chance to execute the load before calling the next line.</div><div><br></div><div>Dave</div><div><br></div><div><br></div><div><br></div><div><br></div><br><div><div>On Sep 28, 2009, at 11:53 AM, David Routledge wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">Hi David :)<div>Thanks for the suggestion.</div><div>I'm unfamiliar with the wait function.</div><div>Do you mean I should do something like this:</div><div><a href="http://snippets.dzone.com/posts/show/7542">http://snippets.dzone.com/posts/show/7542</a></div> <div>?<br><br><div class="gmail_quote">On Mon, Sep 28, 2009 at 10:52 AM, David Smith <span dir="ltr"><<a href="mailto:smithd@roughlight.com">smithd@roughlight.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"> <div style="word-wrap:break-word"> <div><br></div><div>You might try using the wait function to make sure the AU has fully loaded before you try to update the graph.</div><div><div></div><div class="h5"><div><br></div><div><br></div><br><div><div>On Sep 28, 2009, at 1:05 AM, Andrew Sorensen wrote:</div> <br><blockquote type="cite">Sorry David,<div><br></div><div>I don't have bidule so not really sure what the problem might be.</div><div><br></div><div>Cheers,</div><div>Andrew.</div><div><br></div><div><br><div><div>On 24/09/2009, at 6:33 AM, David Routledge wrote:</div> <br><blockquote type="cite">Hi all, and especially Andrew,<div>for on this particular occasion I am trying to solve a problem that he may be able to shed some light on.</div><div>When I work through the tutorial here:</div> <div><a href="http://impromptu.moso.com.au/tutorials/makeanoise.html" target="_blank">http://impromptu.moso.com.au/tutorials/makeanoise.html</a><br> </div><div>and use Bidule as my instrument,</div><div>it crashes when I get to evaluating this expression:</div> <div><span style="font-family:Times;font-size:16px"><div style="overflow-x:visible;overflow-y:visible;color:rgb(69, 60, 60);font-family:ArialMT, Arial, sans-serif;font-size:15px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:0px;line-height:20px;margin-bottom:0px;margin-left:0px;margin-right:0px;margin-top:0px;padding-bottom:0px;padding-top:0px;text-align:left;text-decoration:none;text-indent:0px;text-transform:none"> <span style="color:rgb(11, 0, 101);font-family:Monaco, Courier, serif;font-size:11px;line-height:15px">(</span><span style="color:rgb(178, 76, 15);font-family:Monaco, Courier, serif;font-size:11px;line-height:15px">au:update-graph</span><span style="color:rgb(11, 0, 101);font-family:Monaco, Courier, serif;font-size:11px;line-height:15px">)</span></div> <div style="overflow-x:visible;overflow-y:visible;color:rgb(69, 60, 60);font-family:ArialMT, Arial, sans-serif;font-size:15px;font-style:normal;font-variant:normal;font-weight:normal;letter-spacing:0px;line-height:20px;margin-bottom:0px;margin-left:0px;margin-right:0px;margin-top:0px;padding-bottom:0px;padding-top:0px;text-align:left;text-decoration:none;text-indent:0px;text-transform:none"> <span style="color:rgb(11, 0, 101);font-family:Monaco;font-size:11px;line-height:15px">So essentially, I never get to the point where I can use Bidule.</span></div><div style="text-align:left"> <span style="font-family:arial;font-size:13px">This is frustrating as I really want to marry the work I've done in Bidule with Impromptu based work</span><span style="color:rgb(11, 0, 101);font-family:Monaco;font-size:11px;line-height:15px">.</span></div> <div style="text-align:left"><span style="color:rgb(11, 0, 101);font-family:Monaco;font-size:11px;line-height:15px"><span style="font-family:arial;font-size:13px;line-height:normal">I've discussed the issue with seb@plogue and (though he had no problem getting it to work) he suggested:</span><br> </span></div><div style="text-align:left"><span style="font-family:arial;font-size:13px">"<span style="font-family:Verdana;font-size:12px;line-height:18px">the update-graph will initialize BiduleAU so the possible reasons for a crash would be : </span></span></div> <span style="font-family:Verdana;font-size:12px;line-height:18px">- cannot find the license key <br>- there's something in the default AU layout causing the crash"</span></span></div> <div><span style="font-family:Times;font-size:16px"><span style="font-family:Verdana;font-size:12px;line-height:18px"></span><div style="text-align:auto"> <span style="color:rgb(11, 0, 101);font-family:Monaco;font-size:11px;line-height:15px"><span style="font-family:Verdana;font-size:12px;line-height:18px">But I can't find any problem with the license key (for Bidule) or the default AU layout.</span></span></div> <div style="text-align:auto"><span style="font-family:Verdana;font-size:12px;line-height:18px">So, I thought I'd ask here, if anyone has any suggestions.</span></div><div style="text-align:auto"> <span style="font-family:Verdana;font-size:12px;line-height:18px"><br> </span></div><div style="text-align:auto"><span style="font-family:Verdana;font-size:12px;line-height:18px">Thanks,</span></div> <div style="text-align:auto"><span style="font-family:Verdana;font-size:12px;line-height:18px">David Routledge</span></div> </span><br></div> _______________________________________________<br>Impromptu mailing list<br><a href="mailto:Impromptu@lists.moso.com.au" target="_blank">Impromptu@lists.moso.com.au</a><br><a href="http://lists.moso.com.au/mailman/listinfo/impromptu" target="_blank">http://lists.moso.com.au/mailman/listinfo/impromptu</a><br> </blockquote></div><br></div><div style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px">_______________________________________________</div><div style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px"> Impromptu mailing list</div><div style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px"><a href="mailto:Impromptu@lists.moso.com.au" target="_blank">Impromptu@lists.moso.com.au</a></div><div style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px"> <a href="http://lists.moso.com.au/mailman/listinfo/impromptu" target="_blank">http://lists.moso.com.au/mailman/listinfo/impromptu</a></div> </blockquote></div><br></div></div></div><br>_______________________________________________<br> Impromptu mailing list<br> <a href="mailto:Impromptu@lists.moso.com.au">Impromptu@lists.moso.com.au</a><br> <a href="http://lists.moso.com.au/mailman/listinfo/impromptu" target="_blank">http://lists.moso.com.au/mailman/listinfo/impromptu</a><br> <br></blockquote></div><br></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">_______________________________________________</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Impromptu mailing list</div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><a href="mailto:Impromptu@lists.moso.com.au">Impromptu@lists.moso.com.au</a></div><div style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><a href="http://lists.moso.com.au/mailman/listinfo/impromptu">http://lists.moso.com.au/mailman/listinfo/impromptu</a></div> </blockquote></div><br></body></html>