7
Value
Variables
Call Stack
<program>
>
Step: 8/8
<
>
Call: 1/1
<
❚❚
Progress: 8/8
<
>

>
Revision: 4/50
<
1
(+ 1 (* 2 3))
X
Workspace
X

Menu
$morph('SDebugger1').reset()
(define (count u)
; Bouncing Box demo
   
(define (gravity v h)
  (if (< h 0)
    (list (- 0 v0)
    (list (- v 2) (+ h (- v 1)))))
(define (simulate input state)
  (gravity
    (car state)
    (car (cdr state))))
    
(define initialState '(0 136))
(define blue (color-rgb 0 0 255))
(define box (morph-set-fill blue
            (morph-create 30 30)))
(define (render vh)
  (morph-move
    0
    (- 200 (/ (car (cdr vh)) 3))
    box))
(lift
  (foldp (fps 12simulate initialState)
  render)
X