<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body text="#000000" bgcolor="#ffffff">
    Hi David,<br>
    <br>
    big-bang's (stop-when) takes a procedure as an argument, so you need
    to give it either a lambda with your expression, or define your
    expression as a new function and pass it the function's name.&nbsp; When
    you just give it an expression (like in your code), it's evaluating
    to either true or false and passes it as the argument to stop-when.<br>
    <br>
    &nbsp; (define (main ws)<br>
    &nbsp;&nbsp;&nbsp; (big-bang ws (on-tick tock) (to-draw render) (stop-when (lambda
    (ws) (&gt; ws 500)))))<br>
    <br>
    should fix it.&nbsp; Or try:<br>
    <br>
    &nbsp;(define (end? ws)<br>
    &nbsp;&nbsp; (&gt; ws 500))<br>
    <br>
    &nbsp; (define (main ws)<br>
    &nbsp;&nbsp;&nbsp; (big-bang ws (on-tick tock) (to-draw render) (stop-when end?)))<br>
    <br>
    Hope that helps.&nbsp; If you have any other questions, feel free to ask.<br>
    <br>
    Regards,<br>
    MC<br>
    <br>
    On 12/10/2010 10:40 PM, David Taub wrote:
    <blockquote
      cite="mid:AANLkTi=JTRv2uduvhVAyKFHJp90nod-StPSN6fJdqO2x@mail.gmail.com"
      type="cite">
      <div>Wrote this from the lesson:</div>
      <div><br>
      </div>
      <div>;; this is the definitive exercise 32 from the 2htdp</div>
      <div>;; car moves across the empty-screen. &nbsp;Yay. &nbsp;12/2/2010</div>
      <div><br>
      </div>
      <div><br>
      </div>
      <div>;; &nbsp;this creates the empty window</div>
      <div><br>
      </div>
      <div>(define WIDTH 1000)</div>
      <div>(define HEIGHT 40)</div>
      <div>(define MTSCN (empty-scene WIDTH HEIGHT))</div>
      <div><br>
      </div>
      <div>;; this draws the vehicle shape</div>
      <div><br>
      </div>
      <div>(define WHEEL-RADIUS 5)</div>
      <div>&nbsp;&nbsp;(define WHEEL-DISTANCE (* WHEEL-RADIUS 5))</div>
      <div>&nbsp;&nbsp;(define BODY-LENGTH (+ WHEEL-DISTANCE (* 6 WHEEL-RADIUS)))</div>
      <div>&nbsp;&nbsp;(define BODY-HEIGHT (* WHEEL-RADIUS 2)) &nbsp;</div>
      <div>&nbsp;&nbsp; (define WHL (circle WHEEL-RADIUS "solid" "black"))</div>
      <div>&nbsp;&nbsp;(define BDY</div>
      <div>&nbsp;&nbsp; &nbsp;(above</div>
      <div>&nbsp;&nbsp; &nbsp; &nbsp;(rectangle (/ BODY-LENGTH 2) (/ BODY-HEIGHT 2)</div>
      <div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "solid" "blue")</div>
      <div>&nbsp;&nbsp; &nbsp; &nbsp;(rectangle BODY-LENGTH BODY-HEIGHT "solid" "red")))</div>
      <div>&nbsp;&nbsp;(define SPC (rectangle WHEEL-DISTANCE 1 "solid" "white"))</div>
      <div>&nbsp;&nbsp;(define WH* (beside WHL SPC WHL))</div>
      <div>&nbsp;&nbsp;(define CAR (underlay/xy BDY WHEEL-RADIUS BODY-HEIGHT WH*))</div>
      <div>&nbsp;&nbsp;</div>
      <div>&nbsp;&nbsp;;; As Ramin A. my old classmate once said, "I drew a tree"</div>
      <div>&nbsp;&nbsp;;; Well, this is a tree I was instructed to place in the
        empty screen</div>
      <div>&nbsp;&nbsp;;; as a constant shape throughout the running fo the
        program</div>
      <div>&nbsp;&nbsp;</div>
      <div>&nbsp;&nbsp;(define tree</div>
      <div>&nbsp;&nbsp; &nbsp;(underlay/xy (circle 10 'solid 'green)</div>
      <div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 9 15</div>
      <div>&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (rectangle 2 20 'solid 'brown)))</div>
      <div>;; this one actually places the tree!</div>
      <div>&nbsp;&nbsp;</div>
      <div>&nbsp;&nbsp; (define BACKGROUND</div>
      <div>&nbsp;&nbsp; &nbsp; (place-image tree 500 25 MTSCN)</div>
      <div>&nbsp;&nbsp; &nbsp; )</div>
      <div>&nbsp;&nbsp;&nbsp;</div>
      <div>;; this sets the y-axis (vertical) for the car and</div>
      <div>;; defines the "tock" where the trigger is the clock (not
        keystroke or mouse)</div>
      <div>;; increments of 3</div>
      <div>&nbsp;&nbsp;&nbsp;</div>
      <div>&nbsp;&nbsp;(define Y-CAR 30)</div>
      <div>&nbsp;&nbsp;(define (tock ws) (+ ws 3))</div>
      <div>&nbsp;&nbsp;</div>
      <div>;; &nbsp;Here we are placing the car into the scene, according to
        the given world state</div>
      <div>
        <br>
      </div>
      <div>&nbsp;&nbsp;(define (render ws) (place-image CAR ws Y-CAR BACKGROUND))</div>
      <div>&nbsp;</div>
      <div>&nbsp;&nbsp;</div>
      <div>&nbsp;</div>
      <div>;; &nbsp;here is the big-bang, or main program, that is the actual
        instruction&nbsp;</div>
      <div>;; to use all the above-definitions</div>
      <div>&nbsp;&nbsp;</div>
      <div>&nbsp;&nbsp;(define (main ws)</div>
      <div>&nbsp;&nbsp; &nbsp;(big-bang ws (on-tick tock) (to-draw render) <b>(stop-when
          (&gt; ws 500) &nbsp;)</b>))</div>
      <div><br>
      </div>
      <div>;; &nbsp;that's it! &nbsp;</div>
      <div>;; &nbsp;next step is a condition that will stop the program when&nbsp;</div>
      <div>;; the vehicle reaches a certain point</div>
      <div><br>
      </div>
      <div>****************************</div>
      <div>Ok, I bold-faced the attempt to have the car stop at x-axis
        of 500, which I believe is ws 500. &nbsp;When I put in "(main 1)" in
        the execution line, I get a false boolean, if I put in "(main
        501)" I get a true boolean. &nbsp;Both cases, it doesn't work the
        "procedure expects an argument", not a true/false. &nbsp;</div>
      <div><br>
      </div>
      <div>How the heck can I get the stop-when function to work, or can
        I be pointed to a section of the tutor or other reference that
        explains to me what should be a simple (not to me) additional
        command in the big-bang. &nbsp;Thank you in advance,</div>
      <div><br>
      </div>
      <div>dt</div>
      <br>
      -- <br>
      <br>
      CONFIDENTIAL EMAIL:&nbsp; This email may contain - Attorney-Client
      Privileged - Attorney Work Product - This email is only for use by
      the intended recipient. If received in error any use, disclosure
      or copying is prohibited. Any inadvertent receipt shall not be a
      waiver of any privilege or work product protection. If you have
      received this communication in error, please notify sender
      immediately.&nbsp; Thank you.<br>
      <pre wrap="">
<fieldset class="mimeAttachmentHeader"></fieldset>
_________________________________________________
  For list-related administrative tasks:
  <a class="moz-txt-link-freetext" href="http://lists.racket-lang.org/listinfo/users">http://lists.racket-lang.org/listinfo/users</a></pre>
    </blockquote>
  </body>
</html>