    {-# OPTIONS_HADDOCK hide #-}

    module Graphics.Gloss.Internals.Color where

    import Graphics.Gloss.Data.Color
    import qualified Graphics.Rendering.OpenGL.GL		as GL

    import Unsafe.Coerce

    -- | Convert one of our Colors to OpenGL's representation.
    glColor4OfColor :: Fractional a => Color -> GL.Color4 a
    glColor4OfColor color
     = case rgbaOfColor color of
    	(r, g, b, a)
    	 -> let	rF	= unsafeCoerce r
    		gF	= unsafeCoerce g
    		bF	= unsafeCoerce b
    		aF	= unsafeCoerce a
       	    in	GL.Color4 rF gF bF aF