--------------------------------------------------------------------------------

toGLColor :: Color -> Color3 GLfloat
toGLColor Black     = GLColor.black
toGLColor :: Color -> Color3 GLfloat
toGLColor Black     = GLColor.black
toGLColor Black     = GLColor.black