From 082243021181e6b77be164683d6b0812f6666f54 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 17 Dec 2015 09:06:58 -0500
Subject: 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.
---
 sdl2/bindings.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'sdl2')

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)
-- 
cgit v1.2.3