diff --git a/main.rkt b/main.rkt index ae2c90a..4355c5d 100644 --- a/main.rkt +++ b/main.rkt @@ -21,8 +21,7 @@ ; image representing the empty grid (define EMPTY-GRID - (let* [ - [bitmap (make-bitmap (* GRID-WIDTH GRID-SCALE) (* GRID-HEIGHT GRID-SCALE))] + (let* [[bitmap (make-bitmap (* GRID-WIDTH GRID-SCALE) (* GRID-HEIGHT GRID-SCALE))] [dc (new bitmap-dc% [bitmap bitmap])]] (send dc set-brush "black" 'solid) (for ([x (in-range GRID-WIDTH)]) @@ -64,7 +63,7 @@ (< (- GRID-WIDTH 1) (point-x p)) (< (- GRID-WIDTH 1) (point-y p)))) -; Line Board -> Bool +; Line Grid -> Bool ; returns #t if adding the given move to the grid is valid. (define (valid-move? line grid) (and @@ -78,8 +77,7 @@ ; Grid -> Image ; renders grid to an image for showing humans the game. (define (render-grid grid) - (let* [ - [bitmap (make-bitmap (* GRID-WIDTH GRID-SCALE) (* GRID-HEIGHT GRID-SCALE))] + (let* [[bitmap (make-bitmap (* GRID-WIDTH GRID-SCALE) (* GRID-HEIGHT GRID-SCALE))] [dc (new bitmap-dc% [bitmap bitmap])]] (for ([l grid]) (cond @@ -89,7 +87,7 @@ (+ 4 (* GRID-SCALE (point-x (line-from l)))) (+ 4 (* GRID-SCALE (point-y (line-from l)))) (+ 4 (* GRID-SCALE (point-x (line-to l)))) - (+ 4 (* GRID-SCALE (point-y (line-to l)))))) + (+ 4 (* GRID-SCALE (point-y (line-to l)))))) ; draw the line (send dc draw-bitmap EMPTY-GRID 0 0) ; overlay dot grid bitmap)) \ No newline at end of file