summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/helpers.scm10
1 files changed, 5 insertions, 5 deletions
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)))