diff options
author | David Thompson <dthompson@member.fsf.org> | 2013-08-17 23:52:32 -0400 |
---|---|---|
committer | David Thompson <dthompson@member.fsf.org> | 2013-08-17 23:52:32 -0400 |
commit | e5f352a7e47741e06bd96120d1bd1f8c1f83589a (patch) | |
tree | 66612e1d702ed5d1da10c550261a59c7d4face65 /2d/helpers.scm | |
parent | 6b217d8c62b75491576682f998acf07af45bcb86 (diff) |
Use new color module.
Diffstat (limited to '2d/helpers.scm')
-rw-r--r-- | 2d/helpers.scm | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/2d/helpers.scm b/2d/helpers.scm index 70b9a15..e71d7a1 100644 --- a/2d/helpers.scm +++ b/2d/helpers.scm @@ -37,15 +37,3 @@ otherwise." "Returns true if the result of a bitwise AND of the integer arguments is non-zero and returns false otherwise." (not (zero? (apply logand args)))) - -(define (rgba->gl-color color) - "Converts an integer color code into OpenGL compatible color -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))) - - (vector (component 24) - (component 16) - (component 8) - (component 0))) |