diff options
Diffstat (limited to 'turbo.scm')
| -rw-r--r-- | turbo.scm | 22 |
1 files changed, 14 insertions, 8 deletions
@@ -59,6 +59,12 @@ ;;;; Constants and variables +(define assets-root (if (string=? (getenv "APPDIR") "") + "" + (format #f "~a/usr/share/turbo/" (getenv "APPDIR")))) +(define (asset-path asset) + (format #f "~a~a" assets-root asset)) + (define the-font #f) (define font-7-segments #f) @@ -259,17 +265,17 @@ ;;;; Chickadee hooks (define (load) - (set! the-font (load-bitmap-font "fonts/thick_8x8.xml")) - (set! font-7-segments (load-font "fonts/DSEG7Classic-Regular.ttf" 24)) - (set! road (load-tileset "sprites/road.png" lane-length lane-height)) + (set! the-font (load-bitmap-font (asset-path "fonts/thick_8x8.xml"))) + (set! font-7-segments (load-font (asset-path "fonts/DSEG7Classic-Regular.ttf") 24)) + (set! road (load-tileset (asset-path "sprites/road.png") lane-length lane-height)) (set! road-top (texture-atlas-ref road 2)) (set! road-bottom (texture-atlas-ref road 0)) (set! road-lane (texture-atlas-ref road 1)) - (set! grass (load-image "sprites/grass.png")) - (set! dashboard-set (load-tileset "sprites/dash-background.png" 64 64)) + (set! grass (load-image (asset-path "sprites/grass.png"))) + (set! dashboard-set (load-tileset (asset-path "sprites/dash-background.png") 64 64)) (set! dash-background (texture-atlas-ref dashboard-set 0)) (set! dash-7seg-background (texture-atlas-ref dashboard-set 1)) - (set! vehicles-sprites (load-tileset "sprites/vehicles.png" vehicle-length vehicle-height)) + (set! vehicles-sprites (load-tileset (asset-path "sprites/vehicles.png") vehicle-length vehicle-height)) (set! initial-player-position (vec2 (/ (- (window-width (current-window)) vehicle-length) 6) @@ -283,9 +289,9 @@ #t)) ;; Audio - (set! music-res (load-audio "sound/music.ogg")) + (set! music-res (load-audio (asset-path "sound/music.ogg"))) (set! music (make-source #:audio music-res #:loop? #t)) - (set! engine-res (load-audio "sound/engine-loop-1.ogg")) + (set! engine-res (load-audio (asset-path "sound/engine-loop-1.ogg"))) (set! engine-sound (make-source #:audio engine-res #:loop? #t)) (set-source-volume! music 0.3) |