Commit 83d9c6c3 authored by Filip Polbratt's avatar Filip Polbratt

Made project slightly more portable.

parent 3f770d2f
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment