From 0a6930dfc03749970d8b33fe38b42570a3e3dfe8 Mon Sep 17 00:00:00 2001 From: Jakub Date: Sun, 17 May 2026 20:44:20 +0800 Subject: [PATCH] Use number->integer for truncatation --- engine/drawing.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/engine/drawing.scm b/engine/drawing.scm index 5c68e5d..5a6342a 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 (floor (* 255 (color-r col))) - (floor (* 255 (color-g col))) - (floor (* 255 (color-b col))) - (floor (* 255 (color-a 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))))) ;; Type safe color constructor (define (make-color r g b a) -- 2.47.3