From f86fbad2268a6919aa5e7a995bd44e1c152382ea Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 10 Jan 2011 12:19:20 -0600 Subject: [PATCH] fix stupid stuff, plus make purple a little more different than brown --- collects/games/same/same.rkt | 21 +++------------------ 1 file changed, 3 insertions(+), 18 deletions(-) diff --git a/collects/games/same/same.rkt b/collects/games/same/same.rkt index 241ec5b4e2..6e14f476fc 100644 --- a/collects/games/same/same.rkt +++ b/collects/games/same/same.rkt @@ -15,7 +15,7 @@ (define board-width 20) (define board-height 10) (define colors (map (lambda (x) (make-object color% x)) - (list "blue" "red" "brown" "forestgreen" "darkviolet"))) + (list "blue" "red" "brown" "forestgreen" "purple"))) (define pale-colors (map (λ (x) (define (paleize x) (- 255 (floor (/ (- 255 x) 2)))) (make-object color% @@ -45,20 +45,7 @@ board-height (lambda (j) (vector - (begin - (if (zero? (modulo (+ j i) 4)) - 0 - 1) - #; - (if (zero? (modulo (+ j i) 2)) - 0 - 1) - #; - (if (= j (- board-height 1)) - (- (length colors) 1) - (modulo i (- (length colors) 1))) - ;0 - #;(random (length colors))) + (random (length colors)) #f)))))) (define board (build-board)) @@ -421,6 +408,4 @@ (send canvas min-width (* board-width cell-w 2)) (send canvas min-height (* board-height cell-h 2)) (send frame show #t) - (yield semaphore))) - -(invoke-unit game@) + (void (yield semaphore))))