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

Compare commits

base: BirDt:master
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
..
compare: BirDt:feature/resource-texture-drawing
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

No commits in common. "master" and "feature/resource-texture-drawing" have entirely different histories.
master ... feature/re

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 (number->integer (* 255 (color-r col))) (u8vector (floor (* 255 (color-r col)))
(number->integer (* 255 (color-g col))) (floor (* 255 (color-g col)))
(number->integer (* 255 (color-b col))) (floor (* 255 (color-b col)))
(number->integer (* 255 (color-a col))))) (floor (* 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)