suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

updating highway demo

Browse Source 
svn: r439
This commit is contained in:
Jay McCarthy 2005-07-25 18:43:18 +00:00
parent 2c08ff09f9
commit f95d104d5a
2 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/mztake/demos/highway/highway-mztake-uncommented.ss
View File

@ -1,15 +1,10 @@
(require (lib "mztake.ss" "mztake")
(lib "animation.ss" "frtime"))
(lib "animation.ss" "frtime")
(lib "useful-code.ss" "mztake" "private"))
(define/bind (loc "highway.ss" 3 4) speed)
(printf-b "current speed: ~a" (hold values-of-speed))
(printf-b "last ten speeds: ~a" (history-b 10 values-of-speed))
(map-e (lambda (a-speed) (when (>= a-speed 55) (pause radar-program)))
values-of-speed)
(printf-b "current speed: ~a" speed)
(define (make-speed-gauge speed)
(let ([center (make-posn 200 200)])
@ -23,6 +18,6 @@
"red"))))
(display-shapes (make-speed-gauge (hold values-of-speed)))
(display-shapes (make-speed-gauge speed))
(set-runnning! true)
(set-running! (< speed 55))

3
collects/mztake/mztake.ss
View File

@ -199,11 +199,11 @@
; Now that we processed the trace, do we want to pause or continue
(when (debug-process-pause-requested? process)
(set-debug-process-pause-requested?! process false)
(let loop ()
(unless (debug-process-resume-requested? process)
(semaphore-wait (debug-process-run-semaphore process))
(loop)))
(set-debug-process-pause-requested?! process false)
(set-debug-process-resume-requested?! process false))
(set-debug-process-marks! process false)))
@ -295,6 +295,7 @@
(cond
[(not (debug-process-run-semaphore process)) (process:new->running process)]
[(and (not (frp:value-now (debug-process-exited? process)))
(debug-process-pause-requested? process)
(not (debug-process-resume-requested? process)))
(process:paused->running process)]))