grid :: (GlIndex,GlIndex) -> ([GlIndex], [R2])
grid = liftA2 (,) gridIndices gridVertices
grid :: (GlIndex,GlIndex) -> ([GlIndex], [R2])
grid = liftA2 (,) gridIndices gridVertices
grid = liftA2 (,) gridIndices gridVertices