Compare commits
1 Commits
b18aa49e8b
...
main
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
91b548e0bf |
@@ -154,13 +154,13 @@
|
|||||||
color-door))))))
|
color-door))))))
|
||||||
|
|
||||||
;; draw-coins! :: maze -> /
|
;; draw-coins! :: maze -> /
|
||||||
;; Redraws all coins as small centered dots.
|
;; Redraws all coins as small round dots.
|
||||||
(define (draw-coins! maze)
|
(define (draw-coins! maze)
|
||||||
((coins-tile 'clear!))
|
((coins-tile 'clear!))
|
||||||
((maze 'for-each-cell)
|
((maze 'for-each-cell)
|
||||||
(lambda (row col cell-type)
|
(lambda (row col cell-type)
|
||||||
(when (= cell-type cell-type-coin)
|
(when (= cell-type cell-type-coin)
|
||||||
((coins-tile 'draw-rectangle!)
|
((coins-tile 'draw-ellipse!)
|
||||||
(+ (grid->pixel-x col) coin-inset)
|
(+ (grid->pixel-x col) coin-inset)
|
||||||
(+ (grid->pixel-y row) coin-inset)
|
(+ (grid->pixel-y row) coin-inset)
|
||||||
coin-size
|
coin-size
|
||||||
|
|||||||
@@ -147,17 +147,17 @@
|
|||||||
(define rotation-up 90)
|
(define rotation-up 90)
|
||||||
(define rotation-down -90)
|
(define rotation-down -90)
|
||||||
|
|
||||||
;; Colors — arcade-style palette
|
;; Colors — arcade-style palette (standard Racket color names only)
|
||||||
(define color-background "black")
|
(define color-background "black")
|
||||||
(define color-wall "#2121DE")
|
(define color-wall "medium blue")
|
||||||
(define color-door "#FFB8FF")
|
(define color-door "hot pink")
|
||||||
(define color-coin "#FFB851")
|
(define color-coin "gold")
|
||||||
(define color-text "white")
|
(define color-text "white")
|
||||||
(define color-title "#FFFF00")
|
(define color-title "yellow")
|
||||||
(define color-header-bg "#111111")
|
(define color-header-bg "dark slate gray")
|
||||||
(define color-game-over "#FF0000")
|
(define color-game-over "red")
|
||||||
(define color-pause-bg "black")
|
(define color-pause-bg "black")
|
||||||
(define color-pause-text "#FF0000")
|
(define color-pause-text "red")
|
||||||
|
|
||||||
;; UI layout — header bar at the top
|
;; UI layout — header bar at the top
|
||||||
(define header-height 90)
|
(define header-height 90)
|
||||||
|
|||||||
Reference in New Issue
Block a user