On Thursday 26 October 2006 18:39, Henning Thielemann wrote:
It would be more concise and safer to write lineLoop [v1, v2, v3, v4] lines [(v1, v2), (v3, v4)]
If I understand the following correctly: http://www.haskell.org/ghc/dist/current/docs/libraries/OpenGL/Graphics-Rende... With renderPrimitive you can also add additional properties per vertex. Like: renderPrimitive LineLoop $ do color c1 texCoord t1 vertex v1 color c2 texCoord t2 vertex v2 color c3 texCoord t3 vertex v3 color c4 texCoord t4 vertex v4 It would be possible to do it in a type safe manner by having a data type Vertex that has a list of VertexProperties: type Vertex = [VertexProperty] data VertexProperty = Coordinate ... | Color ... | TextureCoordinate ... ... then you can have something like: v1, v2, v3, v4 :: Vertex lineLoop [v1, v2, v3, v4] Regards, Bas van Dijk