From 5ebead55e1bcc660e10e59c0c5a38a81e7bd4f7c Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 20 Jul 2005 20:08:17 +0000 Subject: [PATCH] Removing broken demo code svn: r409 --- .../demos/random/random-mztake-uncommented.ss | 44 ------------------- 1 file changed, 44 deletions(-) delete mode 100644 collects/mztake/demos/random/random-mztake-uncommented.ss diff --git a/collects/mztake/demos/random/random-mztake-uncommented.ss b/collects/mztake/demos/random/random-mztake-uncommented.ss deleted file mode 100644 index 333ef94702..0000000000 --- a/collects/mztake/demos/random/random-mztake-uncommented.ss +++ /dev/null @@ -1,44 +0,0 @@ -(require (lib "graphics.ss" "graphics") - (lib "mztake.ss" "mztake") - (lifted mzscheme - make-hash-table - hash-table-put! - hash-table-get)) - - -(open-graphics) -(define window (open-viewport "Debugger" 600 500)) -((draw-viewport window) (make-rgb 0.95 0.95 0.95)) - - -(define/bind (loc "random.ss" 4 6) x) - - -(define largest-bin 0) -(define valcount (make-hash-table)) - - -(hold (x-trace . -=> .(printf-b "largest count: ~a" largest-bin))) - - -(map-e (lambda (x) - (let* ([new-cnt (add1 (hash-table-get valcount x (lambda () 0)))] - [color (/ new-cnt (add1 largest-bin))]) - - (when (= largest-bin 250) - (kill p)) - - (when (> new-cnt largest-bin) (set! largest-bin new-cnt)) - - (hash-table-put! valcount x new-cnt) - - ((draw-solid-rectangle window) (make-posn (* x 6) (- 500 (* 2 new-cnt))) - 6 10 ;; width height - (make-rgb 0 (* 0.75 color) color)))) - x-trace) - - -(printf-b "count: ~a" (count-b x-trace)) - - -(set-running! true) \ No newline at end of file