diff --git a/pacman-project/adt/draw.rkt b/pacman-project/adt/draw.rkt index 34f1fdd..6251261 100644 --- a/pacman-project/adt/draw.rkt +++ b/pacman-project/adt/draw.rkt @@ -154,13 +154,13 @@ color-door)))))) ;; draw-coins! :: maze -> / - ;; Redraws all coins as small centered dots. + ;; Redraws all coins as small round dots. (define (draw-coins! maze) ((coins-tile 'clear!)) ((maze 'for-each-cell) (lambda (row col cell-type) (when (= cell-type cell-type-coin) - ((coins-tile 'draw-rectangle!) + ((coins-tile 'draw-ellipse!) (+ (grid->pixel-x col) coin-inset) (+ (grid->pixel-y row) coin-inset) coin-size diff --git a/pacman-project/constants.rkt b/pacman-project/constants.rkt index 120ca03..dbe8022 100644 --- a/pacman-project/constants.rkt +++ b/pacman-project/constants.rkt @@ -147,17 +147,17 @@ (define rotation-up 90) (define rotation-down -90) - ;; Colors — arcade-style palette + ;; Colors — arcade-style palette (standard Racket color names only) (define color-background "black") - (define color-wall "#2121DE") - (define color-door "#FFB8FF") - (define color-coin "#FFB851") + (define color-wall "medium blue") + (define color-door "hot pink") + (define color-coin "gold") (define color-text "white") - (define color-title "#FFFF00") - (define color-header-bg "#111111") - (define color-game-over "#FF0000") + (define color-title "yellow") + (define color-header-bg "dark slate gray") + (define color-game-over "red") (define color-pause-bg "black") - (define color-pause-text "#FF0000") + (define color-pause-text "red") ;; UI layout — header bar at the top (define header-height 90)