diff options
| author | Gene Pasquet <dev@etenil.net> | 2024-05-29 15:12:34 +0100 |
|---|---|---|
| committer | Gene Pasquet <dev@etenil.net> | 2024-05-29 15:12:34 +0100 |
| commit | 084750dc5c69d081771858c87060bf06242e5d1d (patch) | |
| tree | 7422da3d4ac345f2eda1166f9a2a8f4fb0e087f3 /turbo.scm | |
| parent | 4861b47029be9e2aed29b4c212a69285711ebd19 (diff) | |
Getting started with appimage
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) |