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)))