diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-12-17 09:06:58 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-12-17 09:08:07 -0500 |
| commit | 082243021181e6b77be164683d6b0812f6666f54 (patch) | |
| tree | ccdf81f806e75e580082edb770808f2d5d305932 /sdl2 | |
| parent | 1403e4a67989d627fe84b6e6beeec641c1d7d49e (diff) | |
Add color type.
* sdl2/bindings.scm (sdl-color): New variable.
* sdl2.scm (<color>): New record type.
(make-color, color?, color-r, color-g, color-b, color-a, color->struct): New
procedures.
Diffstat (limited to 'sdl2')
| -rw-r--r-- | sdl2/bindings.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index a25822f..7edd7b2 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -76,6 +76,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES." ;;; Foreign Types ;;; +(define-public sdl-color + (list uint8 uint8 uint8 uint8)) + (define sdl-bool int) (define (boolean->sdl-bool b) |