From 71d4518c4b557f39673efbec521421ee6e5aa261 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Mon, 25 Jul 2005 18:43:38 +0000 Subject: [PATCH] Removing file. svn: r440 --- .../mztake/demos/highway/highway-mztake.ss | 55 ------------------- 1 file changed, 55 deletions(-) delete mode 100644 collects/mztake/demos/highway/highway-mztake.ss diff --git a/collects/mztake/demos/highway/highway-mztake.ss b/collects/mztake/demos/highway/highway-mztake.ss deleted file mode 100644 index 8f8d206c72..0000000000 --- a/collects/mztake/demos/highway/highway-mztake.ss +++ /dev/null @@ -1,55 +0,0 @@ -#| The program being debugged (a module in "highway.ss") generates fake speed readings over and over. |# - -(require (lib "animation.ss" "frtime")) #| needed for display-shapes |# - - -(define-mztake-process radar-program ("highway.ss" [values-of-speed 3 4 bind 'speed])) -#| * Create a process to debug highway.ss - - * Add a tracepoint at line 3, column 4; in the program, - this is right before the program sleeps for 1 second. - - * At this tracepoint, define "values-of-speed" to a FrTime eventstream that - recieves events containing the current value of the variable `speed', - which are sent every time the code at line 3, column 4, is reached. |# - - - -(printf-b "current speed: ~a" (hold values-of-speed)) -#| Prints the current speed being recorded |# - - - -(printf-b "last ten speeds: ~a" (history-b 10 values-of-speed)) -#| prints a FIFO list of the last 10 speeds seen |# - -(map-e (lambda (a-speed) (when (>= a-speed 55) (pause radar-program))) - values-of-speed) -#| pauses the program for inspection when a speed is too fast |# - - - -#| produces a list of shapes to draw/animate, taking in a number for speed |# -(define (make-speed-gauge speed) - (let ([center (make-posn 200 200)]) - (list (make-circle center 170 "black") - (make-circle center 160 "white") - (make-rect (make-posn 0 202) 1000 1000 "white") - (make-line (make-posn 30 201) (make-posn 370 201) "black") - #| draws the the half-circle guage |# - - #| draws the red line for the current speed |# - (make-line center - (posn+ center (make-posn (- (* 150 (cos (/ speed 30)))) - (- (* 150 (sin (/ speed 30)))))) - "red")))) - - -(display-shapes (make-speed-gauge (hold values-of-speed))) -#| display-shapes takes a list of objects to draw. - (hold values-of-speed) keeps track of the current value of speed, - as seen on the eventstream, and that is passed to make-speed-guage, - which gets called every time values-of-speed gets a new speed. |# - - -(start/resume radar-program) #| Start the process for highway.ss |# \ No newline at end of file