summaryrefslogtreecommitdiff
path: root/sdl2/bindings.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2015-12-17 09:06:58 -0500
committerDavid Thompson <dthompson2@worcester.edu>2015-12-17 09:08:07 -0500
commit082243021181e6b77be164683d6b0812f6666f54 (patch)
treeccdf81f806e75e580082edb770808f2d5d305932 /sdl2/bindings.scm
parent1403e4a67989d627fe84b6e6beeec641c1d7d49e (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/bindings.scm')
-rw-r--r--sdl2/bindings.scm3
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)