diff options
| author | Gene Pasquet <dev@etenil.net> | 2025-11-15 18:38:58 +0000 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2025-11-15 19:09:03 +0000 |
| commit | 68f63d81be256fb6a4e6d9b1f454cfaa5afe330b (patch) | |
| tree | 5c893c8ab73c15d79d660030905a6c11ed753fd1 | |
| parent | d30ac5463f0725974fbdaea83b6ef48096896f44 (diff) | |
Initialise renderer with fallback.
| -rw-r--r-- | Makefile | 2 | ||||
| -rw-r--r-- | src/game.scm | 15 |
2 files changed, 7 insertions, 10 deletions
@@ -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)) |