diff options
| author | David Thompson <dthompson2@worcester.edu> | 2013-07-21 23:16:31 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2013-07-21 23:16:31 -0400 |
| commit | 032d5c9fe5abf734fd40deef727e4495b08048d0 (patch) | |
| tree | 099b62fed18acc6a8f041febe05e9ef137623153 | |
| parent | 9009092cf055b461fb273b5e20252622d9e4a9d1 (diff) | |
rgba->gl-color now returns a vector instead of a list.
| -rw-r--r-- | 2d/helpers.scm | 10 |
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))) |