nihilazo
/
dotsandboxes
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

some cleanup

This commit is contained in:
Nico 2022-03-31 16:47:03 +01:00
parent 672bfa1232
commit 8fd5dd41b0
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
main.rkt
View File

@ -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))