diff options
Diffstat (limited to 'scenes/death.scm')
-rw-r--r-- | scenes/death.scm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/scenes/death.scm b/scenes/death.scm index 29d006f..26b0dff 100644 --- a/scenes/death.scm +++ b/scenes/death.scm @@ -234,11 +234,16 @@ void main (void) { (make <node-2d> #:children (list death - (make <label> - #:name 'press-enter - #:font death-font - #:text "Press any key to quit." - #:position (vec2 72.0 20.0)) + (let ((text "Press any key to quit.") + (font death-font)) + (make <label> + #:font font + #:text text + #:position + (let ((width (font-line-width (asset-ref font) text))) + (vec2 (- (/ %width 2) + (/ width 2)) + 30.0)))) (make <node-2d> #:name 'credits-container #:origin (vec2 (- (/ %width 2)) |