summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sdl2.scm26
-rw-r--r--sdl2/bindings.scm3
2 files changed, 28 insertions, 1 deletions
diff --git a/sdl2.scm b/sdl2.scm
index 74839fe..3541596 100644
--- a/sdl2.scm
+++ b/sdl2.scm
@@ -26,6 +26,7 @@
(define-module (sdl2)
#:use-module (ice-9 match)
#:use-module (srfi srfi-4)
+ #:use-module (srfi srfi-9)
#:use-module (system foreign)
#:use-module ((sdl2 bindings) #:prefix ffi:)
#:export (sdl-error-string
@@ -33,7 +34,15 @@
sdl-version
sdl-init
sdl-quit
- sdl-ticks))
+ sdl-ticks
+
+ <color>
+ make-color
+ color?
+ color-r
+ color-g
+ color-b
+ color-a))
(define %default-init-flags
'(timer audio video haptic game-controller events))
@@ -83,3 +92,18 @@ upon all exit conditions."
"Return the number of milliseconds since the SDL library
initialization."
(ffi:sdl-get-ticks))
+
+;; SDL_Color
+(define-record-type <color>
+ (make-color r g b a)
+ color?
+ (r color-r)
+ (g color-g)
+ (b color-b)
+ (a color-a))
+
+(define (color->struct color)
+ "Convert COLOR into a foreign struct."
+ (match color
+ (($ <color> r g b a)
+ (make-c-struct ffi:sdl-color (list r g b a)))))
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)