Skip to content
Snippets Groups Projects
Commit 83d9c6c3 authored by Filip Polbratt's avatar Filip Polbratt
Browse files

Made project slightly more portable.

parent 3f770d2f
No related branches found
No related tags found
No related merge requests found
......@@ -176,9 +176,6 @@
(ray (cdr r)))
(let* ((l (vector-length ray))
(segment-height (- 480 (* 70 l))))
(set-draw-color 0
(int (min #xFF (- #x100 (* #x100 (/ l 7)))))
(int (min #xFF (- #x100 (* #x100 (/ l 7))))))
(render-copy
(current-renderer)
brick-texture
......@@ -251,7 +248,7 @@
(define (main-loop window)
(define rend (make-renderer window '(accelerated #; vsync texture)))
(define last-t (get-t))
(set! brick-texture (surface->texture rend (load-image "./purplebrick.png")))
(set! brick-texture (surface->texture rend (load-image (string-append (dirname (current-filename)) "/purplebrick.png"))))
(let loop ((counter 0))
......@@ -273,7 +270,7 @@
(sdl-init)
(ttf-init)
(current-font (load-font "/usr/share/fonts/OTF/FiraMono-Regular.otf" 12))
(current-font (load-font "/usr/share/fonts/truetype/gentium/Gentium-R.ttf" 12))
(format #t "Loaded font ~a~%" (current-font))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment