BirDt/imugi
1
0
Fork 0
Code Issues 14 Pull requests Projects 1 Wiki Activity Actions

Use number->integer for truncatation

Browse source
This commit is contained in:
Jakub 2026-05-17 20:44:20 +08:00
parent 76d8d3bfc6
commit 0a6930dfc0
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
engine/drawing.scm
View file

@ -25,10 +25,10 @@
;; Get a raylib color vec from a color ;; Get a raylib color vec from a color
(define (use-color col) (define (use-color col)
(assert (color? col)) (assert (color? col))
(u8vector (floor (* 255 (color-r col))) (u8vector (number->integer (* 255 (color-r col)))
(floor (* 255 (color-g col))) (number->integer (* 255 (color-g col)))
(floor (* 255 (color-b col))) (number->integer (* 255 (color-b col)))
(floor (* 255 (color-a col))))) (number->integer (* 255 (color-a col)))))
;; Type safe color constructor ;; Type safe color constructor
(define (make-color r g b a) (define (make-color r g b a)