diff options
| -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)) |