Changed stroke color of menu
This commit is contained in:
parent
06a982747e
commit
6aed092c24
3 changed files with 10 additions and 3 deletions
6
game.scm
6
game.scm
|
@ -749,11 +749,13 @@
|
|||
(y (- (vec2-y center) (* tile-height (floor (/ height 2))))))
|
||||
;; Draw menu background
|
||||
(if (= r r-start)
|
||||
(let* ((x1 (- (vec2-x center) (* tile-width (floor (/ width 2)))))
|
||||
(let* ((x (- (vec2-x center) (* tile-width (floor (/ width 2)))))
|
||||
(w (* tile-width width))
|
||||
(h (* tile-height height)))
|
||||
(set-fill-color! context "#000")
|
||||
(fill-rect context x1 y w h)))
|
||||
(fill-rect context x y w h)
|
||||
(set-stroke-color! context "blue")
|
||||
(stroke-rect context x y w h)))
|
||||
;; Draw menu text
|
||||
(set-text-align! context "center")
|
||||
(set-font! context "normal 16px monogram")
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue