From 68f63d81be256fb6a4e6d9b1f454cfaa5afe330b Mon Sep 17 00:00:00 2001 From: Gene Pasquet Date: Sat, 15 Nov 2025 18:38:58 +0000 Subject: Initialise renderer with fallback. --- src/game.scm | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) (limited to 'src/game.scm') diff --git a/src/game.scm b/src/game.scm index d854757..2e3f6ee 100644 --- a/src/game.scm +++ b/src/game.scm @@ -43,15 +43,12 @@ +screen-width+ +screen-height+ (if *fullscreen?* '(fullscreen) '()))) -;; (define *renderer* -;; (with-handlers [(lambda (c) -;; (display "Failed to initialise renderer") -;; (sdl2:create-renderer! *window* -1 -;; '(software)))] -;; (sdl2:create-renderer! *window* -1 -;; (if +software-mode?+ '(software) '(accelerated))))) - -(define *renderer* (sdl2:create-renderer! *window* -1 '(accelerated))) +(define *renderer* + (handle-exceptions exn + (lambda () + (display "Error initialising accelerated renderer. Falling back") + (sdl2:create-renderer! *window* -1 '(software))) + (sdl2:create-renderer! *window* -1 '(accelerated)))) (define *font* (ttf:open-font "DejaVuSans.ttf" 12)) (define *text-color* (sdl2:make-color 255 255 255)) -- cgit v1.2.3