Made project slightly more portable.

main.scm

@@ -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))