29 lines
876 B
Haskell
29 lines
876 B
Haskell
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)
|
|
]
|