diff --git a/engine/drawing.scm b/engine/drawing.scm
index 5a6342a..5c68e5d 100644
--- a/engine/drawing.scm
+++ b/engine/drawing.scm
@@ -25,10 +25,10 @@
 ;; Get a raylib color vec from a color
 (define (use-color col)
   (assert (color? col))
-  (u8vector (number->integer (* 255 (color-r col)))
-	    (number->integer (* 255 (color-g col)))
-	    (number->integer (* 255 (color-b col)))
-	    (number->integer (* 255 (color-a col)))))
+  (u8vector (floor (* 255 (color-r col)))
+	    (floor (* 255 (color-g col)))
+	    (floor (* 255 (color-b col)))
+	    (floor (* 255 (color-a col)))))
 
 ;; Type safe color constructor
 (define (make-color r g b a)