From 032d5c9fe5abf734fd40deef727e4495b08048d0 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 21 Jul 2013 23:16:31 -0400 Subject: rgba->gl-color now returns a vector instead of a list. --- 2d/helpers.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to '2d') diff --git a/2d/helpers.scm b/2d/helpers.scm index c919006..70b9a15 100644 --- a/2d/helpers.scm +++ b/2d/helpers.scm @@ -40,12 +40,12 @@ arguments is non-zero and returns false otherwise." (define (rgba->gl-color color) "Converts an integer color code into OpenGL compatible color -values. Returns a list of four floating point numbers in range [0,1]." +values. Returns a vector of four floating point numbers in range [0,1]." (define (component offset) (let ((mask (bitwise-arithmetic-shift-left #xff offset))) (/ (bitwise-arithmetic-shift-right (logand mask color) offset) 255.0))) - (list (component 24) - (component 16) - (component 8) - (component 0))) + (vector (component 24) + (component 16) + (component 8) + (component 0))) -- cgit v1.2.3