module Shapes where
import Geometry
import Graphics.Rendering.OpenGL

type RGBA = (Float,Float,Float,Float)

data CPoint = CPoint 
    {cpPoint :: Point3
    ,cpColor :: RGBA
    }

data Shape = Shape PrimitiveMode [CPoint]
            | Fade [(Point3,RGBA,Float)]
            | Shape' PrimitiveMode [GLfloat]

egTri = Shape TriangleStrip [CPoint (-1,0,0) (1,1,1,1)
                            ,CPoint (0,1,0) (1,1,0,1)
                            ,CPoint (1,0,0) (1,0,1,0)
                            ,CPoint (0.5,-0.5,0) (1,0,1,0)
                            ,CPoint (0.5,-0.5,0) (1,0,1,0)
                            ,CPoint (0.5,-0.5,0) (1,0,1,0)
                            ]

egFade = Fade [((-0.2,-0.2,0),(1,1,1,1),500)
              ,((0.2,0.2,0),(1,1,1,1),500)
--              ,((0.5,0.5,0),(1,1,1,1),0.5)
--              ,((0.5,0.5,0),(1,1,1,1),0.5)
              ]