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. --- Makefile | 2 +- src/game.scm | 15 ++++++--------- 2 files changed, 7 insertions(+), 10 deletions(-) diff --git a/Makefile b/Makefile index 116aa6a..044838e 100644 --- a/Makefile +++ b/Makefile @@ -4,7 +4,7 @@ bin/game: bin bin/tilemap.o bin: mkdir bin -tilemap.o: bin src/tilemap.scm +bin/tilemap.o: bin src/tilemap.scm csc -c -J src/tilemap.scm -unit tilemap -o bin/tilemap.o .PHONY: 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