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

Use number->integer for truncatation #27

Merged
BirDt merged 1 commit from bugfix/color-truncation into master 2026-05-17 20:44:50 +08:00
Conversation 0 Commits 1 Files changed 1 +4 -4
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 0a6930dfc0 - Show all commits

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)