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

Compare commits

merge into: BirDt:feature/resource-texture-drawing
Branches Tags
BirDt:master
BirDt:bugfix/color-truncation
BirDt:feature/resource-texture-drawing
BirDt:feature/usage-docs
BirDt:feature/egg
BirDt:feature/game-loader
BirDt:feature/collaboration-build-improvements
BirDt:feature/tic-tac-toe
...
pull from: BirDt:master
Branches Tags
BirDt:bugfix/color-truncation
BirDt:master
BirDt:feature/resource-texture-drawing
BirDt:feature/usage-docs
BirDt:feature/egg
BirDt:feature/game-loader
BirDt:feature/collaboration-build-improvements
BirDt:feature/tic-tac-toe
Sign in to create a new pull request.

1 commit
feature/re ... master

Author SHA1 Message Date
Jakub
0a6930dfc0 Use number->integer for truncatation 2026-05-17 20:44:20 +08:00
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)