putting the score right in the center

This commit is contained in:
Danny Yoo 2011-07-22 02:19:25 -04:00
parent bd4b7e5e9b
commit a4bdb5eb7a

View File

@ -359,7 +359,7 @@
(local [(define score-text
(text (string-append "Score: " (number->string score)) SCORE-TEXT-SIZE "black"))]
(place-image score-text
(- (/ BOARD-WIDTH 2) (/ (image-width score-text) 2))
(/ BOARD-WIDTH 2)
BOARD-HEIGHT
img)))