1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{-# OPTIONS_HADDOCK hide #-}
module Graphics.Gloss.Internals.Rendering.Color where
import Graphics.Gloss.Internals.Data.Color
import Unsafe.Coerce
import qualified Graphics.Rendering.OpenGL.GL as GL
-- | Convert one of our Colors to OpenGL's representation.
glColor4OfColor :: Color -> GL.Color4 a
glColor4OfColor color
= case color of
RGBA r g b a
-> let rF = unsafeCoerce r
gF = unsafeCoerce g
bF = unsafeCoerce b
aF = unsafeCoerce a
in GL.Color4 rF gF bF aF
{-# INLINE glColor4OfColor #-}
|
